44 lines
1.1 KiB
Perl
Executable File
44 lines
1.1 KiB
Perl
Executable File
#!/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;
|
|
}
|
|
|