commit - 0dc24f131c969049a101b195a13d2774ca2a3cd1
commit + a87dee89d63a5dbcb0f7de0504736635f69c7449
blob - ca00848cc9c77d18341866ceda9e7294ee276a9f
blob + 37ceb7f98a2ea9641a595e4f91ed3d01ddc5f2bb
--- botnow
+++ botnow
use File::Copy qw(copy);
use File::Basename;
+# Path to configuration file
+my $confpath = "botnow.conf";
+my $backupspath = "/home/botnow/backups/";
+
# Returns date in YYYYMMDD format
sub date {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
return "true";
}
-# Path to configuration file
-my $confpath = "botnow.conf";
-my $backupspath = "/home/botnow/backups/";
-
# Configuration variables will be stored in key => value pairs
our %conf;