view release on metacpan or  search on metacpan

lib/ParseCron.pm  view on Meta::CPAN

        ($k, $v) = ($1, $2);
    } 
    elsif (!$posix and $crontab =~ m/^([^= \t]+)[ \t]*=(.*)/s) {
        ($k,$v) = ($1, $2);
        $v = ($crontab =~ s/^[ \t]+//);
    } 
    elsif (!$posix and $crontab =~ m/^\@(\w+)[ \t]+(.*)/s and exists $atword{lc $1}) {
        $english = process_command($crontab, $atword{lc $1}, $2);
    }
    # for adding commands to be run to cron lines:
    #elsif ((@bits = split m/[ \t]+/, $crontab, 6) and @bits == 6) { 
    elsif ((@bits = split m/[ \t]+/, $crontab, 5) and @bits == 5) {
        $english = process_command($crontab, @bits);
    } 
    else {
        $english = 'ERROR';
    }

    $english = 'ERROR' if scalar (@bits) > 5;
    
    return $english;
}