#!/usr/bin/perl -T
# ==================================================================
# File manager - enhanced web based file management system
#
#   Website  : http://gossamer-threads.com/
#   Support  : http://gossamer-threads.com/scripts/support/
#   CVS Info :                          
#   Revision : $Id: fileman.cgi,v 1.8 2008/01/02 19:33:43 bao Exp $
# 
# Copyright (c) 2001 Gossamer Threads Inc.  All Rights Reserved.
# Redistribution in part or in whole strictly prohibited. Please
# see LICENSE file for full details.
# ==================================================================
use lib '/HDg/HTML/CGI-BIN/private/lib';
use strict;
use vars qw/$CONFIG_PATH/;

use GT::Base qw/:all/;
use GT::CGI;
use GT::FileMan;
$| = 1;
local $SIG{__DIE__} = \&GT::FileMan::fatal;

$CONFIG_PATH = '/HDg/HTML/CGI-BIN/private/fileman.conf';
main();

sub main () {
#-------------------------------------------------------------------
#   Main process
#

        my $fm = GT::FileMan->new(cfg_path => $CONFIG_PATH);
    $fm->process() if $fm;

}