add perl script to save summary changes to DB

cgi/save_summary.pl

@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+use Carp qw(confess);
+use CGI::Carp qw(fatalsToBrowser);
+use CGI;
+# use Date::Simple qw(date);
+# use Encode::Guess;
+# use Encode;
+# use HTML::Template;
+# use Config::File;
+# use File::Slurp;
+use lib 'lib';
+use IrcLog qw(get_dbh);
+# use IrcLog::WWW qw(http_header message_line my_encode);
+# use Cache::SizeAwareFileCache;
+
+my $c       = CGI->new;
+my @actions = (scalar($c->param('uncheck')), scalar($c->param('check')));
+
+for (@actions) {
+    die "Invalid parameter format" unless /^(?:[0-9]+(?:\.[0-9]+)*)?$/
+}
+
+my $dbh = get_dbh();
+
+for (0, 1) {
+    if (length($actions[$_])) {
+        my @ids = split /\./, $actions[$_];
+        my $sth = $dbh->prepare("UPDATE irclog SET in_summary = $_ WHERE id IN (".
+                                join(', ', ('?') x @ids) . ')');
+        $sth->execute(@ids);
+    }
+}
+
+print $c->header(-status => 201);