Current File : //usr/share/webmin/cron/cron_editor.pl
#!/usr/bin/perl
# cron_editor.pl
# Called by crontab -e to edit an users cron table..
sleep(1); # This is needed because the stupid crontab -e command
# checks the mtime before and after editing, and if they are
# the same it assumes no change has been made!!
open(SRC, $ENV{"CRON_EDITOR_COPY"});
open(DST, ">$ARGV[0]") || die "Failed to open $ARGV[0] : $!";
while(<SRC>) {
if (!/^#.*DO NOT EDIT/i && !/^#.*installed on/i &&
!/^#.*Cron version/i) {
(print DST $_) || die "Failed to write to $ARGV[0] : $!";
}
}
close(SRC);
close(DST) || die "Failed to write to $ARGV[0] : $!";
Mini Shell