1 #!/usr/bin/perl
2 # @(#) uuhistory History log file summary
3 # Author: Michael P. Brininstool
4 # Adapted by Becca Thomas, December 1993
5 #
6 # Define default log-file path names:
7 $logdir="/var/uucp/.Log"; # Log files under here
8 $logcico="$logdir/uucico"; # uucico logs
9 $loguux="$logdir/uux"; # uux logs
10 $loguucp="$logdir/uucp"; # uucp logs
11 $loguuxqt="$logdir/uuxqt"; # uuxqt logs
12 
13 $fflag = 0; $logfile = "";
14 
15 # Get host names from command line or by running uuname:
16 if (@ARGV) { # If command-line arguments
17 if ($ARGV[0] eq "-f") { # and if user specifies log file
18 $fflag++; shift; # note it, then discard -f flag
19 $logfile = shift; # and save file name
20 die "Can't read $logfile: $!: stopped" unless -r $logfile;
21 @hosts = ("dummyhost"); # only once around outermost loop
22 } else {
23 @hosts=@ARGV; # The rest should be host names
24 }
25 } else {
26 open(UUNAME,"uuname|") || # Read uuname output?
27 die "Can't run uuname: $!: stopped";
28 @hosts=<UUNAME<; # Read them all at once
29 chop(@hosts); # Remove newline from each name
30 close(UUNAME);
31 }
32 
33 # So all output can be sorted by date and time:
34 open(SORT, "|sort") || die "Can't run sort: $!: stopped";
35 
36 # Examine log files:
37 foreach $host (@hosts) { # For each host
38 
39 # Examine UUCICO log for host:
40 $logfile = "$logcico/$host" unless $fflag;
41 if (open(LOG,"$logfile")) { # Failure isn't fatal
42 @lines=(grep(/OK|SUCCEEDED|FAILED|CAUGHT|INTREXIT/,<LOG<));
43 close(LOG) unless $fflag;
44 
45 $sdate="";
46 # Process each line selected from the uucico log:
47 foreach $line (@lines) {
48 chop($line);
49 ($user, $sys, $date, $files, $statmsg) = $line =~
50 /^(\S+)\s+(\S+)\s+\((.*),\d+,(\d+)\)(.*)$/;
51 $date = &formatdate($date);
52 $_ = $statmsg; # Using $_ simplifies matching test syntax
53 
54 # Process entries depending on status messages:
55 if (/SUCCEEDED/) { # Outbound call reached target system
56 $sdate=$date; $direction="-<";
57 } else { #
58 if (/startup/) { # Start of transaction
59 $direction = "<-" unless $direction eq "-<";
60 $sdate=$date;
61 } else { # End of transaction
62 if (/complete|CAUGHT|INTREXIT/) {
63 if (/OK/) { # Successful transaction
64 # Compute transaction time as hh:mm:ss
65 ($tty, $sec) = /.*\s(\S+)\s(\d+)\)$/;
66 $hr = int($sec / 3600); $sec -= ($hr * 3600);
67 $min = int($sec / 60); $sec -= ($min * 60);
68 $time = sprintf("in %2d:%2d:%2d",
69 $hr, $min, $sec);
70 $time =~ tr/ /0/; $time =~ s/in0/in /;
71 } else { # FAILED, CAUGHT, INTREXIT, or ???
72 $tty=""; $time = $statmsg;
73 }
74 printf SORT "%s to %s %s %s %s %s files %s\n",
75 $sdate, $date, $tty, $direction,
76 $sys, $files, $time;
77 } else { # Not "complete", CAUGHT, or INTREXIT
78 printf SORT "%s %s %s\n", $date, $sys, $statmsg;
79 } # End of "complete" or "CAUGHT" section
80 $direction = ""; $sdate = ""; # Reset before next transaction
81 } # End of else "startup" section
82 } # End of else /SUCCEEDED/ section
83 } # End of foreach $line (@lines)
84 } # End of if open $logfile
85 
86 # Examine UUCP and UUX logs for host:
87 if ($fflag) { # User-specified log file
88 &report(""); # Log file already open
89 } else {
90 $logfile = "$loguux/$host";
91 &report("$logfile"); # The uux cmd report
92 $logfile = "$loguucp/$host";
93 &report("$logfile"); # The uucp cmd report
94 }
95 
96 # Examine uuxqt[RIK: CAP?] log for host:
97 if ($fflag) {
98 seek(LOG, 0, 0) || # Begin again
99 die "Can't seek: $!: stopped";
100 } else {
101 $logfile = "$loguuxqt/$host";
102 open(LOG,"$logfile") || next; # done with this host
103 }
104 @lines=(grep(/XQT/,<LOG<)); # "XQT" entries only
105 close(LOG); # Done
106 
107 foreach $line (@lines) {
108 chop($line);
109 ($date, $user, $command) = $line =~
110 /^.*\((.*),\d+,\d+\)\s+(\S+)\s+XQT\s+\(.*;(.*)\)$/;
111 $date = &formatdate($date);
112 printf SORT "%s uuxqt for %s: %s\n",
113 $date, $user, $command;
114 }
115 } # End of foreach $host (@hosts)
116 close(SORT); # Flush
117 exit 0;
118 
119 # Generate report from logs written by uucp and/or uux
120 sub report {
121 local($line, $user, $sys, $date, $command);
122 local($file) = @_;
123 
124 if ($file) { # Log file specified
125 open(LOG,"$file") || return;
126 } else { # Log opened earlier
127 seek(LOG, 0, 0) || # Back to beginning
128 die "Can't seek: $!: stopped\n";
129 }
130 @lines=(grep(/QUEUED/,<LOG<)); # "QUEUED" entries only
131 close(LOG) if $file; # Done with named log
132 
133 foreach $line (@lines) {
134 chop($line);
135 ($user, $sys, $date, $command) = $line =~
136 /^(\S+)\s(\S+)\s.*\((.*),\d+,\d+\)\sQUEUED\s\((.*)\)$/;
137 $date = &formatdate($date);
138 printf SORT "%s %s queued for %s: %s\n",
139 $date, $user, $sys, $command;
140 }
141 }
142 
143 # Reformat the date for easier sorting:
144 sub formatdate {
145 local($mon, $day, $hr, $min, $sec);
146 local($date) = @_;
147 
148 ($mon, $day, $hr, $min, $sec) = $date =~
149 /^(\d+)\/(\d+)-(\d+):(\d\d):(\d\d)$/;
150 $fdate = sprintf("%2s/%2s-%2s:%2s:%2s",
151 $mon, $day, $hr, $min, $sec);
152 $fdate =~ tr/ /0/; # pad with zeros, not spaces
153 $fdate; # Return this value
154 }

Listing 2. The krand Korn shell script generates a random number in a specified range with an optionally specified ``seed'' value.

1 #!/bin/ksh
2 # @(#) krand Produces a random number within integer limits
3 # Author: Peter Turnbull, May 1993
4 # Modified by: Becca Thomas, January 1994
5 $DBG_SH # dormant debugging directive (Apr. 92)
6 Usage="Usage: `basename $0` lower-limit upper-limit [seed]"
7 
8 Seed=$$ # Initialize random-number seed value with PID
9 # Process command-line arguments:
10 case $# in
11 2) Lower=$1; Upper=$2 ;;
12 3) Lower=$1; Upper=$2; Seed=$3 ;;
13 *) echo $Usage <&2 ; exit 1 ;;
14 esac
15 
16 # Check that specified values are integers:
17 expr "$Lower" + 0 </dev/null 2<&1
18 [ $? -eq 2 ] && { echo "Lower ($Lower) not an integer" <&2; exit 2;}
19 
20 expr "$Upper" + 0 </dev/null 2<&1
21 [ $? -eq 2 ] && { echo "Upper ($Upper) not an integer" <&2; exit 2;}
22 
23 expr "$Seed" + 0 </dev/null 2<&1
24 [ $? -eq 2 ] && { echo "Seed ($Seed) not an integer" <&2; exit 2;}
25 
26 # Check that values are in the correct range:
27 [ "$Lower" -lt 0 -o `expr "$Lower" : '.*'` -gt 5 ] &&
28 { echo "Lower limit ($Lower) less than zero" <&2; exit 2;}
29 
30 [ "$Upper" -gt 32767 -o `expr "$Upper" : '.*'` -gt 5 ] &&
31 { echo "Upper limit ($Upper) greater than 32767" <&2; exit 2;}
32 
33 [ "$Seed" -lt 0 -o "$Seed" -gt 32767 -o `expr "$Seed" : '.*'` -gt 5 ] &&
34 { echo "Seed value ($Seed) out of range (0 to 32767)" <&2; exit 2;}
35 
36 [ "$Upper" -le "$Lower" ] &&
37 { echo "Upper ($Upper) <= lower value ($Lower)" <&2; exit 2;}
38 
39 # Seed the random-number generator:
40 RANDOM=$Seed
41 
42 # Compute value, scaled within range:
43 let rand="$RANDOM % ($Upper - $Lower + 1) + $Lower"
44 
45 # Report result:
46 echo $rand