Loading install.pl +3 −2 Original line number Original line Diff line number Diff line Loading @@ -290,10 +290,11 @@ sub check_cron { chomp(my $answer = <STDIN>); chomp(my $answer = <STDIN>); if ($answer eq 'Y' || $answer eq 'y' || $answer eq '') { if ($answer eq 'Y' || $answer eq 'y' || $answer eq '') { print "CRON SHALL BE INSTALLED\n"; print "[INFO] Installing cron.\n"; copy("cron.pl", "/etc/cron.weekly/fi_printers_cron.pl") copy("cron.pl", "/etc/cron.weekly/fi_printers_cron.pl") or die "Could not copy cron script\n"; or die "Could not copy cron script\n"; chmod 0700, "/etc/cron.weekly/fi_printers_cron.pl" chmod 0700, "/etc/cron.weekly/fi_printers_cron.pl"; print "[INFO] Cron installed\n"; } } } } } } Loading Loading
install.pl +3 −2 Original line number Original line Diff line number Diff line Loading @@ -290,10 +290,11 @@ sub check_cron { chomp(my $answer = <STDIN>); chomp(my $answer = <STDIN>); if ($answer eq 'Y' || $answer eq 'y' || $answer eq '') { if ($answer eq 'Y' || $answer eq 'y' || $answer eq '') { print "CRON SHALL BE INSTALLED\n"; print "[INFO] Installing cron.\n"; copy("cron.pl", "/etc/cron.weekly/fi_printers_cron.pl") copy("cron.pl", "/etc/cron.weekly/fi_printers_cron.pl") or die "Could not copy cron script\n"; or die "Could not copy cron script\n"; chmod 0700, "/etc/cron.weekly/fi_printers_cron.pl" chmod 0700, "/etc/cron.weekly/fi_printers_cron.pl"; print "[INFO] Cron installed\n"; } } } } } } Loading