Have a question to someone who reads perl

Hi, Here is a script I am interested in. Later I'll have to figure out if I can connect it to a form imput. All I need to know is if you think this will have problems if the categories fill up. As in having difficulty overflowing the links to a second page etc. in the same category. The writer of the script has no email to ask. Thanks, please let me know, here's the script.

#!/usr/bin/perl
#########################################
#@2004-Directory Of Links(FREEVERSION) #
# #
#########################################
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. 
<form action=direct.cgi?addnew method=post>
Title: <input type="text" name="title"> 
Description: <input type="text" name="description"> 
Url: <input type="text" name="http" value="http://"> 
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> 
<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 "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
close(AD);
}
if ($FORM{cat} eq 'Art'){
open(ART,">>$path/art.html");
print ART "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
close(ART);
}
if ($FORM{cat} eq 'Business'){
open(BU,">>$path/business.html");
print BU "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
close(BU);
}
if ($FORM{cat} eq 'Computer'){
open(CO,">>$path/computer.html");
print CO "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
close(CO);
}
if ($FORM{cat} eq 'programmers'){
open(PRO,">>$path/programmers.html");
print PRO "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
close(PRO);
}
if ($FORM{cat} eq 'freehosting'){
open(FREE,">>$path/freehosting.html");
print FREE "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
close(FREE);
}
if ($FORM{cat} eq 'paidhosting'){
open(PA,">>$path/paidhosting.html");
print PA "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
close(PA);
}
if ($FORM{cat} eq 'searchengines'){
open(SE,">>$path/searchengines.html");
print SE "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
close(SE);
}
if ($FORM{cat} eq 'marketing'){
open(MA,">>$path/marketing.html");
print MA "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
close(MA);
}
if ($FORM{cat} eq 'freeware'){
open(FREEWARE,">>$path/freeware.html");
print FREEWARE "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
close(FREEWARE);
}
if ($FORM{cat} eq 'shareware'){
open(SHARE,">>$path/shareware.html");
print SHARE "<a href=$FORM{http}>$FORM{title}</a> - $FORM{description} ";
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>$indexname
 
<hr SIZE=3 NOSHADE WIDTH="100%"></center>

<center>
         <a href="$domain/advertising.html">Advertising</a> Engines</a>
 
<a href="$domain/art.html">Art</a> 
<a href="$domain/marketing.html">Internet Marketing</a> <a href="$domain/business.html"></a>
<a href="$domain/business.html">Business</a> 
   <a href="$domain/computer.html">Computer Related</a>  
<a href="$domain/shareware.html">Shareware</a>
       <a href="$domain/programmers.html">Programmers</a> Hosting</a>
         <a href="$domain/paidhosting.html">Paid
Hosting</a></center>

Total views to this page: $plus
  
</body>
</html>

ENDHTML
;
exit;

[edited by: jatar_k at 2:45 pm (utc) on Sep. 25, 2006]
[edit reason] fixed sidescroll [/edit]

Have a question to someone who reads perl

Simone100

perl_diver

Simone100

perl_diver

Simone100

Join The Conversation

Moderators and Top Contributors

Hot Threads This Week