Last change
on this file since 1973 was
722,
checked in by price, 17 years ago
|
import sec-tools scripts
Two of these are obsolete, named with .old in /mit/scripts/sec-tools;
I'm going to remove them in the next commit. But they'll be in the
svn history here, which is better than lying around with .old names.
|
-
Property svn:executable set to
*
|
File size:
583 bytes
|
Line | |
---|
1 | #!/usr/bin/perl |
---|
2 | |
---|
3 | system("/mit/scripts/sec-tools/get-passwd.sh"); |
---|
4 | system("/mit/scripts/sec-tools/parallel-find.pl"); |
---|
5 | sleep 5; |
---|
6 | |
---|
7 | while(1) { |
---|
8 | my $count = `ps -ef | grep find | grep $ENV{USER} | grep -v ps | grep -v grep | wc -l | tr -d '\n'`; |
---|
9 | if ($count eq '0') { |
---|
10 | last; |
---|
11 | } |
---|
12 | else { |
---|
13 | print "Current have $count find processes running. Please wait.\n"; |
---|
14 | sleep 1; |
---|
15 | } |
---|
16 | } |
---|
17 | |
---|
18 | print "Done finding files\n"; |
---|
19 | system("cat /mit/scripts/sec-tools/store/versions/* >| /mit/scripts/sec-tools/store/scripts-versions"); |
---|
20 | print "Done\n"; |
---|
21 | #print `cat /mit/scripts/sec-tools/store/versions/`; |
---|
Note: See
TracBrowser
for help on using the repository browser.