17 lines
216 B
Perl
Executable File
17 lines
216 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
use POSIX qw(strftime);
|
|
|
|
|
|
sub nightly {
|
|
strftime "%Y%m%d", localtime;
|
|
}
|
|
|
|
|
|
our $CONFIG = do $ENV{GLUONDIR} . '/site/site.conf.pl';
|
|
|
|
my $script = shift @ARGV;
|
|
do $script;
|