#!/usr/bin/perl ## ## ordine.pl ## # # Incorpora la libreria di decodifica dei dati. # require ('mini-lib.pl'); # # &Metodo_non_gestibile () # sub Metodo_non_gestibile { print STDOUT ("Content-type: text/html\n"); print STDOUT ("\n"); print STDOUT ("\n"); print STDOUT ("
\n"); print STDOUT (""); print STDOUT ("Nominativo: $DATI{nome} $DATI{cognome}\n"); print STDOUT ("Indirizzo: $DATI{via} $DATI{n}\n" ); print STDOUT (" $DATI{cap} $DATI{citta}\n" ); print STDOUT (" $DATI{email}\n" ); print STDOUT ("Carta: $DATI{carta} $DATI{carta_num}\n"); print STDOUT ("Articolo ordinato: $DATI{articolo}\n"); print STDOUT (""); print STDOUT ("\n"); # print STDOUT ("Se i dati non sono come desiderato, si prega di ritornare\n"); print STDOUT ("alla compilazione del modulo.\n"); print STDOUT ("\n"); print STDOUT ("\n"); } # # &Dati_insufficienti () # sub Dati_insufficienti { print STDOUT ("Content-type: text/html\n"); print STDOUT ("\n"); print STDOUT ("\n"); print STDOUT ("\n"); print STDOUT ("
"); print STDOUT ("Ritorna al modulo di ordinazione\n"); print STDOUT ("\n"); print STDOUT ("\n"); } # # &Modulo_errato () # sub Modulo_errato { print STDOUT ("Content-type: text/html\n"); print STDOUT ("\n"); print STDOUT ("\n"); print STDOUT ("
\n"); print STDOUT ("