Radix links: Links added currently

#!/usr/bin/perl open(BE, "; close(BE); open(JUMP, "; close(JUMP); @k = (); #$x = ''; $x = '

'; push(@k, $x); $p = 0; $ok = 0; until ($ok == 50) { if (substr($b[$p], 0, 2) eq "|1") { $ok++; $x1 = ''."\n"; push(@k, $x1, $x2, $x3, $x4, $x5, $x6, $x7, $x8); } $p++; } $x = "

'; $x2 = substr($b[$p], 2); chomp($x2); $x3 = substr($b[$p+1], 2); chomp($x3); $x4 = '
	'; $x5 = substr($b[$p+3], 2); chomp($x5); $x6 = " [Language: ".substr($b[$p+2], 2)."] [Added: "; chomp($x6); $x7 = substr($b[$p+5], 2); chomp($x7); $x7 =~ s/(....)(..)(..)/$3\/$2\/$1/; $x7 =~ s/00\/00\/0000/before July 1999/; $x8 = ']

\n"; push(@k, $x); print "Content-type: text/html\n\n"; print <Radix links: Links added currently

@gjump

SZOVEG require "banrot_d.pl"; print <

Radix links: Links added currently

SZOVEG