#!/usr/bin/perl $vo = $ENV{QUERY_STRING}; if ($vo eq '') { print "Content-type: text/html\n\n"; exit; } #$vo = "language"; $hossz = length($vo); open(BE, "; close(BE); open(JUMP, "; close(JUMP); @k = (); #$x = ''; $x = '
'; push(@k, $x); @head = (); $p = 0; for (@b) { if (substr($b[$p], 3, $hossz) eq $vo and substr($b[$p], 0, 3) eq "[[[") { $tit = $b[$p+1]; $zz = 2; while (substr($b[$p+$zz], 0, 3) ne "[[[") { push(@head, $b[$p+$zz]); $zz++; } } if (substr($_, 2, $hossz) eq $vo and substr($_, 0, 1) eq "|") { $x1 = ''."\n"; push(@k, $x1, $x2, $x3, $x4, $x5, $x6, $x7, $x8); } $p++; } $x = "
'; $x2 = substr($b[$p-4], 2); chomp($x2); $x3 = substr($b[$p-3], 2); chomp($x3); # $x4 = '
'."   ".''; $x4 = '
'; $x5 = substr($b[$p-1], 2); chomp($x5); $x6 = " [Language: ".substr($b[$p-2], 2)."] [Added: "; chomp($x6); $x7 = substr($b[$p+1], 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: $tit
@gjump SZOVEG #require "banrot_d.pl"; print <

Radix links: $tit

@head @k
SZOVEG