#!/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 ();