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