Last change
on this file since 914 was
722,
checked in by price, 16 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
|
Rev | Line | |
---|
[722] | 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.