view release on metacpan or  search on metacpan

lib/QBit/Cron.pm  view on Meta::CPAN

    print "MAILTO=\"$opts{'mail_to'}\"\n" if exists($opts{'mail_to'});
    print "CONTENT_TYPE=\"text/plain; charset=utf-8\"\n";
    print "\n";

    my $cron_cmd = 'perl'
      . (exists($opts{'framework_path'})   ? " -I$opts{'framework_path'}"   : '')
      . (exists($opts{'application_path'}) ? " -I$opts{'application_path'}" : '')
      . " -M$cron_pkg -e'$cron_pkg->new->do'";

    my ($cur_user) = getpwuid($<);
    my $user = $opts{'user'} || $cur_user;
    foreach my $path (sort keys(%$methods)) {
        foreach my $method (sort keys(%{$methods->{$path}})) {
            print join("\t", $methods->{$path}{$method}{'time'}, $user, "$cron_cmd $path $method") . "\n\n";
        }
    }
}

sub get_lock {
    my ($self, $name) = @_;