#!/usr/bin/perl -w

use CGI;
use Vallet4;

$form = new CGI;
#
# lettura delle variabili
#
$voceb = $form->param('voceb');

print $form->header('text/html');

print <<'ENDHTML';

<HTML>
<HEAD>
<TITLE>elenco prezzi_bollettino</TITLE>
</HEAD>
<BODY>

<FORM METHOD=POST ACTION="/cgi-bin/elbo.cgi">

<B><FONT FACE="Arial" SIZE=4><P ALIGN="CENTER">Elenco generale delle voci del Bollettino Ingegneri.</P></B></FONT>
<p align="center"><b>Scegli le voci da esaminare.</b></p>
<P ALIGN="CENTER">*****</P>
<select name="voceb">

ENDHTML

open (NOLI, "noli.ele") or print "Can't open noli.ele: $!\en";
    while (<NOLI>) { 
	chop;
	print "<option>", "noli/" . $_;
    }

open (OPE, "opere.ele") or print "Can't open opere.ele: $!\en";
    while (<OPE>) { 
	chop;
	print "<option>", "opere/" . $_;
    }

print <<'ENDHTML';

</select>
<br>
<CENTER><table border=3><tr><td>
<INPUT TYPE="submit" VALUE="Esegui">
</td><td> oppure </td><td>
<INPUT TYPE="reset" VALUE="Cancella">
</td><tr>
</table>
</CENTER>
</FORM>
<hr>
<center><table border=3>
<p><tr><td>Premere qui per andare alla homepage </td>
		<td>&nbsp;</td>
<td><a href="/index.html">
<img src=/icons/freccia.gif border=0 alt="Tab"></a></td></tr>
</table></center>
<br>
<FONT SIZE=-1><I>
Data ultimo aggiornamento

ENDHTML

print &adesso;

print <<'ENDHTML';

<p>Aggiornato da amministratore
<br>Indirizzo di posta elettronica: 
<A HREF = "mailto:mpalloni@server.boxin.com">mpalloni@server.boxin.com</A>
<FONT SIZE=+0></I>
<br>
</BODY>
</HTML>

ENDHTML

# sceg.cgi




