blob: 0773fe77604ed95095642e3f3ddf63cec326b1f5 (
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
#########################################
# bless
#########################################
use localbucky;
$dbh = DBI->connect ($dsn);
our ($USER, $lastlog) = checkin();
logout() unless ($USER != -1);
our $blessy = $input->{username};
if (get_uid($blessy) == -1)
{ error("no such user $blessy"); }
elsif ($blessy eq $USER->{username})
{ error("you fucking egomaniac"); }
commit_blessing($blessy);
new_message("$blessy.inbox", {sender => "$USER->{username}", recipient => "$blessy", unread => 1, subject => "You look radiant.", body => "You feel a slight prickling along your nape."});
redirect("$BUCKY/index");
$dbh->disconnect ();
|
