# NB 14.03.19
# - create script: ?
-#################################################################################
-#
-# GLOBALS
-#
-#################################################################################
my ($NAME) = $0 =~ m,([^/]+)$,;
#################################################################################
#
# Parse src file
#
-my @src = map {chomp; $_} grep {/^(\w+=|\*|\d+)/} <>;
+my @src = map {chomp; $_} grep {/^(\w+=|\*|\d+|@)/} <>;
for (my $i=0;$i<@src;$i++) {
if (@_=/^
(
(?:[\*\d\/-]+\s+){5}
- |(?:@\w+\s+)
+ |(?:\@\w+\s+)
)
(\S+)\s+(.*)$/x) {
my $when = $1; chop $when;
my $user = $2;
my $cmd = $3;
- print Dumper(\@_);
- exit;
+ if ($user ne "root"){
+ $_ = join(" ",$when,$cmd);
+ s/"/\\"/g;
+ $src[$i] = qq|su -l "$user" -c "$_"|;
+ };
+ #print Dumper(\@_); exit;
}
- my @F = split(" ",$src[$i]);
-
- next if $src[$i] !~ /^[\*\d]/ or @F<6;
- if ($F[5] ne "root"){
- $_ = join(" ",@F[6..$#F]);
- s/"/\\"/g;
- @_=qq|su -l "$F[5]" -c "$_"|;
- @F = (@F[0..4],"",@_);
- };
- $src[$i] = join(" ",@F[0..4,6..$#F]);
}
+0 and die join("\n",@src);
0 and warn join("\n",@src);
my %src = map {$_=>1} @src;