blob: 356cf5df9b0cb2470cf70c95f5a97ed73b3908ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 ();
|
