#-*-perl-*-
# Miscillaneous projects utilities
#

# cleandie cleans up before it dies.
sub cleandie {
    local($dietext);
    $dietext = $_[0];
    close OUT;
    close ORIG;

    unlink("$hthome/$$.html");
    unlink("$hthome/$$.txt");

    die $dietext;
}

# gohome cleans up and exits.
sub gohome {
    unlink("$hthome/$$.html");
    unlink("$hthome/$$.txt");
    exit(0);
}    


# Dagnabbit, this is an annoying "feature"
1;
