Tecnologie di Internet (CLEI) A.A. 2003-04

Transcript Tecnologie di Internet (CLEI) A.A. 2003-04

Scrivere CGI con Perl
• Finora si è visto come creare semplici
applicazioni Perl che restituiscano dei
risultati sullo standard output del
computer che li esegue
• Attraverso CGI è possibile comunicare
con il server web e con i suoi client
permettendo ai programmi Perl di
− ricevere l’input da Internet
− restituire l’output su Internet
17 Novembre 2005
Stefano Clemente
1
Scrivere CGI con Perl
• Le funzioni utili per la scrittura di CGI in
Perl sono contenute nel modulo CGI che
può essere incluso in un programma
attraverso l’istruzione use
• Attraverso la use si può indicare anche
quali funzioni importare dal modulo
specificato
− Es: use CGI qw( :standard );
richiede l’importazione di un insieme
standard di funzioni dal modulo CGI
17 Novembre 2005
Stefano Clemente
2
Scrivere CGI con Perl
• Quando si usa Perl per creare pagine web a
contenuto dinamico, si usano le funzioni print
per generare XHTML
• Per generare un’intestazione HTTP valida, si
utilizza la funzione header della libreria CGI,
che restituisce la stringa “Content-type:
text/html\n\n”
• La funzione start_html genera i tag di
apertura (<html>, <head>, <title>, …,
<body>)
17 Novembre 2005
Stefano Clemente
3
Scrivere CGI con Perl
• Alcune informazioni addizionali come ad
esempio gli attributi dei tag possono
essere passate alle funzioni CGI nel
modo seguente
{ <chiave_1> => <valore_1>
[,… , <chiave_n> => <valore_n>] }
es: print ( start_html ( { dtd => "//W3C//DTD XHTML 1.0 Transitional//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml
1-transitional.dtd", title =>
"Environment Variables..." } ) );
17 Novembre 2005
Stefano Clemente
4
Scrivere CGI con Perl
• Esistono varie funzioni che generano i
tag HTML
es: Tr, td, th, hr, span, div, br, ecc.
• I tag di chiusura della pagina vengono
generati con la funzione end_html
17 Novembre 2005
Stefano Clemente
5
Configurazione dei web server
Le altre directory: cgi-bin
• Apache tratta diversamente il tentativo di accesso alla
cgi-bin (comportamento dovuto alla definizione di
default per questa directory in httpd.conf)
− La directory cgi-bin è la directory usata da Apache per CGI
(Common Gateway Interface)
• CGI è un protocollo standard per l’interazione degli
utenti con applicativi sul server web
• L’interazione avviene attraverso l’esecuzione di
programmi o script
• La directory sotto cui risiedono gli script e i
programmi CGI è pur sempre una directory virtuale o
alias, ma deve avere dei diritti diversi, deve cioè
permettere al client web di eseguire programmi sul
server
17 Novembre 2005
Stefano Clemente
6
Configurazione dei web server
Le altre directory: cgi-bin
• Creiamo in
cgi-bin il
file test.pl
(perl)
17 Novembre 2005
Stefano Clemente
7
cgi-bin: configurazione di IIS
17 Novembre 2005
Stefano Clemente
8
cgi-bin: configurazione di IIS
17 Novembre 2005
Stefano Clemente
9
cgi-bin: configurazione di IIS
17 Novembre 2005
Stefano Clemente
10
cgi-bin: configurazione di IIS
17 Novembre 2005
Stefano Clemente
11
cgi-bin: configurazione di IIS
• Bisogna
aggiungere
a IIS il
supporto
per PERL!!!
17 Novembre 2005
Stefano Clemente
12
cgi-bin: configurazione di IIS
17 Novembre 2005
Stefano Clemente
13
cgi-bin: configurazione di Apache
• Modifiche a httpd.conf
− ScriptAlias /cgi-bin/ "C:/web/cgi-bin/"
− <Directory "C:/web/cgi-bin">
AllowOverride None
Options None
Order allow,deny
Allow from all
</Directory>
• Riavvio di Apache!!!
17 Novembre 2005
Stefano Clemente
14
Esempio 6: Variabili d’ambiente
• Le variabili d’ambiente contengono le informazioni
riguardanti l’ambiente in cui viene eseguito lo script
− Es. browser utilizzato, l’host HTTP, la connessione HTTP, ecc
• Le informazioni contenute nelle variabili d’ambiente
possono essere utilizzate dal server web per generare
pagine web specifiche per il particolare browser
• La variabile hash %ENV di Perl contiene i nomi e i
valori di tutte le variabili d’ambiente
• L’esempio mostra uno script Perl che genera una
pagina XHTML contenente nomi e valori delle variabili
d’ambiente presentati in forma tabellare
17 Novembre 2005
Stefano Clemente
15
Esempio 6: Variabili
d’ambiente
#!c:\perl\bin\perl.exe
# Fig. 27.11: fig27_11.pl
# Program to display CGI environment variables.
use CGI qw( :standard );
$dtd =
"-//W3C//DTD XHTML 1.0 Transitional//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";
print( header() );
print( start_html( { dtd => $dtd,
title => "Environment Variables..." } ) );
print( "<table style = \"border: 0; padding: 2;
font-weight: bold\">" );
print( Tr( th( "Variable Name" ),
th( "Value" ) ) );
print( Tr( td( hr() ), td( hr() ) ) );
foreach $variable ( sort( keys( %ENV ) ) ) {
print( Tr( td( { style => "background-color: #11bbff" },
$variable ),
td( { style => "font-size: 12pt" },
$ENV{ $variable } ) ) );
print( Tr( td( hr() ), td( hr() ) ) );
}
print( "</table>" );
print( end_html() );
17 Novembre 2005
Stefano Clemente
16
17 Novembre 2005
Stefano Clemente
17
17 Novembre 2005
Stefano Clemente
18
Form e validazione dei dati
• Le form permettono di raccogliere dati
dagli utenti e di inviare questi dati al
server web per l’elaborazione
• Quando l’utente fa una POST, i nomi dei
campi della form e i valori assegnati agli
stessi possono essere ricevuti da uno
script che controlla la validità dei dati
• La funzione del modulo CGI per accedere
ai campi della form è la param
$<variabile> = param ( "<nome_parametro>" );
17 Novembre 2005
Stefano Clemente
19
Esempio 7: form e validazione
dati
<form method = "post"
action = "/cgibin/esempio7.pl">
17 Novembre 2005
Stefano Clemente
20
17 Novembre 2005
Stefano Clemente
21
17 Novembre 2005
Stefano Clemente
22
Esempio 7: form e validazione
dati
17 Novembre 2005
Stefano Clemente
23
Esempio 7: form e validazione
dati
17 Novembre 2005
Stefano Clemente
24
Esempio 7: form e validazione
dati
#!/usr/bin/perl
# Fig. 27.13: fig27_13.pl
# Program to read information sent to the server
# from the form in the fig27_12.xhtml document.
use CGI qw( :standard );
$os = param( "os" );
$firstName = param( "fname" );
$lastName = param( "lname" );
$email = param( "email" );
$phone = param( "phone" );
$book = param( "book" );
$dtd =
"-//W3C//DTD XHTML 1.0 Transitional//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1transitional.dtd";
print( header() );
17 Novembre 2005
Stefano Clemente
25
Esempio 7: form e validazione
dati
print( start_html( { dtd => $dtd,
title => "Form Results" } ) );
if ( $phone =~ / ^ $ \d{3} $ \d{3} - \d{4} $ /x ) {
print( "Hi " );
print( span( { style => "color: blue; font-weight:
bold" },
$firstName ) );
print( "!" );
print( "\nThank you for completing the survey." );
print( br(), "You have been added to the " );
print( span( { style => "color: blue; font-weight:
bold" },
$book ) );
print( " mailing list.", br(), br() );
print( span( { style => "font-weight: bold" },
"The following information has
been saved in our database: " ), br()
);
17 Novembre 2005
Stefano Clemente
26
Esempio 7: form e validazione
dati
print( table(
Tr( th( { style => "background-color: #ee82ee"
"Name" ),
th( { style => "background-color: #9370db"
"E-mail" ),
th( { style => "background-color: #4169e1"
"Phone" ),
th( { style => "background-color: #40e0d0"
"OS" ) ),
Tr( { style => "background-color: #c0c0c0" },
td( "$firstName $lastName" ),
td( $email ),
td( $phone ),
td( $os ) ) ) );
print( br() );
17 Novembre 2005
Stefano Clemente
},
},
},
},
27
Esempio 7: form e validazione
dati
print( div( { style => "font-size: x-small" },
"This is only a sample form. You have not been
added to a mailing list." ) );
}
else {
print( div( { style => "color: red; font-size: x-large" },
"INVALID PHONE NUMBER" ), br() );
print( "A valid phone number must be in the form " );
print( span( { style => "font-weight: bold" },
"(555)555-5555." ) );
print( div( { style => "color: blue" },
"Click the Back button, and enter a
valid phone number and resubmit." ) );
print( br(), br() );
print( "Thank you." );
}
print( end_html() );
17 Novembre 2005
Stefano Clemente
28
Server-Side Includes (SSI)
• Server-Side Includes (SSI) sono comandi
inseriti in documenti XHTML che permettono la
creazione di semplici contenuti dinamici
• Alcuni comandi SSI
− EXEC permette l’esecuzione di script CGI e inserisce
l’output di questi direttamente nella pagina web
− ECHO e INCLUDE permettono di inserire nelle pagine
web elementi che cambiano continuamente come
l’orario o informazioni contenute in un database
17 Novembre 2005
Stefano Clemente
29
Server-Side Includes (SSI)
• Non tutti i web server supportano SSI, per cui
i comandi vengono inseriti nelle pagine web
come commenti

• I documenti contenenti i comandi SSI hanno
solitamente estensione .shtml dove la s
iniziale sta per server
• I file .shtml sono analizzati dal server che
esegue i comandi SSI, riscrive il documento
con gli output dei comandi e lo invia al client
17 Novembre 2005
Stefano Clemente
30
Server-Side Includes (SSI)
• IIS è già configurato per l’esecuzione di SSI
• Apache richiede alcune modifiche al file httpd.conf
− Le seguenti direttive permettono ad Apache di gestire i file
.shtml
AddType text/html .shtml
AddOutputFilter INCLUDES .shtml
− La direttiva seguente deve essere impostata nelle directory
che contengono i file .shtml (in una sezione
<Directory>):
Options +Includes
− Nel caso del file httpd.conf visto finora
DocumentRoot "C:/web/html“
<Directory />
Options FollowSymLinks
Options +Includes
AllowOverride None
</Directory>
17 Novembre 2005
Stefano Clemente
31
Esempio 8: SSI
• In questo esempio verrà mostrato un
documento .shtml che
− esegue uno script CGI per tenere traccia
degli accessi alla pagina web appoggiandosi
a un file su server nel quale memorizza il
valore del contatore
− esegue vari comandi ECHO per visualizzare il
valore di alcune informazioni variabili
−DATE_GMT
−DOCUMENT_NAME
−DATE_LOCAL
−LAST_MODIFIED
−REMOTE_ADDR
17 Novembre 2005
−SERVER_NAME
−SERVER_SOFTWARE
−HTTP_USER_AGENT
−GATEWAY_INTERFACE
Stefano Clemente
32
Esempio 8: SSI
17 Novembre 2005
Stefano Clemente
33
Esempio 8: SSI
17 Novembre 2005
Stefano Clemente
34
Esempio 8: SSI
17 Novembre 2005
Stefano Clemente
35
Esempio 8: SSI
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<html>
<head>
<title>Using Server Side Includes</title>
</head>
<body>
<h3 style = "text-align: center">
Using Server Side Includes
</h3>
<br />
17 Novembre 2005
Stefano Clemente
36
Esempio 8: SSI
The Greenwich Mean Time is
<span style = "color: blue">
.
</span><br />
The name of this document is
<span style = "color: blue">
.
</span><br />
The local date is
<span style = "color: blue">
.
</span><br />
This document was last modified on
<span style = "color: blue">
.
</span><br />
17 Novembre 2005
Stefano Clemente
37
Esempio 8: SSI
Your current IP Address is
<span style = "color: blue">
.
</span><br />
My server name is
<span style = "color: blue">
.
</span><br />
And I am using the
<span style = "color: blue">

Web Server.
</span><br />
17 Novembre 2005
Stefano Clemente
38
Esempio 8: SSI
You are using
<span style = "color: blue">
.
</span><br />
This server is using
<span style = "color: blue">
.
</span><br />
<br /><br />
<div style = "text-align: center;
font-size: xx-small">
<hr />
This document was last modified on
.
</div>
</body>
</html>
17 Novembre 2005
Stefano Clemente
39
Esempio 8: SSI
#!c:\perl\bin\perl.exe
# esempio8.pl
# Program to track the number of times a Web page has been accessed.
use CGI qw( :standard );
open( COUNTREAD, "counter.dat" );
# apre il file in lettura
$data = <COUNTREAD>;
# legge una riga
$data++;
# incrementa di uno
close( COUNTREAD );
# chiude counter.dat
open( COUNTWRITE, ">counter.dat" ); # apre in scrittura
print( COUNTWRITE $data );
# Scrive il valore ++
close( COUNTWRITE );
# chiude counter.dat
print( header(), "<div style = \"text-align: center; font-weight:
bold\">“ );
print( "You are visitor number", br() );
for ( $count = 0; $count < length( $data ); $count++ ) {
$number = substr( $data, $count, 1 );
print( img( { src => "images/$number.gif" } ), "\n" );
}
print( "</div>" );
17 Novembre 2005
Stefano Clemente
40
Esempio 9: Verifica di Username
e Password
• In questo esempio verrà mostrato un semplice metodo per
l’autenticazione degli utenti basato su un elenco di utenti
memorizzato su un file di testo (password.txt) nella forma
nomeutente,password
• Lo script Perl introduce le istruzioni
• while ( $line = <FILE> ) {
…
}
che ad ogni ciclo legge una riga dal file e termina quando viene
raggiunta la fine del file
• chomp ( $line );
che rimuove da $line il carattere di newline
• split ( “,”, $line )
che divide la stringa contenuta in $line in due sottostringhe,
quelle a destra e a sinistra della virgola.
17 Novembre 2005
Stefano Clemente
41
Esempio 9:
file password.txt
17 Novembre 2005
Stefano Clemente
42
Esempio 9
17 Novembre 2005
Stefano Clemente
43
Esempio 9
17 Novembre 2005
Stefano Clemente
44
Esempio 9
• Attenzione a proteggere i file con le
password!
IIS
17 Novembre 2005
APACHE
Stefano Clemente
45
Esempio 9
17 Novembre 2005
Stefano Clemente
46
Esempio 9:
file esempio9.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<html>
<head>
<title>Verifying a username and a password</title>
</head>
<body>
<p>
<div style = "font-family = arial">
Type in your username and password below.
</div><br />
<div style = "color: #0000ff; font-family: arial;
font-weight: bold; font-size: x-small">
Note that the password will be sent as plain text.
</div>
</p>
<form action = "/cgi-bin/esempio9.pl" method = "post">
<table style = "background-color: #dddddd">
<tr>
17 Novembre 2005
Stefano Clemente
47
Esempio 9:
file esempio9.html
<td style = "font-face: arial;
font-weight: bold">Username:</td>
</tr>
<tr>
<td>
<input name = "username" />
</td>
</tr>
<tr>
<td style = "font-face: arial;
font-weight: bold">Password:</td>
</tr>
<tr>
<td>
<input name = "password" type = "password" />
</td>
</tr>
<tr>
<td>
<input type = "submit" value = "Enter" />
</td>
</tr>
</table>
</form>
</body>
</html>
17 Novembre 2005
Stefano Clemente
48
Esempio 9:
file esempio9.pl
#!c:\perl\bin\perl.exe
# Fig. 27.17: fig27_17.pl
# Program to search a database for usernames and
passwords.
use CGI qw( :standard );
$dtd =
"-//W3C//DTD XHTML 1.0 Transitional//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1transitional.dtd";
$testUsername = param( "username" );
$testPassword = param( "password" );
open( FILE, "password.txt" ) or
die( "The database could not be opened." );
17 Novembre 2005
Stefano Clemente
49
Esempio 9:
file esempio9.pl
while ( $line = <FILE> ) {
chomp( $line );
( $username, $password ) = split( ",", $line );
if ( $testUsername eq $username ) {
$userVerified = 1;
if ( $testPassword eq $password ) {
$passwordVerified = 1;
last;
}
}
}
close( FILE );
print( header() );
print( start_html( { dtd => $dtd,
title => "Password Analyzed" } ) );
17 Novembre 2005
Stefano Clemente
50
Esempio 9:
file esempio9.pl
if ( $userVerified && $passwordVerified ) {
accessGranted();
}
elsif ( $userVerified && !$passwordVerified ) {
wrongPassword();
}
else {
accessDenied();
}
print( end_html() );
sub accessGranted
{
print( div( { style => "font-face: arial;
color: blue;
font-weight: bold" },
"Permission has been granted,
$username.", br(), "Enjoy the site." ) );
}
17 Novembre 2005
Stefano Clemente
51
Esempio 9:
file esempio9.pl
sub wrongPassword
{
print( div( { style => "font-face: arial;
color: red;
font-weight: bold" },
"You entered an invalid password.", br(),
"Access has been denied." ) );
}
sub accessDenied
{
print( div( { style => "font-face: arial;
color: red;
font-size: larger;
font-weight: bold" },
"You have been denied access to this site." ) );
}
17 Novembre 2005
Stefano Clemente
52
Cookie
• HTTP è stateless
• I cookie permettono di mantenere le informazioni di
stato per un client che sta utilizzando il web server
• I dati e i settaggi memorizzati nei cookie possono
essere conservati anche tra più sessioni
• Microsoft Internet Explorer memorizza i cookie
sull’hard disk del client come piccoli file di testo (es.
C:\Documents and Settings\clest\Impostazioni
locali\Temporary Internet Files\)
• Ogni volta che il client fa una richiesta, i dati
contenuti nel cookie vengono inviati al server
• Il server può rispondere con XHTML specifico in base
alle informazioni contenute nel cookie
17 Novembre 2005
Stefano Clemente
53
Esempio 10
• In questo esempio verrà mostrata una pagina
XHTML con una form attraverso la quale
l’utente inserirà dei dati
• Quando l’utente cliccherà sul bottone “Write
Cookie”, verrà eseguito uno script Perl che
legge i dati inviati dall’utente, crea un cookie e
restituisce all’utente una pagina nella quale
conferma la creazione del cookie, visualizza i
dati salvati e mostra un link per leggere il
cookie
• Cliccando sul link viene eseguito uno script
Perl che crea una pagina XHTML che visualizza
i dati salvati nel cookie usando il colore
preferito dall’utente
17 Novembre 2005
Stefano Clemente
54
Esempio 10
17 Novembre 2005
Stefano Clemente
55
Esempio 10
17 Novembre 2005
Stefano Clemente
56
Esempio 10
17 Novembre 2005
Stefano Clemente
57
17 Novembre 2005
Stefano Clemente
58
Esempio 10
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<html>
<head>
<title>Writing a cookie to the client computer</title>
</head>
<body style = "font-face: arial">
<div style = "font-size: large;
font-weight: bold">
Click Write Cookie to save your cookie data.
</div><br />
<form method = "post" action = "cgi-bin/esempio10_1.pl"
style = "font-weight: bold">
Name:<br />
<input type = "text" name = "name" /><br />
Height:<br />
<input type = "text" name = "height" /><br />
Favorite Color:<br />
<input type = "text" name = "color" /><br />
<input type = "submit" value = "Write Cookie" />
</form>
</font>
</body>
</html>
17 Novembre 2005
Stefano Clemente
59
Esempio 10
#!c:\perl\bin\perl.exe
# Fig. 27.22: fig27_22.pl
# Program to write a cookie to a client’s machine.
use CGI qw( :standard );
$name = param( "name" );
$height = param( "height" );
$color = param( "color" );
$expires = “Tuesday, 11-JUN-05 16:00:00 GMT";
print( "Set-Cookie: Name=$name; expires=$expires; path=\n" );
print( "Set-Cookie: Height=$height; expires=$expires; path=\n" );
print( "Set-Cookie: Color=$color; expires=$expires; path=\n" );
$dtd =
"-//W3C//DTD XHTML 1.0 Transitional//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";
17 Novembre 2005
Stefano Clemente
60
Esempio 10
print( header() );
print( start_html( { dtd => $dtd,
title => "Cookie Saved" } ) );
print <<End_Data;
<div style = "font-face: arial; font-size: larger">
The cookie has been set with the following data:
</div><br /><br />
<span style = "color: blue">
Name: <span style = "color: black">$name</span><br />
Height: <span style = "color: black">$height</span><br />
Favorite Color:</span>
<span style = "color: $color"> $color</span><br />
<br />Click <a href = "esempio10_2.pl">here</a>
to read saved cookie.
End_Data
print( end_html() );
17 Novembre 2005
Stefano Clemente
61
Esempio 10
#!c:\perl\bin\perl.exe
# Fig. 27.25: fig27_25.pl
# Program to read cookies from the client's computer.
use CGI qw( :standard );
$dtd =
"-//W3C//DTD XHTML 1.0 Transitional//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";
print( header() );
print( start_html( { dtd => $dtd,
title => "Read Cookies" } ) );
print( div( { style => "font-face: arial;
font-size: larger;
font-weight: bold" },
"The following data is saved in a
cookie on your computer." ), br() );
print( "<table style = \"background-color: #aaaaaa\"
border = 5 cellpadding = 10
cellspacing = 0>" );
17 Novembre 2005
Stefano Clemente
62
Esempio 10
%cookies = readCookies();
$color = $cookies{ Color };
foreach $cookieName ( "Name", "Height", "Color" ) {
print( Tr( td( { style => "background-color: $color" },
$cookieName ),
td( $cookies{ $cookieName } ) ) );
}
print( "<table>" );
print( end_html() );
sub readCookies
{
@cookieArray = split( "; ", $ENV{ 'HTTP_COOKIE' } );
foreach ( @cookieArray ) {
( $cookieName, $cookieValue ) = split( "=", $_ );
$cookieHash{ $cookieName } = $cookieValue;
}
return %cookieHash;
}
17 Novembre 2005
Stefano Clemente
63