#!/usr/bin/perl
# ==================================================================
# Links SQL - enhanced directory management system
#
#   Website  : http://gossamer-threads.com/
#   Support  : http://gossamer-threads.com/scripts/support/
#   CVS Info : 087,064,087,086,086 
#   Revision : $Id: add.cgi,v 1.48 2001/12/30 19:33:05 alex 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 strict;
    use lib '/home/samshost/public_html/iranmehr.com/search/admin';
    use Links qw/$CFG/;
    use Links::User::Add;

    local $SIG{__DIE__} = \&Links::fatal;

    Links::init('/home/samshost/public_html/iranmehr.com/search/admin');
    Links::init_user();

    if (GT::Plugins->dispatch ($CFG->{admin_root_path} . '/Plugins', 'check_request', \&Links::check_request)) {
        GT::Plugins->dispatch ($CFG->{admin_root_path} . '/Plugins', 'handle_add', \&Links::User::Add::handle);
    }