|
Last change
on this file since 902 was
722,
checked in by price, 18 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.
