#!/usr/bin/perl -w use CGI qw/:standard/; $FONTF=''; $_FONT=""; sub FONTC { return ""; } sub FONTS { return ""; } sub TABLA { my $colorborde=shift; my $colortabla=shift; my $ancho=shift; my $ret="; close PREGUNTAS; @preguntas = split /\n\*\n/, $preguntas; %elegibles = (); $niveles = join "|", @niveles; for $i (0..$#preguntas) { if ($preguntas[$i] =~ /^$niveles/s) { $elegibles{$i} = $preguntas[$i]; } } if (keys %elegibles < $cant) { $cant = keys %elegibles; } print "Content-Type: text/html\nPragma: no-cache\nSet-cookie: TLTRazar=$azar\n\n"; print "Trivia - preguntas\n"; print ""; print "
" . FONTS(5) . $FONTF . FONTC("white") . "   T R I V I A - preguntas" . $_FONT x 3 . "

\n"; print TABLA("black", "white"); print $FONTF . FONTS("-1") . "Muy bien, " . FONTC("maroon") . "$nombre" . $_FONT . ", a ver cuánto sabés de telenovelas..." . $_FONT x 2 . "

\n"; print "

\n"; print FONTS("-1") . "$FONTF
    "; while ($cant--) { $i = (keys %elegibles)[int(rand(scalar(keys %elegibles)-1))]; @pyr = split /\n=\n/, $elegibles{$i}; @preg = split /\n/, $pyr[0]; print "
  1. " . FONTC("maroon"); for $j (1..$#preg) { print $preg[$j] . "\n"; } print "$_FONT
    \n"; @resp = split /\n/, $pyr[1]; for $j (0..$#resp) { if ($resp[$j] =~ /^\*/) { next; } if ($resp[$j] =~ /^\s*$/) { next; } $resp[$j] =~ s/^>//; $checked = $j ? "" : "checked"; print " " . FONTC("black") . $resp[$j] . "$_FONT
    \n"; } print "
    \n"; delete $elegibles{$i}; } print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "$_TABLA
\n"; sub error { print "Content-type: text/html\nPragma: no-cache\n\n"; print "Error\n"; print "Error. Mejor vuelva por donde vino.\n"; print "
cant es $cant
"; print "niveles es " . @niveles; print "\n"; exit; } sub opciones { my $ret = "Content-type: text/html\nPragma: no-cache\n"; $ret .= "Set-cookie: TLTRazar=$azar\n\n"; $ret .= <Trivia de telenovelas
EOP $ret .= FONTS(5) . $FONTF . FONTC("white") . "T R I V I A" . $_FONT x 3 . "
\n"; $ret .= "

\n" . TABLA("black", "white") . $FONTF . FONTS("-1") . FONTC("maroon") . < ¿Cuántas preguntas?
     10
     15
     20

¿Sobre qué querés contestar?:
     Telenovelas argentinas
     Telenovelas extranjeras

Tu nombre: $_FONT $_FONT $_FONT $_TABLA

Ver el ranking

EOP print $ret; exit; }