#!/usr/bin/perl 
use lib("/www/opals/module");
my $scriptname;
BEGIN {
    $scriptname = `basename $0`;
    chomp $scriptname;

    if (!$ENV{'PERL5LIB'} || !$ENV{'OPALS_CONF'} || !$ENV{'DEL_UID'}) {
        exit 1;
    }
}


my $uid =$ENV{'DEL_UID'};
use strict;
use Opals::Context;
use DBI;
use Opals::User qw(
    user_delete
);

my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }
user_delete($dbh,$uid);