cgi-bin & lib

1 files changed, 23 insertions, 0 deletions

diff --git a/cgi-bin/murder b/cgi-bin/murder
new file mode 100755
index 0000000..356cf5d
--- /dev/null
+++ b/cgi-bin/murder
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+#########################################
+# not bless
+#########################################
+
+use localbucky;
+
+$dbh = DBI->connect ($dsn);
+
+our ($USER, $lastlog) = checkin();
+logout() unless ($USER != -1);
+
+my $blessy = $input->{username};
+if (get_uid($blessy) == -1)
+        { error("no such user"); }
+elsif ($blessy eq $USER->{username})
+        { error("THE GUN JAMS"); }
+commit_murder($blessy);
+add_comment(1,-1,"system","BUT WHAT WILL WE DO WITH THE BODY");
+redirect("$BUCKY/index");
+
+$dbh->disconnect ();
+