commit 6941c9c13d739183241826b5c924ef1608b73c3e
from: jrmu <jrmu@ircnow.org>
date: Tue Mar 07 15:50:57 2023 UTC

Make writes safer with backups

commit - e5de9347f708792a7ea7b293f3539b3ae34268d8
commit + 6941c9c13d739183241826b5c924ef1608b73c3e
blob - d5722b6ec40404ce17a8e4a369b0bb6935abe7e6
blob + c725f59d1bba9b37ce95de1a763f46af50265a38
--- botnow
+++ botnow
@@ -39,7 +39,7 @@ sub readstr {
 sub writefile {
 	my ($filename, $str) = @_;
 	my $date = date();
-	copy($filename, "/home/botnow/".basename($filename).date()) or die "Could not make backup of $filename";
+	copy($filename, $homepath.basename($filename).".".date()) or die "Could not make backup of $filename";
 	open(my $fh, '>', "$filename") or die "Could not write to $filename";
 	print $fh $str;
 	close $fh;