#!/usr/bin/perl -w

($cgi_bin, $cgi_script) = ($0 =~ m:(.*)[/\\](.*):);

$query = $ENV{QUERY_STRING};

if ($query eq '') {
    # generate a form
    print <<FORM;
Content-type: text/html

<HTML>
<HEAD><TITLE>A statisztikus fizikai p&eacute;ldat&aacute;r keresõje</TITLE></HEAD>

<body text="#000000" link="#0000AA" vlink="#0000AA" alink="#cc2200" background="hatter">
<br>
<CENTER><H1><FONT COLOR = "#4400FF">
A statisztikus fizikai p&eacute;ldat&aacute;r keresõje <P>
</FONT></H1></CENTER>
<br>
<img height=3 width=100% src="barra1.jpg"><br><BR><BR>

<FORM METHOD="GET" ACTION="$cgi_script">

<h1><font color="maroon">A keresõ haszn&aacute;lata:</font></h1><br>
A keresõ a be&iacute;rt kulcssz&oacute; alapj&aacute;n kikeresi azokat a dokumentumokat, melyekben a sz&oacute; legal&aacute;bb egyszer elõfordul. Lehetõs&eacute;g van t&ouml;bb kulcssz&oacute; alapj&aacute;n is keresni. Ilyenkor a keresõ azokat a dokumentumokat keresi ki, melyekben van olyan sor, ami tartalmazza mindegyik kulcskifejez&eacute;st. A szavakat ilyenkor '&' karakterrel v&aacute;lasszuk el egym&aacute;st&oacute;l. Ha ékezetes karakterek nem állnak rendelkezésünkre, akkor azok helyett nyugodtan használhatunk ékezet nélkülieket.<br> 

<br>

G&eacute;pelje be a kulcskifejez&eacute;st!<BR>
<INPUT NAME="field"><P>

Ha be&iacute;rta a kulcssz&oacute;t, akkor klikkeljen az al&aacute;bbi ikonra!<BR>
<INPUT TYPE="submit">

<br>
<img height=3 width=100% src="barra1.jpg"><br>
<BR>
<a href="http://elmfiz.elte.hu/sfp/statfiz_peldatar/ind.html">Vissza</a>


</FORM>
</HTML>
FORM

} else {
    # print the query results
    print "Content-type: text/html\n\n";
    print "<HTML>\n";
    print "<HEAD><TITLE>GET Form Results</TITLE></HEAD>\n";
    print "<BODY>\n";
    print "A kulcssz&oacute;hoz kapcsol&oacute;d&oacute; dokumentumok:<P>\n";
    @fields = split('&', $query);
    foreach (@fields) {
        Switch: {
           


            /^field=(.*)/ && do {
                $field = &decode($1);
                last Switch;
            };
            /^secret=(.*)/ && do {
                $secret = &decode($1);
                last Switch;
            }
        }
    }
   


    $xx = 0;
    $kulcsstring1 = &html($field);

    $ekez{1} = index($kulcsstring1,'á');
    $ekez{2} = index($kulcsstring1,'é');
    $ekez{3} = index($kulcsstring1,'ó');
    $ekez{4} = index($kulcsstring1,'í');
    $ekez{5} = index($kulcsstring1,'ú');
    $ekez{6} = index($kulcsstring1,'ö');
    $ekez{7} = index($kulcsstring1,'ü');
    $ekez{8} = index($kulcsstring1,'õ');
    $ekez{9} = index($kulcsstring1,'û');
    $ekez{10} = index($kulcsstring1,'Á');
    $ekez{11} = index($kulcsstring1,'É');
    $ekez{12} = index($kulcsstring1,'Ó');
    $ekez{13} = index($kulcsstring1,'Í');
    $ekez{14} = index($kulcsstring1,'Ú');
    $ekez{15} = index($kulcsstring1,'Ö');
    $ekez{16} = index($kulcsstring1,'Ü');
    $ekez{17} = index($kulcsstring1,'Õ');
    $ekez{18} = index($kulcsstring1,'Û');

$uu = 0;
for ($pp=1;$pp<=18;$pp++)
{

if ($ekez{$pp} != -1)
{
$uu = 1;
}
}

    $kulcsstring = join('','&',$kulcsstring1);
    $rr = 1;
while($athely != -1)
{    
#   $athely = index($kulcsstring,'&');
    $atstr = substr($kulcsstring,1);
    $athely1 = index($atstr,'&');
    
if ($athely1 != -1)
{
  
    $kulcsszo{$rr} = substr($atstr,0,$athely1);
    
    $atstr = substr($atstr,$athely1);
		   }
if ($athely1 == -1)
{
    $kulcsszo{$rr} = $atstr;
}

$kulcsstring = $atstr;


$athely =  index($kulcsstring,'&');
++$rr;
}




for ($i=1; $i<449; $i++)
{
    
    $nev = join('','node',$i,'.html');
#    print $nev;
#    print "<BR>";
    
    
open(F, $nev) || die;

    $hely2 = -1;

while ($sor = <F>)
{
    $jj=0;
if ($uu != 1)
{
    $sor =~ s/á/a/g;
    $sor =~ s/é/e/g;
    $sor =~ s/ú/u/g;
    $sor =~ s/í/i/g;
    $sor =~ s/ó/o/g;
    $sor =~ s/ö/o/g;
    $sor =~ s/ü/u/g;
    $sor =~ s/õ/o/g;
    $sor =~ s/û/u/g;
    $sor =~ s/Á/A/g;
    $sor =~ s/É/E/g;
    $sor =~ s/Ú/U/g;
    $sor =~ s/Í/I/g;
    $sor =~ s/Ó/O/g;
    $sor =~ s/Ö/O/g;
    $sor =~ s/Ü/U/g;
    $sor =~ s/Õ/O/g;
    $sor =~ s/Û/U/g;
}

    for ($hh=1;$hh<=$rr;$hh++)
{
    $hely{$hh} = index($sor,$kulcsszo{$hh});
    if ($hely{$hh} != -1)
{
    ++$jj;
}

}
    $hely1 = index($sor,'description');
    if ($hely1 != -1) {
        $hely2=index($sor,'1');
#        $szam = substr($sor,$hely2,5);
 
         $charff = 'CONTENT';
         $hely1ff = index($sor,$charff);         
         $lancff = substr($sor,$hely1ff);
         $char1ff = '"';
         $hely2ff = index($lancff,$char1ff);
         $lanc1ff = substr($lancff,$hely2ff,-3);
         $szam = substr($lanc1ff,1);
        
         
    }
        
    if (($jj == $rr)&($hely2 != -1)) {
        

    $xx =1;
        $kapcs = join('','<a href = "http://www.theorphys.elte.hu/sfp/statfiz_peldatar/',$nev,'">',$szam,'</a><BR>');
        
        print $kapcs;
        goto vege;
    }
}
vege:
close(F);

}

if ($xx == 0)
{
    print 'A keresõ nem talált megfelelõ dokumentumot';

}
    print "</HTML>\n";
}


sub decode {
    local ($value) = @_;
    $value =~ s/\+/ /g;
    $value =~ s/%([0-9A-H]{2})/pack('C',hex($1))/eg;
    return $value;
}
        
sub html {
    local ($value) = @_;
    $value =~ s/</&lt;/g;
    $value =~ s/>/&gt;/g;
    return $value;
}













