#!/usr/bin/perl $pi = $ENV{'PATH_INFO'}; if( $pi =~ s/^\/nopl// ) { $nopl = 1; } $qs = $ENV{'QUERY_STRING'}; $pn = "http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}"; $head = " $head Programy konwertujące polskie litery "; for $c ( qw( s c u d a w ) ) { if( $qs =~ /code=[^&]*$c/ ) { $code{$c} = 'CHECKED'; } } print "Content-type: text/html; charset=ISO-8859-2\n\n"; if( $pi eq '' ) { print <$head END print "\n\n"; PrintSel(); print "<hr>\n"; PrintIndex(); print "\n\n"; exit; } if( $pi eq '/sel' ) { print "$head"; PrintSel(); print "\n"; exit; } if( $pi eq '/index' ) { print "$head"; PrintIndex(); print "\n"; exit; } if( $pi =~ /dsc=(\d+)/ ) { print "$head"; PrintRec($1); print "\n"; exit; } sub PrintSel { print <

Wyświetlaj programy dla:

Unix'a,
DOS'a,
Windows,
Apple.
Programy w źródłach.
Na serwery WWW.

END } sub PrintIndex { print "

Programy konwertujące:

\n"; print "
    \n"; open( F, "konwersje.dat" ) || die; $n=0; while( ) { chop; if( /^\$\$/ ) { $n++; $allow=0; next; } if( /^\$c (\w+)/ ) { $code = $1; $l = length($code); for( $i=0; $i<$l; $i++ ) { $c = substr($code,$i,1); if( $code{$c} ne '' ) { $allow=1; break; } } next; } if( /^\$t (.+)$/ ) { $title = $1; next; } if( /^\$d (.+)$/ ) { $dsc = $1; if( $allow ) { print "
  1. $title: $dsc\n"; } next; } } close F; print "
\n"; } sub PrintRec { my( $rec ) = @_; print "

Szczegóły nt. programu

\n"; open( F, "konwersje.dat" ) || die; # Przewiń plik do początku danego rekordu $n=0; while( ) { if( /^\$\$/ ) { $n++; if( $n==$rec ) {last;} } } # Wczytaj rekord $longdsc=''; while( ) { chop; if( /^\$\$/ ) { last; } if( $longdsc ne '' ) { $longdsc .= "$_\n"; next; } if( /^\$t (.+)$/ ) { $title = $1; next; } if( /^\$d (.+)$/ ) { $dsc = $1; next; } if( /^\$u (.+)$/ ) { $url = $1; next; } if( /^\$a (.+)$/ ) { $autor = $1; next; } if( /^\$e (.+)$/ ) { $email = $1; next; } if( /^\s*$/ ) { $longdsc="\n"; next; } } close F; if( $title eq '' ) { return; } # Wypisz rekord w tabelce print "\n"; print "
Tytuł: $title\n"; print "
Opis: $dsc\n"; print "
URL: "; @urls = split( /\s+/, $url ); for( @urls ) { print "$_\n"; } print "
Autor: "; if( $email ne '' ) { print "$autor\n"; } else { print "$autor\n"; } print "
\n$longdsc\n"; print "
\n"; }