| 21 |
|
# You'd be silly not to use this ;) |
| 22 |
|
use strict; |
| 23 |
|
|
| 24 |
+ |
&print_ident(); |
| 25 |
|
&include_osver(); |
| 26 |
|
&include_users(); |
| 27 |
|
&include_top(); |
| 30 |
|
|
| 31 |
|
|
| 32 |
|
|
| 33 |
+ |
# prints out an identifier for this version of statgrab.pl |
| 34 |
+ |
# the host should check this when reading data |
| 35 |
+ |
# means the host must be checked and updated to work with newer versions. |
| 36 |
+ |
sub print_ident() { |
| 37 |
+ |
print '# statgrab.pl $Revision$'; |
| 38 |
+ |
print "\n"; |
| 39 |
+ |
} |
| 40 |
|
|
| 41 |
|
# sub to print pairs of data, separated by a single space character. |
| 42 |
|
sub print_pair($$) { |
