cgi-bin & lib

1 files changed, 23 insertions, 0 deletions

diff --git a/cgi-bin/bless b/cgi-bin/bless
new file mode 100755
index 0000000..0773fe7
--- /dev/null
+++ b/cgi-bin/bless
@@ -0,0 +1,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 ();
+