#!/usr/bin/perl # cimlista cgi # 1997-8 Matics Gyula # mgyula@ dbmopen( %tajfu, "db/tajfutok", 0600); dbmopen( %clubs, "db/klubbok", 0600); print < Magyar tájfutók az Interneten
Magyar tájfutók az Interneten
Hungarian orienters on the 'Net
Ha az adataidon változtani akarsz, vagy szeretnéd saját www oldalad címét ide bejegyezni, esetleg elérhetõ www szerver hiányában itt szeretnél Magadról, mint tájfutóról további információkat közzétenni, esetleg fel akarsz kerülni a listára vagy le akarsz róla kerülni, akkor küldj egy levelet a webmesternek, azaz nekem: zetor\@ludens.elte.hu
Aki a listában szerepel annak a email címe megtalálható az adatbázisunkban. Ha az alábbi mezõbe beirod a nevének egy részletét (célszerü legalább 3 karaktertert megadni a túl sok találat elkerülése édekében) akkor megtudhatod a címét. A keresõvel kapcsolatos gondjaitokról/vágyaitokról Gyula-nak irjatok. Magyar karaktereket ne használj a keresésben, mert nem veszi figyelembe.
If you want to know the e-mail address of an orienter whose name is in this list, please type a part of his/here name (at least 3 characters) in the search box below. You should not use accented characters, they are ignored. Please note that the names are in hungarian order. (We write our names in reverse order, ie. we write our last name first)
EOT ; foreach( sort keys %tajfu ) { ($fullname,$szulev,$kategoria,$egyesulet,$www,$tmp) = split(/\|/, $tajfu{$_}, 6); print "\n"; } print <
Vissza a magyar nyelvû tájfutó információkhoz!
Back to the Hungarian Orienteering HomePage! EOT ; dbmclose(%tajfu); dbmclose(%clubs);
Név
Name		Születési év/Kategória
date of birth/category		Klub
Club
"; if ($www) { print ''."$fullname" } else { print $fullname; } print ""; if ($szulev) { print $szulev; if ($kategoria) { print "/$kategoria" } } else { if ($kategoria) { print $kategoria } else { print " " } } print ""; if( $egyesulet =~ /\w/ ) { @egyesulet = split(/\//, $egyesulet); $egyesulet = ""; foreach(@egyesulet) { if ($clubs{$_}) { ($e,$www,$tmp) = split(/\|/,$clubs{$_}); if ($www ) { $egyesulet .= " $e "; } else { $egyesulet .= $e; } } else { $egyesulet .= $_ } $egyesulet .= ",
"; } $egyesulet =~ s/,\$//; print $egyesulet; } else { print ' ' } print "