Added saving of updatelog

pcurse.pm

@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 package pcurse;
 use strict;
-no warnings 'all';
+use DateTime;
 use IO::Socket::SSL;
 use Getopt::Long;
 use Archive::Extract;
@@ -348,4 +348,16 @@ sub init_pool {
 	return $p;
 }
 
+sub updatelog {
+	my $now		= DateTime->now->iso8601();
+	my $addon_name	= shift;
+	my $addon_oldv	= shift;
+	my $addon_newv	= shift;
+	my $filename	= $ENV{'HOME'}.'/.pcurse/update.log';
+	open my $fh, '>>', $filename, or return { retval => 0, message => 'Could not open '.$filename.' for appending' };
+	print $fh $now.': '.$addon_name.': '.$addon_oldv.' => '.$addon_newv."\n";
+	close $fh;
+	return { retval => 1 }
+}
+
 1;