adatok.html 100644 1754 1754 1640 6757506000 7666 0 ustar
SceneSite Database - Add some information of you

cgi-bin/ 40755 1754 1754 0 76011064535 6771 5 ustar cgi-bin/jogok.cgi 104745 0 0 205 6750102320 12220 0 ustar root root #!/usr/bin/perl -w
open(COMMAND,")
{
print "$sor";
system "$sor";
}
close(COMMAND);
exit; cgi-bin/listall.cgi 104745 0 0 1500 6756562060 12613 0 ustar root root #! /usr/bin/perl -w
$nev='../dbase/members.dat';
#kereses
open(F,"<$nev") or die "A ../dbase/members.dat filet nem lehet megnyitni.";
fejlec();
while ($sor=)
{
if ($sor ne "-v-\n")
{
chomp($sor);
($kulcs,$ertek)=split(/ : /,$sor,2);
$regi{$kulcs}=$ertek;
}
if ($sor eq "-v-\n")
{
adatok();
}
}
close(F);
exit;
sub adatok
{
print<
Nicknv : $regi{'nick'}
E-mail cm : $regi{'email'}
Cm : $regi{'irszam'} ,$regi{'varos'} $regi{'utca'}
letkor : $regi{'kor'}
Tel.: $regi{'tel'}
Fax.: $regi{'fax'}
Partykon val rszvtel : $regi{'partys'}
Csapat : $regi{'team'} ,ahol $regi{'poz'}
Homepage : $regi{'homepage'}
Referenciaanyagok : $regi{'referencia'}
vege
}
sub fejlec
{
print "Content-type: text/html\n\n";
}
cgi-bin/search.cgi 104745 0 0 10402 6756566160 12442 0 ustar root root #! /usr/bin/perl -w
use CGI;
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
@adatok=split(/&/, $query);
foreach $adat (@adatok)
{
($nev, $ertek) = split(/=/, $adat);
$ertek =~ tr/+/ /;
$ertek =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$kerdoiv{$nev} = $ertek;
}
$nev='../dbase/members.dat';
#kereses
open(F,"<$nev") or die "A ../dbase/members.dat filet nem lehet megnyitni.";
while ($sor=)
{
if ($sor ne "-v-\n")
{
chomp($sor);
($kulcs,$ertek)=split(/ : /,$sor,2);
$regi{$kulcs}=$ertek;
}
if ($sor eq "-v-\n")
{
if ($regi{'nev'} eq $kerdoiv{'nev'}) {talalat();}
if ($regi{'nick'} eq $kerdoiv{'nick'}) {talalat();}
if ($regi{'email'} eq $kerdoiv{'email'}) {talalat();}
if ($regi{'varos'} ne "") {if ($regi{'varos'} eq $kerdoiv{'varos'}) {talalat();}}
if ($regi{'team'} ne "") {if ($regi{'team'} eq $kerdoiv{'team'}) {talalat();}}
if ($regi{'kor'} ne "") {if ($regi{'kor'} eq $kerdoiv{'kor'}) {talalat();}}
}
}
close(F);
fejlec();
htmlfej();
print<
Nem talltam ilyen kritriumnak megfelel bejegyzst az adatbzisban !
Krlek ellenrizd, htha csak elgpelted...:)