3 # Simple script to run all crons (for tests)
5 # Author: aljeux <aljeux@free.fr>
12 open(F, $file) || die "Unable to open file '$file': $!";
16 if (/^([A-Z]+)="(.*)"/) {
18 print "Loading $1=$2\n";
21 if (/^([A-Z]+)=(.*)/) {
23 print "Loading $1=$2\n";
26 if (/\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+root\s+(.*)/) {
27 print "Running $1 (as root)\n";
30 if (/\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+gforge\s+(.*)/) {
31 print "Running $1 (as gforge)\n";
32 system('su', 'gforge', '-c', $1);