2013-09-28 16:39:32 +00:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
|
|
|
|
use warnings;
|
|
|
|
|
use strict;
|
2014-01-20 00:48:03 +00:00
|
|
|
use POSIX qw(strftime);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sub nightly {
|
|
|
|
|
strftime "%Y%m%d", localtime;
|
|
|
|
|
}
|
2013-09-28 16:39:32 +00:00
|
|
|
|
|
|
|
|
|
2014-05-13 14:49:22 +00:00
|
|
|
our $CONFIG = do $ENV{GLUONDIR} . '/site/site.conf.pl';
|
2013-09-28 16:39:32 +00:00
|
|
|
|
2013-09-30 17:04:35 +00:00
|
|
|
my $script = shift @ARGV;
|
|
|
|
|
do $script;
|
