#!/usr/bin/perl

##########################################################################
##               
               
               
               
            ##
##               
         IntelliLink Manager Free              &n
bsp;         ##
##               
         ------------------------  
               
       ##
##               
        by Jimmy (wordx@hotmail.com)              &nb
sp;         ##
##               
         http://www.smartCGIs.com            &
nbsp;           ##
##               
               
               
               
            ##
##    This version of IntelliLink is free, if anyone sold it to you        ##
##    please contact me. Please DO NOT remove any of the copyrights or    ##
##    links to our site, they keep this CGI free for everyone. Thanks!    ##
##               
               
               
               
            ##    
##               
   (c) copyright 2000 The Mp3eCom Network             &nbsp
;  ##
##########################################################################

print "Content-type: text/html\n\n";

require "variables.cgi";
$sitename = "$variables{'sitename'}";
$cgiurl = "$variables{'cgiurl'}";
$body = "$variables{'body'}";    

$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$in{$name} = $value;
}
$start = $in{'start'};
$end = $in{'end'};
if($start eq "") { $start = 1; }
if($end eq "") { $end = 20; }
open(DATA,"data.txt");
flock (DATA,2);
@data = <DATA>;
flock (DATA,8);
close(DATA);
@data = sort {$b <=> $a} @data;
foreach $line(@data) {
$counter++;
@linedata = split (/\|/, $line);
if($counter >= $start) {
               
         print "$counter. <a href=\"$cgiurl/out.cgi?id=$linedata[2]\" style=\"text-decoration: none\" onmouseover=\"window.status='In:$linedata[0] Out:$linedata[1] Description: $linedata[5]';return true\" onmouseout=\"window.status=''; return true\" target=\"_blank\">$linedata[4]</a><br>\n";
               
         }
if($counter eq $end) { exit; }
}

  print "$counter...