$cmd = $in{'cmd'}; $this = $in{'this'}; if (($cmd eq 'display') && ($this eq 'page1')) { $title = "Free Hosting Table Page 1"; $bline = 0; $eline = 99; &displaypage; } elsif (($cmd eq 'display') && ($this eq 'page2')) { $title = "Free Hosting Table Page 2"; $bline = 100; $eline = 199; &displaypage; } elsif (($cmd eq 'display') && ($this eq 'page3')) { $title = "Free Hosting Table Page 3"; $bline = 200; $eline = 299; &displaypage; } elsif (($cmd eq 'display') && ($this eq 'page4')) { $title = "Free Hosting Table Page 4"; $bline = 300; $eline = 399; &displaypage; } elsif (($cmd eq 'display') && ($this eq 'page5')) { $title = "Free Hosting Table Page 5"; $bline = 400; $eline = 499; &displaypage; } elsif (($cmd eq 'display') && ($this eq 'page6')) { $title = "Free Hosting Table Page 6"; $bline = 500; $eline = 599; &displaypage; } elsif (($cmd eq 'display') && ($this eq 'page7')) { $title = "Free Hosting Table Page 7"; $bline = 600; $eline = 629; &displaypage; } sub displaypage { &print_header; open(FILE, "; close(FILE); $linenum = 1; $altnum = 1; print "
Free Host Name<\/td>Space<\/td>Uploads<\/td>Forced Ads<\/td>Scripts<\/td>Features<\/td><\/tr>\n"; foreach $item (@lines[$bline..$eline]) { @thisArray = split(/\|/, $item); if ($altnum eq "1") { $altnum = 0; $bgc = "#000080"; } elsif ($altnum eq "0") { $altnum = 1; $bgc = "#000099"; } print "
@thisArray[0]<\/td>@thisArray[1]<\/a><\/td>@thisArray[6] MB<\/td>@thisArray[7]<\/td>@thisArray[5]<\/td>@thisArray[10]<\/td>more<\/a><\/td><\/tr>"; $linenum++; } &last; } sub last { print "<\/td><\/tr><\/table>\n\n"; &print_footer; } sub print_header { print <<"EOF"; $title
$title

EOF } sub print_footer { print <<"EOF";


EOF }