commit - 82f6656db64fd1954a7705b28dbb855405f4b663
commit + 1796ac628e96d3b5816c3714b20e8982b460eee1
blob - 2781a100b5b76c41a6b254c1c2c73fffc1d5cec0
blob + 156ce5c80afd246d480a72392dd60e1b23092f55
--- botnow
+++ botnow
@@ -12,7 +12,6 @@ use IRCNOW::IO qw(readarray :DEBUG :DateTime ); # for 
 use IRCNOW::IO::IRC;
 # Path to configuration file
 my $confpath = "botnow.conf";
-my $backupspath = "/home/botnow/backups/";
 
 # Configuration variables will be stored in key => value pairs
 our %conf;
@@ -122,23 +121,20 @@ my $staff = $conf{staff};
 $IRCNOW::IO::IRC::stafflist = [ split(/ /,$staff) ];
 $IRCNOW::IO::verbosity = $conf{verbose};
 my $verbosity = $conf{verbose};
+$IRCNOW::IO::backupspath = $conf{backupspath} ||  "/home/botnow/backups/";
+my $backupspath = $IRCNOW::IO::backupspath;
 
 
+
 my @chans = split /[,\s]+/m, $conf{chans};
 my @teamchans;
 if (defined($conf{teamchans})) { @teamchans = split /[,\s]+/m, $conf{teamchans}; }
-
-
-
 my $nick = $conf{nick};
 my $host = $conf{host};
 my $port = $conf{port};
 my $pass = $conf{pass};
 my $expires = $conf{expires};
-
-
 
-
 unveil("./", "r") or die "Unable to unveil $!";
 unveil("$confpath", "r") or die "Unable to unveil $!";
 unveil("$backupspath", "rwc") or die "Unable to unveil $!";