#!/usr/local/bin/perl
# ==================================================================
# MySQLMan - web based MySQL manager.
#
#   Website  : http://gossamer-threads.com/
#   Support  : http://gossamer-threads.com/scripts/support/
#   CVS Info : 087,071,086,086,085      
#   Revision : $Id: mysql.cgi,v 1.54 2003/09/25 04:13:08 jagerman Exp $
# 
# Copyright (c) 2000 Gossamer Threads Inc.  All Rights Reserved.
# Redistribution in part or in whole strictly prohibited.
# ==================================================================
#
# Auto set the path.  If the path is not set automatically then 
# change the following line and fill in the full path.
use lib '/var/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin';
use strict;
# (You may need change the auto set path part of mysql.cfg as well.)
#

use MySQLMan;


$|=1;
BEGIN {
    $SIG{__DIE__} = sub {
        require Carp;
        print "Content-type: text/html\r\n\r\n<pre>";
        print "Died: @_\n";
        Carp::confess("@_\n");
    };
}

main();

sub main {
# ---------------------------------------------------
# The main program.
#
    my $mysql = new MySQLMan;
    $mysql->process;
}