#!/usr/bin/perl ############################################ ## ## ## Links Mangement Script ## ## last modified: July/2003 ## ## copyright (c) 2002 ## ## ## ## Developed by Kaviraj Kodai ## ## www.eDesignParadigm.com ## ## (scripts@edesignparadigm.com) ## ## ## ## For Larry Sullivan ## ## www.linking101.com ## ## (larry@linking101.com) ## ## ## ################################################################ # COPYRIGHT (C) 2002 WWW.LINKING101.COM. ALL RIGHTS RESERVED # ################################################################ # Copyright Notice # # ---------------- # # This program is a commercial product and must NOT be copied, # # modified, distributed, or installed without a user license # # from http://www.linking101.com. Any modification of the # # script without the written consent of Larry Sullivan is # # strictly prohibited. You may not remove any of these header # # notices. By using this code you agree to indemnify the author# # from any liability that might arise from it's use. # ################################################################ ################################################################ # DO NOT EDIT ANYTHING BELOW # ################################################################ use CGI qw (:standard); use CGI::Carp qw(fatalsToBrowser); require "config.cgi"; &configure; $cat = param('cat'); chomp($cat); $maintitle = "Net Detective Online - Links Page"; open (FILE1, "$header"); @header= ; close(FILE1); open (FILE2, "$footer"); @footer = ; close(FILE2); print "Content-type: text/html\n\n"; print "@header

$maintitle

"; print "
$cat
"; open(LIST, "$users"); @list = ; close(LIST); foreach $line (@list){ @temp = split(/\|/,$line); if ($temp[6] eq $cat){print "
  • $temp[4] - $temp[5]
    "; } } print <
    Return to Link Categories

    • @footer html2_ exit; sub error{ $message = shift(@_); print "Content-type: text/html\n\n"; print < Error
    $message
    html_ exit; } # end of script