Can anyone tell me what this does and how to call it?

[Rianna]

Hi, I know this adds links to pages but I don't know if it sticks them in each category as well or is just a link submission. Hoping someone who understand perl could tell me. I found it free online and the writer has no email address. Thank you very much!


#!/usr/bin/perl
#########################################
#@2004-Directory Of Links(FREEVERSION) #
# #
#Donations Appreciated. Send to: #
#William Sherow #
#134F Cook Road, PO Box 507 #
#Preston Hollow, NY 12469 #
# #
#########################################
print "Content-type: text/html\n\n";
####Name of your directory#####
$indexname = "Internet Link Archive";
$path = "/var/www/html/dir";
$domain = "http://www.mrnicepages.com/dir";


$countfile = "counts.txt";
$buffer = $ENV{'QUERY_STRING'};
$count =0;
$count = $count + 1;

open(WERE,"$countfile");
@lines = <WERE>;
close(WERE);
foreach $lines (@lines){
chomp($lines);
($plus,$sum)=split(/\|/,$lines);
}

if ($buffer eq 'add'){
&addnew();
}
sub addnew{
print <<ENDHTML;
Add your link to our directory.<br>
<form action=direct.cgi?addnew method=post>
Title: <input type="text" name="title"><br>
Description: <input type="text" name="description"><br>
Url: <input type="text" name="http" value="http://"><br>
Category:<select name=cat>
<option value=Advertising>Advertising
<option value=Art>Art
<option value=Business>Business
<option value=Computer>Computer Related
<option value=programmers>Programmers
<option value=freehosting>Free Hosting Providers
<option value=paidhosting>Paid Hosting Providers
<option value=searchengines>Search Engines/Free Links
<option value=marketing>Internet Marketing
<option value=freeware>FreeWare
<option value=shareware>Shareware
</select><br>
<input type=submit value=Submit><input type=reset value=Reset></form>
ENDHTML
;
exit;
}
if ($buffer eq 'addnew'){
&addnewlink();
}
sub addnewlink{
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
if ($FORM{cat} eq 'Advertising'){
open(AD,">>$path/advertising.html");
print AD "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(AD);
}
if ($FORM{cat} eq 'Art'){
open(ART,">>$path/art.html");
print ART "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(ART);
}
if ($FORM{cat} eq 'Business'){
open(BU,">>$path/business.html");
print BU "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(BU);
}
if ($FORM{cat} eq 'Computer'){
open(CO,">>$path/computer.html");
print CO "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(CO);
}
if ($FORM{cat} eq 'programmers'){
open(PRO,">>$path/programmers.html");
print PRO "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(PRO);
}
if ($FORM{cat} eq 'freehosting'){
open(FREE,">>$path/freehosting.html");
print FREE "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(FREE);
}
if ($FORM{cat} eq 'paidhosting'){
open(PA,">>$path/paidhosting.html");
print PA "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(PA);
}
if ($FORM{cat} eq 'searchengines'){
open(SE,">>$path/searchengines.html");
print SE "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(SE);
}
if ($FORM{cat} eq 'marketing'){
open(MA,">>$path/marketing.html");
print MA "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(MA);
}
if ($FORM{cat} eq 'freeware'){
open(FREEWARE,">>$path/freeware.html");
print FREEWARE "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(FREEWARE);
}
if ($FORM{cat} eq 'shareware'){
open(SHARE,">>$path/shareware.html");
print SHARE "<font size=4><a href=$FORM{http}>$FORM{title}</a> - </font><font size=2><B>$FORM{description}<br>";
close(SHARE);
}
print "Your link has been successfully added!";
exit;
}
$counter = $count + $plus;
if (-e$countfile){
open(TY,">$countfile");
print TY "$counter|0";
close(TY);
}else{
open(UY,">$countfile");
print UY "0|0";
close(UY);
}
print <<ENDHTML;
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Mozilla/4.7 [en] (Win95; U) [Netscape]">
<title>$indexname</title>
</head>
<body>

<center><b><font size=+4>$indexname</font></b>
<br>
<hr SIZE=3 NOSHADE WIDTH="100%"></center>

<br>&nbsp;
<center><table BORDER COLS=1 WIDTH="50%" BGCOLOR="#000000" >
<tr>
<td>
<center>&nbsp;<b><a href="direct.cgi?add">Add Your Link</a>&nbsp;</b></center>
</td>
</tr>
</table></center>

<center>
<p><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="$domain/advertising.html">Advertising</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a href="$domain/searchengines.html">Search Engines</a></b><b></b>
<p><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a href="$domain/art.html">Art</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a href="$domain/marketing.html">Internet Marketing</a>&nbsp;</b><b><a href="$domain/business.html"></a></b>
<p><b><a href="$domain/business.html">Business</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a href="$domain/freeware.html">Freeware</a></b><b></b>
<p><b>&nbsp;&nbsp; <a href="$domain/computer.html">Computer Related</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;
<a href="$domain/shareware.html">Shareware</a></b><b></b>
<p><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="$domain/programmers.html">Programmers</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a href="$domain/freehosting.html">Free Hosting</a></b><b></b>
<p><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="$domain/paidhosting.html">Paid
Hosting</a></b></center>

<br><b></b>&nbsp;<b></b>
<p><b>Total views to this page: $plus</b>
<br>&nbsp;
</body>
</html>


ENDHTML
;
exit;

[bhammock]

The script does in fact organize the links in categories. Further, links for each category are inserted into separate .html files (for example - advertising category links go to advertising.html).

Hope this helps!