sub main {

#!/usr/bin/perl
# ==============================================================
#
# Report a bad link version '2.1.1a'
# Links SQL code copyright Gossamer Threads
# http://www.gossamer-threads.com
# Modifications and code segments copyright PUGDOG Enterprises, Inc.
# http://www.pugdog.com
# Updates for Links SQL 2.1.1 Compatiblity by Andy
# http://www.ace-installer.com
#
# ==============================================================

# Load required modules.
# ---------------------------------------------------
use lib '/path/to/your/admin/folder';
use Links qw/$IN $DB $CFG $USER/;
use strict;
use Links::SiteHTML;
use Links::Authenticate;
use Links::Plugins;
use vars qw/$BAD_LINK_CFG/;
use CGI::Carp qw(fatalsToBrowser);

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

Links::init('/path/to/your/admin/folder');
Links::init_user();

# make sure they are logged in....you can comment out the next 4 lines if you don't mind them not being logged in...
if (!$USER) {
print $IN->header();
print Links::SiteHTML::display( 'error', { error => "You need to be logged in to use this function...." } );
exit;
}

# lets initiate it...
&main;