← Back
Editing: 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] : $!";
Save File
Cancel