GUIDA HTML

18 maggio 2009

Per creare un file html, aprire un editor testuale, va bene anche il block notes e salvato con estensione .htm o .html
Importante si consiglia di scrivere IL NOME DEL FILE (sia gli htm o html che i gif, jpeg…) sempre tutto minuscolo e di non utilizzare lo spazio (sul web verrebbe interpretato così: 20% ) come separatore potete utilizzare qualsiasi altro simbolo, in particolare il trattino – o il _
Nota1: l’html è un linguaggio “case unsensitive“, cioè non fa differenza se si scrivono i commandi in maiuscolo o minuscolo!
Nota2: I colori possono essere scritti in forma esadecimale (esempio nero:#000000) oppure con la terminologia inglese (black).

La “Struttura invisibile”:
La struttura iniziale è invisibile agli occhi dell’utente ma è utilizzata dagli spider e robot dei vari motori di ricerca.
<!DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.01 Transitional//EN”>
<html>
<head>
<title>titolo della pagina visualizzato in alto del browser</title>

Attributi:
<!DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.01 Transitional//EN”>
Indica il software utilizzato per creare le pagine; la lingua del sito; e il tipo di documento (html)
Name Indica il tipo di meta tag, i più famosi sono quei 3 indicati ma c’è ne sono molti altri.
Content E’ il contenuto del meta tag personalizzabile.

Una volta prima che si utilizzassero i css, si usava scrivere qui in body, la struttura grafica del sito, in questo modo:
<body bgcolor=”red”>
<body text=”blue”>
<body background=”prova1.jpg”>
<body link=”red”>
<body alink=”green”>
<body vlink=”yellow”>

Attributi:
Bgcolor è il colore di sfondo della pagina.
Background è un’eventuale immagine di sfondo della pagina.
Text indica il colore del testo
link il colore del link normale
alink il colore del link attivo
vlink il colore del link visitato
<body>
Tutto quello che si scrive o s’inserisce qui viene visualizzato dal browser. Alla fine ricordarsi sempre di chiudere con:
<!– questo è un commento non viene visualizzato –>
</body>
</html>

Il Testo:
Nota importante per inserire il testo si usa ormai generalmente il css, queste regole sono quindi obsolete.
prova
oppure testo da scrivere

<center>testo centrale</center>

Attributi:
Face Tipo di carattere
Size Dimensione
Color Colore
Align Allineamento
può essere right(destro); center (centro); left (sinistra) justify (giustificato).

Mentre quest’altre si usano ancora:
 per andare a capo
oppure
con p lascia spazio prima e dopo la chiusura 
prova2
<div>nessuno spazio rispetto a p va solo a capo</div>
<div>prova2</div>
non va a capoprova2/span>
per scrivere in grassetto
<c>per scriver in corsivo</c>
<s>per scrivere sottolineato</s>
<strike>testo sbarrato</strike>
testo in apice
testo in pedice

<h1>testo</h1>
<h6>testo</h6>
E’ una funzione speciale del testo per indicare che si tratta di un titolo.

Gli Elenchi:
<dir><li>elenco normale
</li></dir>

<dir><ol type=”1>elenco ordinato</ol></dir>
opppure <dir><ol></ol><ol></ol>…</ol></dir>

<dir><ul type=”disc”>elenco non ordinato</ul></dir>
opppure <dir><ul></ul><ul></ul>…</ul></dir>

Attributi:
type specifica quale valore deve assumere
per <ol>può essere: 1 numeri cardinali (arabi PREDEFINITO); I numeri ordinali (romani); A alfabetico;
per <ul>si può scegliere tra: disc (disco PREDEFINITO); circle (cerchio); square (quadrato pieno)

Le tabelle:
<table bgcolor=”pink” width=”500″ height=”500″ border=”0″ align=”left”>
<caption>legenda</caption>
<tr><td>cella 1</tr></td><tr><td>cella 2</td></tr>
</table>

Inserire una linea orrizzontale:
<hr noshade size=”5″ width=”50%” align=”center” border=”1″ color=”red”/>
oppure semplicemente </hr>

Attributi:
width (larghezza); height (altezza); size (dimensione); align (allineamento); border (bordo); color (colore).

Inserire un immagine:
<img src=”immagine.jpg” border=”0″ width=”50″ height=”50″ align=”center” alt=”testo”>

Attributi dell’immagine:
scr=”nome e percorso immagine.est” Le estensioni più comuni sono i .gif (immagini animate); .jpeg o .jpg (il formato universale per eccellenza letto anche da lettori mp3/dvd/divx…); .png (un’altro formato assai noto).
border=”numero il bordo dell’immagine”
width=”numero – larghezza”
height=”numero – altezza”
align=”allineamento può essere:
right Destra; left Sinista; center Centrale ”
bottom allineamento nella parte bassa a sinistra del testo
middle allineamento centrale
top allinemento nella parte alta a sinistra del testo
alt“Testo alternativo visualizzato al passaggio del mouse”
title“Ha la stessa funzione di alt”

Inserire un link:
<a href=http://www.computereweb.net target=”_blank” title=”mostra un testo quando il mouse passa sopra il link>Computer e Web</a>

Nota:
target=”_blank” Se inserito indica che il link si aprirà in una nuova finestra.
Il percorso può essere ad una pagina del sito, quindi interno (sarà sufficiente indicare il path: esempio invece di scrivere http://www.computereweb.net/images sarà sufficiente scrivere /images).
Mentre se è esterno è necessario scrivere l’url completo con http://www.nomesito.est
Inoltre il link può indirizzare anche verso un’immagine/audio/video. Mentre se è uno .zip verrà chiesto di scaricare il file, diversamente se è un .pdf o un .doc si aprirà, se nel pc dell’utente è presente, il relativo programma (Adobe Reader Pdf o Microsoft Word).

Inserire un indirizzo e-mail:
<a href=”mailto:info@computereweb.net” subject=”Richiesta info”>invia un e-mail</a>

Nota:
Cliccando si aprira “nuovo messaggio di posta elettronica” del proprio client che si utilizza.
Mentre l’attributo subject è opzionale, indica se oltre al destinatario predefinito si vuole immettere un valore di default per l’oggetto.

Inserire un’immagine con link:
<a href=http://www.computereweb.net target=”_blank”><img src=”immagine.jpg” border=”0″ width=”50″ height=”50″ align=”center”></a>

Inserire un’Ancora
Un’ancora è un link interno della pagina, può essere paragonata ad “un paragrafo”. Utilizzato per creare la pagina delle faq.
Passo 1: inserire l’ancora nella pagina, nel punto che si desidera
<a name=“#nome”>
Passo 2: Richiamo dell’ancora dal menù ad inizio della pagina.
<a href=”#nome”>nome</a>

Note:

Per dichiare o richiamare un’ancora, ricordarsi di mettere sempre prima il simbolo: #

Inserire una mappa d’immagini:
Una mappa d’immagine, come dice il nome è un’immagine suddivisa per aree e al passaggio del mouse corrisponde un determinato link. Utilizzato per visualizzare le sedi in Italia di una ditta.

<IMG SRC=”http://www.computereweb.net/wp-content/uploads/2009/08/italia-249×300.jpg” USEMAP=”#italia” WIDTH=350 HEIGHT=421 BORDER=”0″>
<MAP NAME=”italia”>
<AREA SHAPE=”POLY” HREF=”#” ALT=”Lombardia” COORDS=”63,39, 79,18, 105,16, 116,25, 109,53, 120,51, 112,64, 135,83, 107,83, 87,76, 74,87, 57,70, 64,62, 64,54, 60,49, 60,41, 63,40, 64,40, 62,37, 255,82, 298,42, 91,28, 267,99, 284,49, 249,60, 236,54, 271,108, 343,109, 267,117, 282,21, 305,194, 246,81, 426,180, 56,122, 147,144, 203,132, 235,115, 272,86, 283,119, 295,124, 290,76, 271,83, 63,39″>
<AREA SHAPE=”CIRCLE” HREF=”#” ALT=”Toscana” COORDS=”127,147,32″>
<AREA SHAPE=”RECT” HREF=”http://www.lacineteca.tk “ALT=”Abruzzo” COORDS=”192,173, 230,205″&gt border=”0″;
</MAP>

Attributi:
Coords sono le coordinate da definire in base allo shape scelto
Shape è la forma dell’immagine può essere di 3 tipi:
rect Rettangolare, con 4 coordinate (x sx -y sx- x a – y b)
circle Cerchio, con 3 coordinate (x-y-raggio)
poly Poligono, con numero personalizzato di coordinate
in parole povere, è il classico gioco d’enigmistica dove bisogna unire tutti i punti (detto comunemente filo numerico).
Mentre alt o title sono attribuiti visti quando s’inserisce un’immagine.
Infine da notare l’uso dell’ancora (preceduta dal simbolo #).

Inserire un’audio di sfondo

Attributi:
src come nel caso dell’immagine, delle mappe d’immagini, e come vedremo successivamente anche per i video/audio è utilizzato per indicare il percorso completo di dove si trova il file.
loop E’ il ciclo, quante volte si deve riproddure il brano.

Inserire un video/audio

Attributi:
Autostart Indica se il video all’apertura della pagina si autoavvia o no.
Mentre width (larghezza) height (altezza) e loop (ciclo) hanno le medesime funzionalità viste in precedenza.

Inserire un file flash:
<object type=”application/x-shockwave-flash” data=”http://www.computereweb.net/flash/prova.swf” width=”450″ height=”164″>
<param name=”movie” value=”http://www.computereweb.net/flash/prova.swf”"/>
</object>

Inserire javascript; applet java oppure un codice di un servizio esterno (es.: contatore)
Copiare e incollare il codice nella parte della pagina che si desidera visualizzare.

Inserire un foglio di stile esterno:
<link rel=”stylesheet” type/css” href=”nome.css”>

Frame:
Un frame è una particolare struttura su cui è possibile costruire un sito in html.
<frameset rows=”100,200″>
<frame name=”home” scr=”home.html” scrolling=”auto” noresize border=”0″>
<frameset cols=”100, 200″>
<frame name=”colonna” src=”colonna.html”>
</frameset>
</frameset>
<noframes>browser obsoleto</noframes>

Iframe:
L‘iframe è simile al frame solo che viene inserito in una comunissima pagina.
<iframe name=”prova” src=prova.html” scrolling=”yes” border=”0″ noresize align=”center”>

Infine, quando avete terminato il vostro sito in html è giunto il momento di pubblicarlo. Esistono diversi hosting gratuiti che offrono un sottodominio gratis (come altervista.org). Aprite un account e inviate tutti i vostri file, si consiglia di usare un programma ftp (come filezilla).
I dati da inserire saranno quelli che trovate sull’account creato, quindi l’indirizzo ftp; l’username e la password; la porta invece predefinita è sempre la 21.
Un ultima nota, naturalmente al giorno d’oggi le pagine in html si creano attraverso gli editor visuali e non più testuali (ne esistono anche in versione free ed in italiano come l’Nvu).
Comunque comprendere e conoscere le regole principali dell’html è la base per diventare buon webmaster!

Ti è piaciuta questa guida? Allora scaricala e portarla ovunque con te, nel formato universale del PDF .
Premi il tasto destro del mouse sul link e clicca su salva oggetto con nome.
http://www.computereweb.net/guida-html.pdf

Nella categoria: GUIDE, Linguaggi di Programmazione | Commento (1) TAG: htm, html

GUIDA CSS

18 maggio 2009

CSS è l’acronimo di (Cascading Style Sheets – Fogli di stile a cascata) sono utilizzati per creare la grafica del sito.

Inserimento dei css
I fogli di stile possono integrarsi all’interno del documento html oppure – più frequentemente – richiamati da un file esterno (con estensione .css).

Interno:
<head>
<title>prova</title>
<style type=”text/css”>
… contenuto css …
</style>
</head>
<body> …

Esterno:
<link rel=”stylesheet” type=”text/css” href=”stile.css”>

Commenti:
/*commento*/

Regola fondamentale:
Nei fogli di stile, per richiamare un elemento in html, si fa così:
elemento {inserire gli stili adatti}
.nomeclasse {inserire gli stili adatti}
#nomeid {inserire gli stili adatti}
Inoltre, ricordarsi che nel caso delle classi e degli id è necessario individuare ed inserire la seguente sintassi in html:
<div class”nomeclasse”>contenuto</div>
<div id=”nomeid”>contenuto</div>

Selettori:
Affinchè possiamo personalizzare gli stili di un pagina html con i css, è necessario dichiararli sia nell’uno che nell’altro, utilizzando i selettori:

1- Individuare la parte della pagina html che si vuole arricchire graficalmente.
 … paragrafo …
<h1> … titolo 1 … </h1> <!– è così via <h2>; <h3>; <h4>; <h5>; <h6> –>
<table> … contenuto tabella </table>

2- Richiamare nel foglio di stile:
h1 {color: red;}
p {font-size: 10px; font-family: arial}
table {width: 500px}
body {font-size: 20px; background: blue; }

Le classi:
Consentono rispetto al semplice selettore di personalizzare solo quel determinato elemento o quella serie di elementi che sfruttano la stessa classe, ovvero l’ereditarietà delle classi.
1 – Vanno dichiarati nella pagina html, con questa sintassi: (generalmente si usa div come selettore, ma a secondo delle esigenze si possono usare qualsiasi altro selettore, il metodo è sempre lo stesso selettore+class)
<div class=”nomedellaclasse”> … contenuto documento … </div>

2 – Richiamato e personalizzato nel foglio del css, così:
.nomedellaclasse
{
font-family: arial;
color: red;
}

L’ereditarietà delle classi:

1. in html dichiaro una classe per uno specifico elemento:
<div class=”prova”>contenuto</div>

2. in css, rilevo come fatto sopra la classe:
.prova{
font-size: 15px;}

3. alla classe, posso associare altri elementi, precendola, così.
p.prova{
font-size: 15px;}

Le classi per i selettori:
E’ possibile specificare anche un determinato elemento in html.
1-html
…
<h1 class=”titolo”>….</h1>
2-css
p.nomeclasse {text-align: right;}
h1.titolo {font-weight: bold;}

Id:
1 – Vanno dichiarati nella pagina html, con questa sintassi:
<div id=”nomedellaclasse”> … contenuto documento … </div>
2 – Richiamato e personalizzato nel foglio del css, così:
#nomedellaclasse
{
font-family: arial;
color: red;
}

Nota:
la differenza sostanzialmente è che l’id è unico rispetto ad una classe e che si richiama con il cancelletto # anziché il punto.

Il Testo:

Allineamento
p {text-align: left;} /* a sinistra*/
p {text-align: right;} /* a destra */
p {text-align: center;} /* al centro */
p {text-align: justify;} /* giustificato */

Decorazione
p{text-decoration: overline;} /* sopralineato */
p{text-decoration: underline;} /* sottolineato */
p{text-decoration: overline underline;} /* sopra e sottolineato*/
p{text-decoration: line-through;} /* barrato */
p{text-decoration: blink;} /* */
p{text-decoration: none;} /* nessuno */

Trasformazione
p{text-transform: capitalize;} /* la prima lettera di ogni parola Maiuscola*/
p{text-transform: uppercase;} /* tutto minuscolo */
p{text-transform: lowercase;} /* TUTTO MAIUSCOLO*/

Interlinea
div {line-height: 50%;} /* il valore può essere espresso anche in em , preceduto dal numero, es.: 5em */

Spaziatura tra le lettere
div {letter-spacing: 2px;} /* il valore può essere espresso anche in em , preceduto dal numero, es.: 5em */

Il Carattere:
p {font-family: verdana} /* tipo di carattere */
p {font-size: 18px;} */ dimensione del carattere, generalmente espressa in px */
p {font-style: italic;} */stile del carattere: corsivo */
p {font-style: normal;} */stile del carattere: normale */ PREDEFINITO
P {font-weight: bold;} */spessore del carattere: grassetto*/
h1 {font-weight: 700;} */Personalizzazione dello spessore */
h1 {font-weight: lighter;} */Nessuno spessore */ PREDEDINIFTO
p {color: red;} */colore del carattere */

Gli Elenchi:
li
{list-style-type: disc;} /* i possibili valori sono: none; disc (PREDEFINITO); circle; square; decimal; lower-roman; upper-roman; lower-alpha; upper-alpha*/
li
{list-style-image: url(prova.jpg);}

Le classi degli elenchi:
1. individuare e dichiarare le classi di elenchi in html:
<li class=”nomeelenco”></li>
2. in css:
li.nomeelenco
{color: red;}

Lo Sfondo:
p {background-color: yellow} */colore di sfondo della pagina */

div {background-image: url(sfondo.jpeg);} */immagine di sfondo della pagina*/
div {background-image: url(sfondo.jpeg); background-repeat: repeat; } */RIPETE l’immagine di sfondo della pagina,*/PREDEFINITO
div {background-image: url(sfondo.jpeg); background-repeat: repeat-x;} */ripete ORIZZONTALMENTE l’immagine di sfondo della pagina,*/
div {background-image: url(sfondo.jpeg); background-repeat: repeat-y; } */ripete VERTICALMENTE l’immagine di sfondo della pagina,*/{background-image: url(sfondo.jpeg); background-repeat: no-repeat; } */NON RIPETE l’immagine di sfondo della pagina,*/
div {background-image: url(logo.gif); background-repeat: repeat-y; background-position: 50% 50%;} */dove devi inziare a ripetersi verticalmente*/
div {background-image: url(logo.gif); background-repeat: repeat-x; background-position: 50% 50%;}*/dove devi inziare a ripetersi orizzontalmente */
div {background-image: url(sfondo.jpeg); background-attachment: scroll; } */sfondo che si muove con lo scrolling pg */
div {background-image: url(sfondo.jpeg); background-attachment: fixed;} */sfondo fisso non si muove con lo scrolling */

I Link:
a:link {color: red} /*link normale */
a:visited {color: red} /*link visitato*/
a:hover {color: blue} /*link al passaggio del mouse*/

Gli attributi, generalmente si applicano ad hover:
a:hover {bgcolor: blue; text-decoration:italic; font-size:10px; font-family: arial}
/* bgcolor, stabilire il colore di sfondo, l’effetto evidenziatore; text-decoration, indica lo stile che può assumere il testo; font-size la dimensione del testo; font-family, il tipo di carattere; è possibile anche inserire un’immagine di sfondo con background-image: url (nome.jpg). */

Le classi per i link:
1 – Nella pagina html, individuare tutti i link che vogliamo assegnare una classe:
<a href=”http://www.lacineteca.org” class=”affilliati”>lacineteca.org</a>

2- Nel foglio di stile, richiamare la classe:
a.affiliati:link { background: red}
a.affiliati:visited { background: red}
a.affiliati:hover { background: blue}

Box model (Spaziatura e Margini)
1- in html dopo <body> inserire e chiudere il </div> prima di </body:
<div id=”nomebox”>….contenuto</div>

2- nel css, inserire la seguenti sintassi
#nomebox
{ width: 350px; */larghezza */
height: 150px; */ altezza */
padding: 0px 0px 5px 5px; */ spaziatura interna*/
margin: 5px 5px 10px 5px; */spaziatura esterna*/
border: 5px solid; */ bordo*/
}

Nota: il margin, padding e border possono essere dichiarati, anche in questo modo:
top=sopra; bottom=fondo; left=sinistra; right=destra.
padding-top
padding-bottom
padding-left
padding-right

margin-top
margin-bottom
margin-left
margin-right

border-top
border-bottom
border-left
border-right

Inoltre il border può essere:
none
dotted
dashed
double
groove
ridge
inset
outset
solid

Posizionamento degli elementi:
#posizioneelemento
{ position: absolute; */la position può essere absolute (assoluta) o relative (relative valore di default)
top: 150px; */distanza bordo superiore pg e elemento*/
left: 250px; } */distanza bordo a sinistra pg e elemento*/

#classenascosta
{ display: none; } */nasconde elemento*/
#classevisibile
{ display: block; } */visualizza l’elemento*/

Il cursore del mouse:
a { cursor: crosshair; } */il cursore del mouse nel sito è differente da quello usato dal pc; può essere: auto; default; crosshair hand pointer move e-resize ne-resize nw-resize n-resize se-resize sw-resize s-resize w-resize text wait help.

Anche in questo caso, possiamo personalizzare con una classe, in modo che solo alcuni link abbiamo quel cursore.
1.html: <a href=”pagina.html” class=”cursore”>clicca qui</a>
2. css: a.cursore { cursor: crosshair; }

La barra di scorrimento:
body
{ scrollbar-base-color: #000000; */*/
scrollbar-face-color: #000000;
scrollbar-shadow-color: #FFFFFF;
scrollbar-arrow-color: #FFFFFF;
scrollbar-highlight-color: #FFFFFF;
scrollbar-dark-shadow-color: #FFFFFF;
scrollbar-3d-light-color: #FFFFFF;
scrollbar-track-color: #FFFFFF; }

Tabble less
Costruire un layout attraverso le tabelle del css, detto tabble less.
Potete personalizzare come meglio credete il nome delle classi, anche se generalmente per main o wrapper s’intende la struttura generica; header e footer sono rispettivamente la testata e le piè di pagina; il content è il contenuto; la sidebar è la colonna sinistra e/o destra – a volte anche doppia colonna sx o dx.
1. html, creazione pagina index.html
<head>
<title>prova</title>
<link rel=”stylesheet” type=”text/css” href=”stile.css”>
</head>
<html>
<body>
<div align=”center”>
<div class=”main”>
<div class=”header”><center><img src=”http://www.computereweb.net/wp-content/uploads/2009/07/cew.jpg” width=”100″ height=”100″><h1>computereweb.net</h1></center></div>
<div class=”colonna”>
<li><a href=”http://www.computereweb.net/#”>Home</a></li>
<li><a href=”http://www.computereweb.net/#”>Guida CSS</a></li>
<li><a href=”http://www.computereweb.net/#”>Guida Html</a></li>
<li><a href=”http://www.computereweb.net/#”>Guida Mysql</a></li>
</div>
<div class=”contenitore”>contenuto del sito
Benvenuti sul sito “computer e web” pagina test sui css.
</div>
<div class=”footer”>
<center>Inserire qui il copyright ed eventuali termini e condizioni del servizio
contenuto piè di pagina</center></div>
</div>
</div>
</html>
</body>

2.Creiamo un foglio di stile, chiamamolo ad esempio stile.css (lo abbiamo già dichiarato in html!)
body
/*stilizzazione della barra di scorrimento*/
{ scrollbar-base-color: black;
scrollbar-face-color: black;
scrollbar-shadow-color: white;
scrollbar-arrow-color: white;
scrollbar-highlight-color: white;
scrollbar-dark-shadow-color: white;
scrollbar-3d-light-color: white;
scrollbar-track-color: white; }
{
background: #FFFFFF;
color: #000000;
margin: 10px 0px 10px 0px;
}
div
{
font-size: 11px;
font-family: verdana;
}

a { cursor: move; } /*stilizzazione del cursore al passaggio sui link*/

a:link { background: white} /* impostiamo i link affinchè cambiano colore di sfondo al passaggio del mouse*/
a:visited { background: white}
a:hover { background: blue}

/*formattazione generale della pagina*/
.main
{
text-align: left; /*allineamento del testo a destra*/
width: 750px; /*larghezza della pagina*/
border: solid 1px black; /*bordo della pagina*/
}
/*la grafica della testata (comunemente chiamata header)*/
.header
{
border-bottom: solid 1px black;
}
/*la grafica del box che contiene il menù*/
.colonna
{
float: left;
width: 146px;/*larghezza molto importante in considerazione di quella del contenitore*/
border-right: solid 1px black;
margin-bottom: 2px; /*spaziatura interna parte bassa*/
}
/*i nostri elenchi contenenti link compaino senza alcun stile*/
li
{list-style-type: none;}
/*la grafica vera e propria del contenuto*/
.contenitore
{
margin-left: 2px;
padding-bottom: 5px;

float: left;
width: 600px;
}
/*la grafica delle piè di pagina (comunemente chiamata footer)*/
.footer
{
clear: left;
border-top: solid 1px black;
}

Guarda l’esempio!

Ti è piaciuta questa guida?
Allora, perchè non scaricarla, nel formato universale per eccellenza, il PDF!
Clicca con il tasto destro del mouse sul link qui sotto e poi su salva oggetto con nome.
http://www.computereweb.net/guida-css.pdf

Nella categoria: GUIDE, Linguaggi di Programmazione | Commento (0) TAG: css, fogli di stile, grafica

SCRIPT CGI-PERL (MODULO CONTATTI)

18 maggio 2009

Ecco il famoso modulo contatti, in cgi-perl.
Per vedere l’anteprima clicca qui
E’ composto da un file denominato FormMail.pl da inserire rigorosamente nella cartella cgi-bin del vostro hosting e dal codice html da copiare nella pagina in cui volete che compaia.
Contenuto del codice FormMail.pl:
#!/usr/bin/perl -wT # # $Id: FormMail.pl,v 2.20 2002/11/21 06:39:42 nickjc Exp $ # use strict; use POSIX qw(locale_h strftime); use Text::Wrap; # Er for wrapping <img src='http://www.computereweb.net/wp-includes/images/smilies/icon_smile.gif' alt=':)' class='wp-smiley' /> use Socket; # for the inet_aton() use CGI qw(:standard); use vars qw( $DEBUGGING $emulate_matts_code $secure $allow_empty_ref $max_recipients $mailprog @referers @allow_mail_to @recipients %recipient_alias @valid_ENV $date_fmt $style $send_confirmation_mail $confirmation_text $locale $charset $no_content $double_spacing $wrap_text $wrap_style $postmaster ); # INFORMAZIONI SUL PROGRAMMA # ————————– # FormMail.pl $Revision: 2.20 $ # # Questo programma è concesso in licenza nello stesso modo del Perl. # Siete liberi di scegliere tra la licenza pubblica di GNU, # vedi <<a href="http://www.gnu.org/licenses/gpl.html" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','www.gnu.org']);">http://www.gnu.org/licenses/gpl.html</a>> oppure la licenza # artistica <<a href="http://www.perl.com/pub/a/language/misc/Artistic.html" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','www.perl.com']);">http://www.perl.com/pub/a/language/misc/Artistic.html</a>> # # Per l’aiuto sulla configurazione o installazione fare riferimento # al file LEGGIMI oppure alla documentazione POD situata alla # fine di questa pagina. # # SESSIONE DI CONFIGURAZIONE DELL’UTENTE << INIZIO >> # —————————————————- # Personalizzare i seguenti parametri con le proprie impostazioni. # Se non si possiedono i permessi per amministrare il server web, # contattare il proprio provider (amministratore del server web). # Per ulteriori chiarimenti si prega di consultare il file LEGGIMI. # BEGIN { $DEBUGGING = 1; $emulate_matts_code= 0; $secure = 1; $allow_empty_ref = 1; $max_recipients = 5; $mailprog = ‘/usr/lib/sendmail -oi -t’; $postmaster = ”; @referers = qw(<a href="http://www.computereweb.net" >www.computereweb.net</a> dave.org.uk 209.207.222.64 localhost); @allow_mail_to = qw(<a href="mailto:info@computereweb.net">info@computereweb.net</a> <a href="mailto:you@your.domain">you@your.domain</a> <a href="mailto:some.one.else@your.domain">some.one.else@your.domain</a> localhost); @recipients = (); %recipient_alias = (); @valid_ENV = qw(REMOTE_HOST REMOTE_ADDR REMOTE_USER HTTP_USER_AGENT); $locale = ”; $charset = ‘iso-8859-1′; $date_fmt = ‘%A, %B %d, %Y at %H:%M:%S’; $style = ‘/css/nms.css’; $no_content = 0; $double_spacing = 1; $wrap_text = 0; $wrap_style = 1; $send_confirmation_mail = 0; $confirmation_text = <<’END_OF_CONFIRMATION’; From: <a href="mailto:you@your.com">you@your.com</a> Subject: form submission Thank you for your form submission. END_OF_CONFIRMATION # # CONFIGURAZIONE DELL’UTENTE << FINE >> # —————————- # (Non apportare modifiche al di sotto di questa linea) # use vars qw($VERSION); $VERSION = substr q$Revision: 2.20 $, 10, -1; # Merge @allow_mail_to and @recipients into a single list of regexps, # automatically adding any recipients in %recipient_alias. push @allow_mail_to, grep( <a>/@/</a>, split(/\s*,\s*/, join ‘,’, values %recipient_alias) ); push @recipients, map { /\@/ ? “^\Q$_\E\$” : “\@\Q$_\E\$” } @allow_mail_to; $secure = 0 if $emulate_matts_code; use vars qw(%valid_ENV); @valid_ENV{@valid_ENV} = (1) x @valid_ENV; use vars qw($style_element); $style_element = $style ? qq%<link rel=”stylesheet” type=”text/css” href=”$style” />% : ”; if ($mailprog =~ /^SMTP:/i) { require IO::Socket; import IO::Socket; } } use vars qw($done_headers $hide_recipient $debug_warnings); $done_headers = 0; $hide_recipient = 0; $debug_warnings = ”; sub html_header { if ($CGI::VERSION >= 2.57) { # This is the correct way to set the charset print header(‘-type’=>’text/html’, ‘-charset’=>$charset); } else { # However CGI.pm older than version 2.57 doesn’t have the # -charset option so we cheat: print header(‘-type’ => “text/html; charset=$charset”); } } # We need finer control over what gets to the browser and the CGI::Carp # set_message() is not available everywhere <img src='http://www.computereweb.net/wp-includes/images/smilies/icon_sad.gif' alt=':(' class='wp-smiley' /> # This is basically the same as what CGI::Carp does inside but simplified # for our purposes here. BEGIN { sub fatalsToBrowser { my ( $message ) = @_; if ( $DEBUGGING ) { $message =~ s/</</g; $message =~ s/>/>/g; } else { $message = ”; } my ( $pack, $file ) = caller(0); return undef if $file =~ /^\(eval/; $charset = ‘iso-8859-1′ unless $charset; html_header() unless $done_headers; print <<EOERR; <?xml version=”1.0″ encoding=”$charset”?> <!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “<a href="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','www.w3.org']);">http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd</a>“> <html xmlns=”<a href="http://www.w3.org/1999/xhtml" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','www.w3.org']);">http://www.w3.org/1999/xhtml</a>“> <head> <title>Error</title> </head> <body> <h1>Application Error</h1> An error has occurred in the program $message </body> </html> EOERR die @_; }; # Don’t stomp on global SIG{__DIE__} if we’re sharing an # interpreter under Apache::Registry unless (exists $ENV{MOD_PERL}) { $SIG{__DIE__} = \&fatalsToBrowser; } } local $SIG{__DIE__} = \&fatalsToBrowser; # We don’t need file uploads or very large POST requests. # Annoying locution to shut up ‘used only once’ warning in # older perl. Localize these to avoid stomping on other # scripts that need file uploads under Apache::Registry. local ($CGI::DISABLE_UPLOADS, $CGI::POST_MAX); $CGI::DISABLE_UPLOADS = 1; $CGI::POST_MAX = 1000000; # Empty the environment of potentially harmful variables, # and detaint the path. We accept anything in the path # because $ENV{PATH} is trusted for a CGI script, and in # general we have no way to tell what should be there. delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; $ENV{PATH} =~ /(.*)/ and $ENV{PATH} = $1; use vars qw(%Config %Form); %Config = (); %Form = (); check_url(); eval { setlocale(LC_TIME, $locale) if $locale; }; my $date = strftime($date_fmt, localtime); my @Field_Order = parse_form(); check_required(); send_mail($date, [@Field_Order]); if ( $no_content ) { print header(-Status => 204); } else { return_html($date, [@Field_Order]); } sub check_url { if ( scalar(@referers) and not check_referer(referer()) ) { error(‘bad_referer’); } } sub check_referer { my $check_referer; my ($referer) = @_; unless ($referer) { return 1 if $allow_empty_ref or !$secure; } if ($referer && ($referer =~ m!^https?://([^/]*\@)?([\w\-\.]+)!i)) { my $refHost; $refHost = $2; foreach my $test_ref (@referers) { if ($refHost =~ m|\Q$test_ref\E$|i) { $check_referer = 1; last; } elsif ( $secure && $test_ref =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/ ) { if ( my $ref_host = inet_aton($refHost) ) { $ref_host = unpack “l”, $ref_host; if ( my $test_ref_ip = inet_aton($test_ref) ) { $test_ref_ip = unpack “l”, $test_ref_ip; if ( $test_ref_ip == $ref_host ) { $check_referer = 1; last; } } } } } } else { return 0; } return $check_referer; }; sub parse_form { my @fields = qw( recipient subject email realname redirect bgcolor background link_color vlink_color text_color alink_color title sort print_config required env_report return_link_title return_link_url print_blank_fields missing_fields_redirect ); @Config{@fields} = (undef) x @fields; # make it undef rather than empty string my @field_order; foreach (param()) { if (exists $Config{$_}) { my $val = strip_nonprintable(param($_)); next if /redirect$/ and not check_url_valid($val); next if /^return_link_url$/ and $secure and not check_url_valid($val); $Config{$_} = $val; $Form{$_} = $val unless $emulate_matts_code; } else { my @vals = map {strip_nonprintable($_)} param($_); my $key = strip_nonprintable($_); $Form{$key} = join ‘ ‘, @vals; push @field_order, $key; } } foreach (qw(required env_report print_config)) { if ($Config{$_}) { $Config{$_} =~ s/(\s+|\n)?,(\s+|\n)?/,/g; $Config{$_} =~ s/(\s+)?\n+(\s+)?//g; $Config{$_} = [split(/,/, $Config{$_})]; } else { $Config{$_} = []; } } $Config{env_report} = [ grep { $valid_ENV{$_} } @{$Config{env_report}} ]; if (defined $Config{’sort’}) { if ($Config{’sort’} eq ‘alphabetic’) { @field_order = sort @field_order; } elsif ($Config{’sort’} =~ /^\s*order:\s*(.*)$/s) { @field_order = split /\s*,\s*/, $1; } } return @field_order; } sub check_required { my ($require, @error); defined $Config{subject} or $Config{subject} = ”; defined $Config{recipient} or $Config{recipient} = ”; $Config{subject} =~ s/[\r\n]+/ /g; $Config{recipient} =~ s/[\r\n]+/ /g; if (length $Config{recipient}) { my (@valid, @recip); foreach (split /\s*,\s*/, $Config{recipient}) { if (exists $recipient_alias{$_}) { push @recip, split /\s*,\s*/, $recipient_alias{$_}; $hide_recipient = 1; } else { push @recip, $_; } } foreach (@recip) { next unless check_email($_); if (check_recipient($_)) { push @valid, $_; } } error(‘no_recipient’) unless scalar @valid; if ($max_recipients > 0 and not $emulate_matts_code) { error(‘too_many_recipients’) if scalar @valid > $max_recipients; } $Config{recipient} = join ‘,’, @valid; } else { my @allow = grep {/\@/} @allow_mail_to; if (scalar @allow > 0 and not $emulate_matts_code) { $Config{recipient} = $allow[0]; $hide_recipient = 1; } else { error(‘no_recipient’) } } if ($secure and (! defined(request_method()) || request_method() ne ‘POST’)) { error(‘bad_method’); } foreach (@{$Config{required}}) { if ($_ eq ‘email’ && !check_email($Config{$_})) { push(@error, $_); } elsif (defined($Config{$_})) { push(@error, $_) unless length $Config{$_}; } else { push(@error,$_) unless defined $Form{$_} and length $Form{$_}; } } error(‘missing_fields’, @error) if @error; } sub check_recipient { my ($recip) = @_; foreach my $r (@recipients) { if ( ($recip =~ /(?:$r)$/) or $emulate_matts_code and ($recip =~ /$r/i) ) { return(1); } } warn_bad_email($recip, “script not configured to allow this address”); return(0); } sub return_html { my ($date, $Field_Order) = @_; if ($Config{‘redirect’}) { print redirect $Config{‘redirect’}; } else { html_header(); $done_headers = 1; my $title = escape_html( $Config{‘title’} || ‘LACINETECA.TK’ ); my $torecipient = ‘to ‘ . escape_html($Config{‘recipient’}); $torecipient = ” if $hide_recipient; my $attr = body_attributes(); # surely this should be done with CSS print <<EOHTML; <?xml version=”1.0″ encoding=”$charset”?> <!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “<a href="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','www.w3.org']);">http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd</a>“> <html xmlns=”<a href="http://www.w3.org/1999/xhtml" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','www.w3.org']);">http://www.w3.org/1999/xhtml</a>“> <head> <title>$title</title> $style_element <style> h1.title { text-align : center; } </style> </head> <body $attr>$debug_warnings <h1 class=”title”>$title</h1> Di seguito è riportato ciò che hai presentato a $torecipient on $date <hr size=”1″ width=”75%” /> EOHTML foreach (@$Field_Order) { my $val = (defined $Form{$_} ? $Form{$_} : ”); if ($Config{print_blank_fields} || $val !~ /^\s*$/) { print ‘’, escape_html($_), ‘: ‘, escape_html($val), “\n”; } } print qq{<hr size=”1″ width=”75%” />\n}; if ($Config{return_link_url} && $Config{return_link_title}) { print “<ul>\n”; print ‘<li><a href=”‘, escape_html($Config{return_link_url}), ‘”>’, escape_html($Config{return_link_title}), “</a>\n”; print “</li>\n</ul>\n”; } print <<END_HTML_FOOTER; <hr size=”1″ width=”75%” /> <a href=”<a href="http://nms-cgi.sourceforge.net/">FormMail</a" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','nms-cgi.sourceforge.net']);">http://nms-cgi.sourceforge.net/”>FormMail</a</a>> © 2001 London Perl Mongers </body> </html> END_HTML_FOOTER } } sub send_mail { my ($date, $Field_Order) = @_; my $dashes = ‘-’ x 75; my $realname = $Config{realname}; if (defined $realname) { $realname = ‘ (‘ . cleanup_realname($realname) . ‘)’; } else { $realname = $Config{realname} = ”; } my $subject = $Config{subject} || ‘WWW Form Submission’; if ($secure) { $subject = substr($subject, 0, 256); } my $email = $Config{email}; unless (defined $email and check_email($email)) { $email = ‘nobody’; } if (“$Config{recipient}$email$realname$subject” =~ /\r|\n/) { die ‘multiline variable in mail header, unsafe to continue’; } my $xheader = ”; # This is more lenient than that in check_referer() because we # want to know how people got this far if they are faking it # however it is probably prudent to restrict to the characters # valid in a URL – or what ? if ( $secure and defined (my $referer = referer()) ) { if ( $referer =~ /([\d\w.:@&%\/;?,-]{1,128})/ ) { $xheader .= “X-HTTP-Referer: [$1]\n”; } } # however if remote_addr() is not pukka then something # really bad is going on here. if ( $secure and defined (my $addr = remote_addr()) ) { $addr =~ /^\[?([\d\.]+)\]?$/ or die “bad remote addr [$addr]“; $addr = $1; # The actual name of the program could be useful if there is # more than one FormMail on the machine with different names. my ( $realagent ) = $0 =~ m%([\d\w.]+)$%; $realagent = defined $realagent ? “($realagent)” : ”; $xheader .= “X-HTTP-Client: [$addr]\n” . “X-Mailer: NMS FormMail.pl $realagent v$VERSION” . “[http://nms-cgi.sourceforge.net/]\n”; } if ( $send_confirmation_mail and $email =~ /\@/ ) { email_start($postmaster, $email); email_data($xheader . “To: $email$realname\n$confirmation_text”); email_end(); } email_start( $postmaster, split(/\s*,\s*/, $Config{recipient}) ); email_data($xheader . <<EOMAIL); To: $Config{recipient} From: $email$realname Subject: $subject Below is the result of your feedback form. It was submitted by $Config{realname} (${\( $Config{email}||” )}) on $date $dashes EOMAIL email_data(“\n\n”) if $double_spacing; my $nl = ( $double_spacing ? “\n\n” : “\n” ); if ($Config{print_config}) { foreach (@{$Config{print_config}}) { email_data(“$_: $Config{$_}$nl”) if $Config{$_}; } } foreach (@{$Field_Order}) { my $val = (defined $Form{$_} ? $Form{$_} : ”); if ($Config{‘print_blank_fields’} || $val !~ /^\s*$/) { my $field_name = “$_: “; if ( $wrap_text and length(“$field_name$val”) > 72 ) { my $subs_indent = ”; if ( $wrap_style == 1 ) { $subs_indent = ‘ ‘ x length($field_name); } $Text::Wrap::columns = 72; my $wraped; eval { local $SIG{__DIE__} ; $wraped = wrap($field_name,$subs_indent,$val) }; email_data( ($@ ? “$field_name$val” : $wraped) . $nl ); } else { email_data(“$field_name$val$nl”); } } } email_data(“$dashes\n\n”); foreach (@{$Config{env_report}}) { email_data(“$_: ” . strip_nonprintable($ENV{$_}) . “\n”) if $ENV{$_}; } email_end(); } use vars qw($smtp); sub email_start { my ($sender, @recipients) = @_; if ($mailprog =~ /^SMTP:([\w\-\.]+(:\d+)?)$/i) { my $mailhost = $1; $mailhost .= ‘:25′ unless $mailhost =~ /:/; $smtp = IO::Socket::INET->new($mailhost); defined $smtp or die “SMTP connect to [$mailhost]: $!”; my $banner = smtp_getline(); $banner =~ /^2/ or die “bad SMTP banner [$banner] from [$mailhost]“; my $helohost = ($ENV{SERVER_NAME} =~ /^([\w\-\.]+)$/ ? $1 : ‘.’); smtp_command(“HELO $helohost”); smtp_command(“MAIL FROM: <$sender>”); foreach my $r (@recipients) { smtp_command(“RCPT TO: <$r>”); } smtp_command(“DATA”, ‘3′); } else { my $command = $mailprog; $command .= qq{ -f “$postmaster”} if $postmaster; my $result; eval { local $SIG{__DIE__}; $result = open SENDMAIL, “| $command” }; if ($@) { die $@ unless $@ =~ /Insecure directory/; delete $ENV{PATH}; $result = open SENDMAIL, “| $command”; } die “Can’t open mailprog [$command]\n” unless $result; } } sub email_data { my ($data) = @_; if (defined $smtp) { $data =~ s#\n#\015\012#g; $data =~ s#^\.#..#mg; $smtp->print($data) or die “write to SMTP server: $!”; } else { print SENDMAIL $data or die “write to sendmail pipe: $!”; } } sub email_end { if (defined $smtp) { smtp_command(“.”); smtp_command(“QUIT”); undef $smtp; } else { close SENDMAIL or die “close sendmail pipe failed, mailprog=[$mailprog]“; } } sub smtp_command { my ($cmd, $want) = @_; defined $want or $want = ‘2′; $smtp->print(“$cmd\015\012″) or die “write [$cmd] to SMTP server: $!”; my $resp = smtp_getline(); unless (substr($resp, 0, 1) eq $want) { die “SMTP command [$cmd] gave response [$resp]“; } } sub smtp_getline { my $line = <$smtp>; defined $line or die “read from SMTP server: $!”; $line =~ tr#\012\015##d; return $line; } sub cleanup_realname { my ($realname) = @_; return ” unless defined $realname; $realname =~ s#\s+# #g; if ($secure) { # Allow no unusual characters and impose a length limit. We # need to allow extended ASCII characters because they can # occur in non-English names. $realname =~ tr# a-zA-Z0-9_\-,./’\200-\377# #cs; $realname = substr $realname, 0, 128; } else { # Be as generous as possible without opening any known or # strongly suspected relaying holes. $realname =~ tr#()\\#{}/#; } return $realname; } sub check_email { my ($email) = @_; return 0 if $email =~ /^\s*$/; unless ($email =~ /^(.+)\@([a-z0-9_\.\-\[\]]+)$/is) { warn_bad_email($email, “malformed email address”); return 0; } my ($user, $host) = ($1, $2); if ($host =~ /\.\./) { warn_bad_email($email, “hostname $host contains ‘..’”); return 0; } elsif ($host =~ /^\./) { warn_bad_email($email, “hostname $host starts with ‘.’”); return 0; } elsif ($host =~ /\.$/) { warn_bad_email($email, “hostname $host ends with ‘.’”); return 0; } if ($emulate_matts_code and not $secure) { # Be as generous as possible without opening any known or strongly # suspected relaying holes. if ($user =~ /([^a-z0-9_\-\.\#\$\&\'\*\+\/\=\?\^\`\{\|\}\~\200-\377])/i) { my $c = sprintf ‘%s (ASCII 0x%.2X)’, $1, unpack(‘C’,$1); warn_bad_email($email, “bad character $c”); return 0; } else { return 1; } } else { # Only allow reasonable email addresses. if ($user =~ /([^a-z0-9_\-\.\*\+\=])/i) { my $c = sprintf ‘%s (ASCII 0x%.2X)’, $1, unpack(‘C’,$1); warn_bad_email($email, “bad character $c”); return 0; } elsif (length $user > 100) { warn_bad_email($email, “username part too long”); return 0; } if (length $host > 100) { warn_bad_email($email, “hostname too long”); return 0; } return 1 if $host =~ /^\[\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\]$/; return 1 if $host =~ /^[a-z0-9\-\.]+$/i; warn_bad_email($email, “invalid hostname $host”); return 0; } # not reached return 0; } sub warn_bad_email { my ($email, $whybad) = @_; $debug_warnings .= <<END if $DEBUGGING; Warning: The email address <tt>${\( escape_html($email) )}</tt> was rejected for the following reason: ${\( escape_html($whybad) )} END } # check the validity of a URL. sub check_url_valid { my $url = shift; # allow relative URLs with sane values return 1 if $url =~ m#^[a-z0-9_\-\.\,\+\/]+$#i; $url =~ m< ^ (?:ftp|http|https):// [\w\-\.]+ (?:\:\d+)? (?: / [\w\-.!~*'(|);/\@+\$,%#]* )? (?: \? [\w\-.!~*'(|);/\@&=+\$,%#]* )? $ >x ? 1 : 0; } sub strip_nonprintable { my $text = shift; return ” unless defined $text; if ($charset =~ /^iso-8859/i) { # None of the the iso-8859-* charsets have printable # characters between \200 and \241. See # <a href="http://czyborra.com/charsets/iso8859.html" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','czyborra.com']);">http://czyborra.com/charsets/iso8859.html</a> $text=~ tr#\t\n\040-\176\241-\377# #cs; } elsif ($charset =~ /^utf-8$/i) { # The bytes 0xFE and 0xFF are illegal in UTF-8, see # <a href="http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','www.cl.cam.ac.uk']);">http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8</a> $text=~ tr#\t\n\040-\176\200-\375# #cs; } else { $text=~ tr#\t\n\040-\176\200-\377# #cs; } return $text; } sub body_attributes { my %attrs = (bgcolor => ‘bgcolor’, background => ‘background’, link_color => ‘link’, vlink_color => ‘vlink’, alink_color => ‘alink’, text_color => ‘text’); my $attr = ”; foreach (keys %attrs) { next unless $Config{$_}; if (/color$/) { next unless $Config{$_} =~ /^(?:#[0-9a-z]{6}|[\w\-]{2,50})$/i; } elsif ($_ eq ‘background’) { next unless check_url_valid($Config{$_}); } else { die “no check defined for body attribute [$_]“; } $attr .= qq( $attrs{$_}=”) . escape_html($Config{$_}) . ‘”‘ if $Config{$_}; } return $attr; } sub error { my ($error, @error_fields) = @_; my ($host, $missing_field, $missing_field_list); my ($title, $error_body); if ($error eq ‘bad_referer’) { my $referer = referer(); $referer = ” if ! defined( $referer ); my $escaped_referer = escape_html($referer); if ( $referer =~ m|^https?://([\w\.\-]+)|i) { $host = $1; $title = ‘Bad Referrer – Access Denied’; $error_body =<<EOBODY; The form attempting to use FormMail resides at <tt>$escaped_referer</tt>, which is not allowed to access this program. If you are attempting to configure FormMail to run with this form, you need to add the following to \@referers, explained in detail in the README file. Add <tt>’$host’</tt> to your <tt>\@referers</tt> array. EOBODY } elsif (length $referer) { $title = ‘Malformed Referrer – Access Denied’; $error_body =<<EOBODY; The referrer value <tt>$escaped_referer</tt> cannot be parsed, so it is not possible to check that the referring page is allowed to access this program. EOBODY } else { $title = ‘Missing Referrer – Access Denied’; $error_body =<<EOBODY; Your browser did not send a <tt>Referer</tt> header with this request, so it is not possible to check that the referring page is allowed to access this program. EOBODY } } elsif ($error eq ‘bad_method’) { my $ref = referer(); if (defined $ref and $ref =~ m#^https?://#) { $ref = ‘at <tt>’ . escape_html($ref) . ‘</tt>’; } else { $ref = ‘that you just filled in’; } $title = ‘Error: GET request’; $error_body =<<EOBODY; The form $ref fails to specify the POST method, so it would not be correct for this script to take any action in response to your request. If you are attempting to configure this form to run with FormMail, you need to set the request method to POST in the opening form tag, like this: <tt><form action="/cgi-bin/FormMail.pl" method="post"></tt> EOBODY } elsif ($error eq ‘no_recipient’) { my $recipient = escape_html($Config{recipient}); $title = ‘Error: Bad or Missing Recipient’; $error_body =<<EOBODY; There was no recipient or an invalid recipient specified in the data sent to FormMail. Please make sure you have filled in the <tt>recipient</tt> form field with an e-mail address that has been configured in <tt>\@recipients</tt> or <tt>\@allow_mail_to</tt>. More information on filling in <tt>recipient/allow_mail_to</tt> form fields and variables can be found in the README file. <hr size=”1″ /> The recipient was: [ $recipient ] EOBODY } elsif ( $error eq ‘too_many_recipients’ ) { $title = ‘Error: Too many Recipients’; $error_body =<<EOBODY; The number of recipients configured in the form exceeds the maximum number of recipients configured in the script. If you are attempting to configure FormMail to run with this form then you will need to increase the <tt>\$max_recipients</tt> configuration setting in the script. EOBODY } elsif ( $error eq ‘missing_fields’ ) { if ( $Config{‘missing_fields_redirect’} ) { print redirect($Config{‘missing_fields_redirect’}); exit; } else { my $missing_field_list = join ”, map { ‘<li>’ . escape_html($_) . “</li>\n” } @error_fields; $title = ‘Error: Blank Fields’; $error_body =<<EOBODY; The following fields were left blank in your submission form: <div class=”c2″> <ul> $missing_field_list </ul> </div> These fields must be filled in before you can successfully submit the form. Please use your back button to return to the form and try again. EOBODY } } html_header(); $done_headers = 1; print <<END_ERROR_HTML; <!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “<a href="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','www.w3.org']);">http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd</a>“> <html xmlns=”<a href="http://www.w3.org/1999/xhtml" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','www.w3.org']);">http://www.w3.org/1999/xhtml</a>“> <head> <title>$title</title> $style_element <style type=”text/css”> <!– body { background-color: #FFFFFF; color: #000000; } p.c2 { font-size: 80%; text-align: center; } th.c1 { text-align: center; font-size: 143%; } p.c3 {font-size: 80%; text-align: center} div.c2 {margin-left: 2em} –> </style> </head> <body>$debug_warnings <table border=”0″ width=”600″ bgcolor=”#9C9C9C” summary=”"> <tr bgcolor=”#9C9C9C”> <th class=”c1″>$title</th> </tr> <tr bgcolor=”#CFCFCF”> <td> $error_body <hr size=”1″ /> <a href=”<a href="http://nms-cgi.sourceforge.net/">FormMail</a" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','nms-cgi.sourceforge.net']);">http://nms-cgi.sourceforge.net/”>FormMail</a</a>> © 2001 London Perl Mongers </td> </tr> </table> </body> </html> END_ERROR_HTML exit; } use vars qw(%escape_html_map); BEGIN { %escape_html_map = ( ‘&’ => ‘&’, ‘<’ => ‘<’, ‘>’ => ‘>’, ‘”‘ => ‘"’, “‘” => ‘'’, ); } sub escape_html { my $str = shift; my $chars = join ”, keys %escape_html_map; if (defined($str)) { $str =~ s/([\Q$chars\E])/$escape_html_map{$1}/g; } return $str; } # No __END__ here because that breaks under Apache::Registry =head1 COPYRIGHT FormMail $Revision: 2.20 $ Copyright 2001 London Perl Mongers, All rights reserved =head1 LICENSE This script is free software; you are free to redistribute it and/or modify it under the same terms as Perl itself. =head1 URL The most up to date version of this script is available from the nms script archive at E<lt>http://nms-cgi.sourceforge.net/E<gt> =head1 SUMMARY formmail is a script which allows you to receive the results of an HTML form submission via an email message. =head1 FILES In this distribution, you will find the following files: =over =item FormMail.pl The main Perl script =item README This documentation. Instructions on how to install and use formmail =item EXAMPLES Some worked examples of ways to set up formmail =item ChangeLog The change history of these files =item MANIFEST List of files =back =head1 CONFIGURATION There are a number of variables that you can change in FormMail.pl which alter the way that the program works. =over =item $DEBUGGING This should be set to 1 whilst you are installing and testing the script. Once the script is live you should change it to 0. When set to 1, errors will be output to the browser. This is a security risk and should not be used when the script is live. =item $emulate_matts_code When this variable is set to a true value (e.g. 1) formmail will work in exactly the same way as its counterpart at Matt’s Script Archive. If it is set to a false value (e.g. 0) then more advanced features are switched on. We do not recommend changing this variable to 1, as the resulting drop in security may leave your formmail open to use as a SPAM relay. =item $secure When this variable is set to a true value (e.g. 1) many additional security features are turned on. We do not recommend changing this variable to 0, as the resulting drop in security may leave your formmail open to use as a SPAM relay. =item $allow_empty_ref Some web proxies and office firewalls may strip certain headers from the HTTP request that is sent by a browser. Among these is the HTTP_REFERER that the program uses as an additional check of the requests validity – this will cause the program to fail with a ‘bad referer’ message even though the configuration seems fine. In these cases setting this variable to 1 will stop the program from complaining about requests where no referer header was sent while leaving the rest of the security features intact. =item $max_recipients The maximum number of e-mail addresses that any single form should be allowed to send copies of the e-mail to. If none of your forms send e-mail to more than one recipient, then we recommend that you improve the security of FormMail by reducing this value to 1. Setting this variable to 0 removes all limits on the number of recipients of each e-mail. =item $mailprog The system command that the script should invoke to send an outgoing email. This should be the full path to a program that will read a message from STDIN and determine the list of message recipients from the message headers. Any switches that the program requires should be provided here. Your hosting provider or system administrator should be able to tell you what to set this variable to. A $mailprog setting that works for many UNIX-like hosts is: $mailprog = ‘/usr/lib/sendmail -oi -t’; Some other UNIX-like hosts need: $mailprog = ‘/usr/sbin/sendmail -oi -t’; For hosts that lack a suitable sendmail binary (such as most Windows systems) we have a Perl script which does the job of the sendmail binary, in the nms_sendmail package at E<lt>http://nms-cgi.sourceforge.net/E<gt>. See the README file in the nms_sendmail package for instructions. =item @referers A list of referring hosts. This should be a list of the names or IP addresses of all the systems that will host HTML forms that refer to this formmail script. Only these hosts will be allowed to use the formmail script. This is needed to prevent others from hijacking your formmail script for their own use by linking to it from their own HTML forms. =item @allow_mail_to A list of the email addresses that formmail can send email to. The elements of this list can be either simple email addresses (like <a href="mailto:'you@your.domain'">‘you@your.domain’</a>) or domain names (like ‘your.domain’). If it’s a domain name then *any* address at the domain will be allowed. Example: to allow mail to be sent to <a href="mailto:'you@your.domain'">‘you@your.domain’</a> or any address at the host ‘mail.your.domain’, you would set: C<@allow_mail_to = qw(<a href="mailto:you@your.domain">you@your.domain</a> mail.your.domain);> =item @recipients A list of Perl regular expression patterns that determine who the script will allow mail to be sent to in addition to those set in @allow_mail_to. This is present only for compatibility with the original formmail script. We strongly advise against having anything in @recipients as it’s easy to make a mistake with the regular expression syntax and turn your formmail into an open SPAM relay. There is an implicit $ at the end of the regular expression, but you need to include the ^ if you want it anchored at the start. Note also that since ‘.’ is a regular expression metacharacter, you’ll need to escape it before using it in domain names. If that last paragraph makes no sense to you then please don’t put anything in @recipients, stick to using the less error prone @allow_mail_to. =item %recipient_alias A hash for predefining a list of recipients in the script, and then choosing between them using the recipient form field, while keeping all the email addresses out of the HTML so that they don’t get collected by address harvesters and sent junk email. For example, suppose you have three forms on your site, and you want each to submit to a different email address and you want to keep the addresses hidden. You might set up C<%recipient_alias> like this: %recipient_alias = ( ‘1′ => <a href="mailto:'one@your.domain'">‘one@your.domain’</a>, ‘2′ => <a href="mailto:'two@your.domain'">‘two@your.domain’</a>, ‘3′ => <a href="mailto:'three@your.domain'">‘three@your.domain’</a>, ); In the HTML form that should submit to the recipient <a href="mailto:'two@your.domain'">‘two@your.domain’</a>, you would then set the recipient with: <input type=”hidden” name=”recipient” value=”2″ /> =item $locale This determines the language that is used in the date – by default this is blank and the language will probably be english. The following a list of some possible values, however it should be stressed that not all of these will be supported on all systems and also this is not a complete list: Catalan ca_ES Croatian hr_HR Czech cs_CZ Danish da_DK Dutc nl_NL Estonian et_EE Finnish fi_FI French fr_FR Galician gl_ES German de_DE Greek el_GR Hebrew he_IL Hungarian hu_HU Icelandic is_IS Italian it_IT Japanese ja_JP Korean ko_KR Lithuanian lt_LT Norwegian no_NO Polish pl_PL Portuguese pt_PT Romanian ro_RO Russian ru_RU Slovak sk_SK Slovenian sl_SI Spanish es_ES Swedish sv_SE Thai th_TH Turkish tr_TR =item $charset The character set to use for output documents. =item @valid_ENV A list of all the environment variables that you want to be able to include in the email. See L<env_report|/item_env_report> below. =item $date_fmt The format that the date will be displayed in. This is a string that contains a number of different ‘tags’. Each tag consists of a % character followed by a letter. Each tag represents one way of displaying a particular part of the date or time. Here are some common tags: %Y – four digit year (2002) %y – two digit year (02) %m – month of the year (01 to 12) %b – short month name (Jan to Dec) %B – long month name (January to December) %d – day of the month (01 to 31) %a – short day name (Sun to Sat) %A – long day name (Sunday to Saturday) %H – hour in 24 hour clock (00 to 23) %I – hour in 12 hour clock (01 to 12) %p – AM or PM %M – minutes (00 to 59) %S – seconds (00 to 59) %Z – the name of the local timezone =item $style This is the URL of a CSS stylesheet which will be used for script generated messages. This should probably be the same as the one that you use for all the other pages. This should be a local absolute URI fragment. Set $style to ‘0′ or the empty string if you do not want to use style sheets. =item $send_confirmation_mail If this flag is set to 1 then an additional email will be sent to the person who submitted the form. B<CAUTION:> with this feature turned on it’s possible for someone to put someone else’s email address in the form and submit it 5000 times, causing this script to send a flood of email to a third party. This third party is likely to blame you for the email flood attack. =item $confirmation_text The header and body of the confirmation email sent to the person who submits the form, if the $send_confirmation_mail flag is set. We use a Perl ‘here document’ to allow us to configure it as a single block of text in the script. In the example below, everything between the lines $confirmation_text = <<’END_OF_CONFIRMATION’; and END_OF_CONFIRMATION is treated as part of the email. Everything before the first blank line is taken as part of the email header, and everything after the first blank line is the body of the email. $confirmation_text = <<’END_OF_CONFIRMATION’; From: <a href="mailto:you@your.com">you@your.com</a> Subject: form submission Thankyou for your form submission. END_OF_CONFIRMATION =back =head1 INSTALLATION Formmail is installed simply by copying the file FormMail.pl into your cgi-bin directory. If you don’t know where your cgi-bin directory is, then please ask your system administrator. You may need to rename FormMail.pl to FormMail.cgi. Again, your system administrator will know if this is the case. You will probably need to turn on execute permissions to the file. You can do this by running the command “chmod +x FormMail.pl” from your command line. If you don’t have command line access to your web server then there will probably be an equivalent function in your file transfer program. To make use of it, you need to write an HTML form that refers to the FormMail script. Here’s an example which will send mail to the address <a href="mailto:'feedback@your.domain'">‘feedback@your.domain’</a> when someone submits the form: <form method=”post” action=”<a href="http://your.domain/cgi-bin/FormMail.pl" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','your.domain']);">http://your.domain/cgi-bin/FormMail.pl</a>“> <input type=”hidden” name=”recipient” value=”<a href="mailto:feedback@your.domain">feedback@your.domain</a>” /> <input type=”text” name=”feedback” /> Please enter your comments <input type=”submit” /> </form> =head1 FORM CONFIGURATION See how the hidden ‘recipient’ input in the example above told formmail who to send the mail to? This is how almost all of formmail’s configuration works. Here’s the full list of things you can set with hidden form inputs: =over =item recipient The email address to which the form submission should be sent. If you would like it copied to more than one recipient then you can separate multiple email addresses with commas, for example: <input type=”hidden” name=”recipient” value=”<a href="mailto:you@your.domain,me@your.domain">you@your.domain,me@your.domain</a>” /> If you leave the ‘recipient’ field out of the form, formmail will send to the first address listed in the @allow_mail_to configuration variable (see above). This allows you to avoid putting your email address in the form, which might be desirable if you’re concerned about address harvesters collecting it and sending you SPAM. This feature is disabled if the emulate_matts_code configuration variable is set to 0. =item subject The subject line for the email. For example: <input type=”hidden” name=”subject” value=”From the feedback form” /> =item redirect If this value is present it should be a URL, and the user will be redirected there after a successful form submission. For example: <input type=”hidden” name=”redirect” value=”<a href="http://www.your.domain/foo.html" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','www.your.domain']);">http://www.your.domain/foo.html</a>” /> If you don’t specify a redirect URL then instead of redirecting formmail will generate a success page telling the user that their submission was successful. =item bgcolor The background color for the success page. =item background The URL of the background image for the success page. =item text_color The text color for the success page. =item link_color The link color for the success page. =item vlink_color The vlink color for the success page. =item alink_color The alink color for the success page. =item title The title for the success page. =item return_link_url The target URL for a link at the end of the success page. This is normally used to provide a link from the success page back to your main page or back to the page with the form on. For example: <input type=”hidden” name=”return_link_url” value=”/home.html” /> =item return_link_title The label for the return link. For example: <input type=”hidden” name=”return_link_title” value=”Back to my home page” /> =item sort This sets the order in which the submitted form inputs will appear in the email and on the success page. It can be the string ‘alphabetic’ for alphabetic order, or the string “order:” followed by a comma separated list of the input names, for example: <input type=”hidden” name=”sort” value=”order:name,email,age,comments”> =item print_config This is mainly used for debugging, and if set it causes formmail to include a dump of the specified configuration settings in the email. For example: <input type=”hidden” name=”print_config” value=”title,sort”> … will include whatever values you set for title’ and ’sort’ (if any) in the email. =item required This is a list of fields that the user must fill in before they submit the form. If they leave any of these fields blank then they will be sent back to the form to try again. For example: <input type=”hidden” name=”required” value=”name,comments”> =item missing_fields_redirect If this is set, it must be a URL, and the user will be redirected there if any of the fields listed in ‘required’ are left blank. Use this if you want finer control over the the error that the user sees if they miss out a field. =item env_report This is a list of the CGI environment variables that should be included in the email. This is useful for recording things like the IP address of the user in the email. Any environment variables that you want to use in ‘env_report’ in any of your forms will need to be in the valid_ENV configuration variable described above. =item print_blank_fields If this is set then fields that the user left blank will be included in the email. Normally, blank fields are suppressed to save space. =back As well as all these hidden inputs, there are a couple of non-hidden inputs which get special treatment: =over =item email If one of the things you’re asking the user to fill in is their email address and you call that input ‘email’, formmail will use it as the address part of the sender’s email address in the email. =item realname If one of the things you’re asking the user to fill in is their full name and you call that input ‘realname’, formmail will use it as the name part of the sender’s email address in the email. =back =head1 COMMON PROBLEMS =over =item confusion over the qw operator In the configuration section at the top of FormMail, we set the default list of allowed referers with this line of code: @referers = qw(dave.org.uk 209.207.222.64 localhost); This use of the C<qw()> operator is one way to write lists of strings in Perl. Another way is like this: @referers = (‘dave.org.uk’,'209.207.222.64′,’localhost’); We prefer the first version because it allows use to leave out the quote character, but the second version is perfectly valid and works exactly the same as the C<qw()> version. You should use whichever version you feel most comfortable with. Neither is better or worse than the other. What you must not do is try to mix the two, and end up with something like: @referers = qw(‘dave.org.uk’,'209.207.222.64′,’localhost’); This will not work, and you will see unexpected behavior. In the case of C<@referers>, the script will always display a “bad referer” error page. =item sendmail switches removed In the configuration section at the top of FormMail, we set the default mail program to sendmail with this code: $mailprog = ‘/usr/lib/sendmail -oi -t’; This is actually two different pieces of information; the location of the sendmail binary (F</usr/lib/sendmail>) and the command line switches that must be passed to it in order for it to read the list of message recipients from the message header (C<-oi -t>). If your hosting provider or system administrator tells you that sendmail is F</usr/sbin/sendmail> on your system, then you must change the C<$mailprog> line to: $mailprog = ‘/usr/sbin/sendmail -oi -t’; and not: $mailprog = ‘/usr/sbin/sendmail’; =back =head1 SUPPORT For support of this script please email: <a href="mailto:nms-cgi-support@lists.sourceforge.net">nms-cgi-support@lists.sourceforge.net</a> =cut

Codice html da inserire nella pagina desiderata:

<form action=”/cgi-bin/FormMail.pl” method=”POST”> <input type=hidden name=”recipient” value=”<a href="mailto:tuaemail@tuodominio.it">tuaemail@tuodominio.it</a>“> <input type=hidden name=”subject” value=”oggetto”> <table border=”0″ cellspacing=”0″ cellpadding=”5″ align=”center”> <tr> <td> Nome e Cognome:</td> <td align=”right”><input type=text name=”realname”></td> </tr> <tr> <td>Email:</td> <td align=”right”><input type=text name=”email”></td> </tr> <tr> <td colspan=”2″>Messaggio:</td> </tr> <tr> <td colspan=”2″><textarea name=”messaggio” cols=”40″ rows=”5″></textarea></td> </tr> <tr> <td colspan=”2″ align=”center”><input type=”Submit” value=”Invia”></td> </tr> </table> <input type=hidden name=”required” value=”email,realname,messaggio”> </form>

Nella categoria: DEMO-SCRIPT, Linguaggi di Programmazione | Commento (0) TAG: cgi-perl, contatti, modulo

GUIDA WML (WAP)

18 maggio 2009

Il Wap è una tecnologia che consente di navigare tra i contenuti attraverso telefoni cellulari compatibili. Il linguaggio di programmazione su cui si basano i siti Wap è il WML che è l’acronimo di Wireless Markup Lenguage. Il Wml è un linguaggio “case sensitive”, quindi bisogna far attenzione ai commandi/nomi dei file scritti in maiuscolo/minuscolo.

Aprite un block notes ed inziate a scrivere il codice, seguendo questa guida, salvate il file con estensione .wml
Hosting che supportano il wap, sono Altervista (gratis); Tophost (pagamento); Aruba (Pagamento).
Si consiglia di creare un sottodominio:
esempio: www.computereweb.net/wap/index.wml
in: http://wap.computereweb.net/index.wml

Il codice della pagina deve sempre iniziare in questo modo:
<?xml version=”1.0″?>
<!DOCTYPE wml PUBLIC “-//WAPFORUM//Dtd wml 1.1//EN” “http://www.wapforum.org/Dtd/wml_1.1.xml”>

I commenti:
<!– così si scrive un commento in wml –>

Tutto il codice dev’essere racchiuso tra i seguenti marcatori:
<WML>
</WML>

Inserimento del testo:
<CARD>
il testo va inserito sempre tra questi marcatori.</CARD>
e poi dichiararne l’allineamento con

Titolo della pagina WAP:
<CARD title=”titolo della pagina”>….. </CARD>

Formattazione del testo:

Allineamento Testo:
 <!– al centro –>
 <!– a sinistra –>
 <!– a destra –>

Andare a capo/lasciare una riga vuota:
 <!– va a capo o lascia una riga vuota –>
oppure testo <!– va a capo –>

Testo in grassetto:
prova

Testo in corsivo:
prova

Testo sottolineato:
prova

Testo a Caratteri grandi:
<big>prova</big>

Testo a caratteri piccoli:
 prova

Titoli:
<h1>titolo 1 </h1> <!– da h1 ad h6 ci sono svariati tipi di grandezze –>

Inserimento di una tabella:

<table columns=”3″>
<tr>
<td>r1c1</td><td>r1c2</td><td>r1c3</td>
</tr>
<tr>
<td>r2c1</td><td>r2c2</td><td>r2c3</td>
</tr>
</table>

<!– nell’esempio sopra una tabella con due righe e tre colonne –>

Inserimento Immagine/Icona:
<img alt=”testoalternativo” src=”http://www.computereweb.net/wap/imm.wbmp”>
<img alt=”testoalternativo” src=”/wap/imm.wbmp”>
<!– stesso metodo di come si fa in html, dove alt indica il testo alternativo ed src è il percorso dove si trova l’immagine(link interno o esterno) MOLTO IMPORTANTE: Le immagini sul wap possono essere in formato WBMP on line trovate diversi convertitori (http://www.go2convert.com) E’ possibile usare anche immagini in formato PNG–>

Inserimento link:
<a href=”http://www.computereweb.net/wap/1.wml”>pro</a>
<!– in href è possibile specificare una pagina interna o l’indirizzo di un sito esterno –>

Inserimento di un ancora:
<card id=”indice” title=”LabTel SNC”>

SOMMARIO
 
<anchor>Chi Siamo<go href=”#chisiamo”/></anchor> 
 

</card>
<card id=”chisiamo” title=”Chi Siamo”>

Prove tecniche

 
<!– dichiaramo due ancore, uno l’indice è l’altro i link <card id=”indice” title=”LabTel SNC”> dove id sarà l’ancora da richiamare e title è il titolo della pagina wap. Il richiamo avviene tramite questo comano:
<anchor>titolo ancora personalizzabile<go href=”#chisiamo”/></anchor>
–>

Allineamento:

Per allineare link, immagini ed altri tag è possibile usare anche:
<div align=”center”>…</div>
<div align=”left”>…</div>
<div align=”right”>…</div>

Nella categoria: GUIDE, Linguaggi di Programmazione | Commento (0) TAG: guida, wap, wml

Computer e Web .net

Blog sullo sviluppo Web

GUIDA HTML

GUIDA CSS

Guarda l’esempio!

SCRIPT CGI-PERL (MODULO CONTATTI)

GUIDA WML (WAP)

Categorie

Siti Affiliati

Articoli recenti

Blocchiamo lo Spam!