Ignore lockmem executable.
[bluesky.git] / TBBT / trace_init / ns_tsplit.pl
1 #!/usr/bin/perl -w\r
2 #\r
3 # Copyright (c) 2002-2003\r
4 #      The President and Fellows of Harvard College.\r
5 #\r
6 # Redistribution and use in source and binary forms, with or without\r
7 # modification, are permitted provided that the following conditions\r
8 # are met:\r
9 # 1. Redistributions of source code must retain the above copyright\r
10 #    notice, this list of conditions and the following disclaimer.\r
11 # 2. Redistributions in binary form must reproduce the above copyright\r
12 #    notice, this list of conditions and the following disclaimer in the\r
13 #    documentation and/or other materials provided with the distribution.\r
14 # 3. Neither the name of the University nor the names of its contributors\r
15 #    may be used to endorse or promote products derived from this software\r
16 #    without specific prior written permission.\r
17 #\r
18 # THIS SOFTWARE IS PROVIDED BY THE UNIVERSITY AND CONTRIBUTORS ``AS IS'' AND\r
19 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE\r
20 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\r
21 # ARE DISCLAIMED.  IN NO EVENT SHALL THE UNIVERSITY OR CONTRIBUTORS BE LIABLE\r
22 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL\r
23 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS\r
24 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)\r
25 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT\r
26 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY\r
27 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF\r
28 # SUCH DAMAGE.\r
29 #\r
30 # $Id: ns_tsplit,v 1.4 2003/07/26 20:52:04 ellard Exp $\r
31 \r
32 use Getopt::Std;\r
33 use Time::Local;\r
34 \r
35 $ProgDir = $0;\r
36 $ProgDir =~ /(^.*)\//;\r
37 $ProgDir = $1;\r
38 if (!$ProgDir) {\r
39         $ProgDir = ".";\r
40 }\r
41 \r
42 # Set the default start and end times.\r
43 \r
44 $DEF_BEGIN_TIME = "20000101:00:00:00";\r
45 $DEF_END_TIME   = "20360101:00:00:00";\r
46 \r
47 # The range includes everything from the start time up to and less\r
48 # than the end time (so if you want one day, it is correct to go\r
49 # midnight to midnight, instead of going until 23:59:59).\r
50 \r
51 $Usage =<< ".";\r
52 \r
53 Usage: $0 [options] rangeSpec... - [table.ns [table.ns...]]\r
54 \r
55 Command line options:\r
56 \r
57 -h              Print usage message and exit.\r
58 \r
59 Any number of time range specifier can be provided.  The special\r
60 symbol "-" is used to separated the time specifiers from the input\r
61 file names.  If input is taken from stdin, then the "-" may be\r
62 omitted.\r
63 \r
64 The basic time range specification format is:  StartTime-EndTime where\r
65 StartTime and EndTime have the form YYMMDD[:HH[:MM[:SS]]].  All\r
66 records from the input that have a timestamp greater than or equal to\r
67 StartTime and less than EndTime are printed to stdout.\r
68 \r
69 If StartTime is omitted, $DEF_BEGIN_TIME is used.\r
70 If EndTime is omitted, $DEF_END_TIME is used.\r
71 \r
72 Note that omitting both the StartTime and EndTime results in a rangeSpec\r
73 of "-", which is the special symbol that marks the end of the rangeSpecs.\r
74 .\r
75 \r
76 $cmdline = "$0 " . join (' ', @ARGV);\r
77 $Options = "h";\r
78 if (! getopts ($Options)) {\r
79         print STDERR "$0: Incorrect usage.\n";\r
80         print STDERR $Usage;\r
81         exit (1);\r
82 }\r
83 if (defined $opt_h) {\r
84         print $Usage;\r
85         exit (0);\r
86 }\r
87 \r
88 @StartTimes     = ();\r
89 @EndTimes       = ();\r
90 \r
91 while ($ts = shift @ARGV) {\r
92         last if ($ts eq '-');\r
93 \r
94         my ($ts_s, $ts_e) = split (/-/, $ts);\r
95         my $s;\r
96 \r
97         if ($ts_s eq '') {\r
98                 $ts_s = $DEF_START_TIME;\r
99         }\r
100         $s = &ts2secs ($ts_s);\r
101         if (! defined $s) {\r
102                 print STDERR "Failed to translate ($ts_s)\n";\r
103                 exit (1);\r
104         }\r
105         push @StartTimes, $s;\r
106 \r
107         if ($ts_e eq '') {\r
108                 $ts_e = $DEF_END_TIME;\r
109         }\r
110         $s = &ts2secs ($ts_e);\r
111         if (! defined $s) {\r
112                 print STDERR "Failed to translate ($ts_e)\n";\r
113                 exit (1);\r
114         }\r
115 \r
116         push @EndTimes, $s;\r
117 }\r
118 \r
119 print "#cmdline $cmdline\n";\r
120 \r
121 while ($l = <>) {\r
122         if ($l =~ /^#/) {\r
123                 print $l;\r
124                 next;\r
125         }\r
126 \r
127         my ($type, $time, $client, $fh, $euid, $egid, @vals) = split (' ', $l);\r
128 \r
129         next unless ($type eq 'C');\r
130 \r
131         # Something wrong with the input?\r
132 \r
133         next if (@vals == 0);\r
134 \r
135         if (saveRecord ($time)) {\r
136                 print $l;\r
137         }\r
138 }\r
139 \r
140 exit 0;\r
141 \r
142 sub saveRecord {\r
143         my ($t) = @_;\r
144 \r
145         for (my $i = 0; $i < @StartTimes ; $i++) {\r
146                 if (($StartTimes[$i] <= $t) && ($t < $EndTimes[$i])) {\r
147                         return (1);\r
148                 }\r
149         }\r
150 \r
151         return (0);\r
152 }\r
153 \r
154 # This is ugly!\r
155 #\r
156 # The basic time specification format is:  YYMMDD[:HH[:MM[:SS]]].\r
157 #\r
158 # To make a time range, join two time specs with a -.\r
159 #\r
160 # The data spec is Y2.01K compliant...  I'm assuming that all the\r
161 # traces processed by this tool will be gathered before 2010.  If\r
162 # anyone is still gathering NFSv3 traces in 2010, I'm sorry.\r
163 \r
164 sub ts2secs {\r
165         my ($ts) = @_;\r
166         my ($hour, $min, $sec) = (0, 0, 0);\r
167 \r
168         my (@d) = split (/:/, $ts);\r
169 \r
170         if ($d[0] =~ /([0-9][0-9])([0-2][0-9])([0-3][0-9])/) {\r
171                 $year = $1 + 100;\r
172                 $mon = $2 - 1;\r
173                 $day = $3;\r
174         }\r
175         else {\r
176                 return undef;\r
177         }\r
178 \r
179         if (@d > 1) {\r
180                 if ($d[1] =~ /([0-2][0-9])/) {\r
181                         $hour = $1;\r
182                 }\r
183                 else {\r
184                         return undef;\r
185                 }\r
186         }\r
187 \r
188         if (@d > 2) {\r
189                 if ($d[2] =~ /([0-5][0-9])/) {\r
190                         $min = $1;\r
191                 }\r
192                 else {\r
193                         return undef;\r
194                 }\r
195         }\r
196 \r
197         if (@d > 3) {\r
198                 if ($d[3] =~ /([0-5][0-9])/) {\r
199                         $sec = $1;\r
200                 }\r
201                 else {\r
202                         return undef;\r
203                 }\r
204         }\r
205 \r
206         my $s = timelocal ($sec, $min, $hour, $day, $mon, $year,\r
207                         undef, undef, undef);\r
208 \r
209         my ($s2, $m2, $h2, $md2, $mon2, $y2, $isdst) = localtime ($s);\r
210         if (($s2 != $sec) || $min != $m2 || $hour != $h2 || $day != $md2) {\r
211                 print "failed 1!\n";\r
212         }\r
213         if (($mon != $mon2) || $year != $y2) {\r
214                 print "failed 2!\n";\r
215         }\r
216 \r
217         return ($s);\r
218 }\r
219 \r