source: trunk/locker/sbin/get-versions.pl @ 1916

Last change on this file since 1916 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
3system("/mit/scripts/sec-tools/get-passwd.sh");
4system("/mit/scripts/sec-tools/parallel-find.pl");
5sleep 5;
6
7while(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
18print "Done finding files\n";
19system("cat /mit/scripts/sec-tools/store/versions/* >| /mit/scripts/sec-tools/store/scripts-versions");
20print "Done\n";
21#print `cat /mit/scripts/sec-tools/store/versions/`;
Note: See TracBrowser for help on using the repository browser.