view release on metacpan or  search on metacpan

make_cron  view on Meta::CPAN

my $time    = $opts{"t"};
my $thost   = $opts{"T"};

$dohost =~ tr/A-Z/a-z/;

$time = "0:01" unless $time;

#
#  Default user
#
my $user = $opts{"u"} || (getpwuid($<))[0];
my $wuser = (getpwuid($<))[0];

#
#  Store information as follows:
#
#  $cron->{user}->{host}->{ cron }->[ min hour day mon weekday args ]
#                       ->{ nightly }->{order}
my $cron = {};
my $cwd = cwd;

#