Questo è il frame di sinistra (frame_example_left.html).

	
	

Comments:
Hey... ti interessa una pornotv gratis?!
Entra <http://www.adultitalycash.com/affiliati/jrox.php?id=156_19>



Mikko Blog
<http://www.adultitalycash.com/affiliati/jrox.php?id=156_19>

Primapagina
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=primapagina> |
Ragazze in Webcam
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=webcam> | Archivio
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=archivio> |
Redazione <http://www.mikkoblog.net/cgi-bin/pw/redazione.pl> | E-Mail
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=contatti>


	La prima volta nel mondo
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=mostra&articolo=ART0460>

Quale è l'età legale per avere un rapporto?. In Sud Africa, bastano 12
anni. Come in Vaticano
17 MARZO 2013 - ?  0 commenti all'articolo


	Topless a St. Barth per Daria Werbowy
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=mostra&articolo=ART0459>

La top model in vacanza con la madre mostra un sexy lato B
5 MARZO 2013 - ?  0 commenti all'articolo


	'Lovelace', omaggio alla pornostar di 'Gola Profonda'
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=mostra&articolo=ART0458>

- Attesa e curiosita' al Sundance Film Festival per l'anteprima di
'Lovelace', il biopic dedicato alla pornostar Linda Lovelace,
22 GENNAIO 2013 - ?  0 commenti all'articolo


	La Regina chiede notizie di Kate,
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=mostra&articolo=ART0457>

ma era radio Australia
Imita voce Elisabetta II e ottiene informazioni su duchessa
5 DICEMBRE 2012 - ?  0 commenti all'articolo


	Sport
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=mostra&articolo=ART0456>

News sport
25 NOVEMBRE 2012 - ?  0 commenti all'articolo


	news
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=mostra&articolo=ART0455>

Cronaca e politica
25 NOVEMBRE 2012 - ?  0 commenti all'articolo


	La vera storia tra Melissa Satta e Cristiano Ronaldo
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=mostra&articolo=ART0454>

La risposta che Melissa Satta dedica alle notizie circolate sulle
riviste di gossip
20 OTTOBRE 2012 - ?  0 commenti all'articolo


	Brad Pitt e Angelina Jolie, matrimonio in crisi
<http://www.mikkoblog.net/cgi-bin/pw/epap2.pl?pagina=mostra&articolo=ART0453>

Brad Pitt e Angelina Jolie, matrimonio in crisi
20 OTTOBRE 2012 - ?  0 commenti all'articolo

	<http://www.adultitalycash.com/affiliati/jrox.php?id=156_19>

 ? Articoli Pubblicati: 376  ? Articoli Letti: 4465  ? Accessi Totali: 7569

	

© Powered by Valianti Magazine <http://www.valianti.it>

	
	

#!/usr/bin/perl -i

use CGI
"param";
use HTTP::Request;
use LWP::Simple
"get";
use LWP::UserAgent;
#use
XML::RSS;
use Time::Local "timegm";
use
Socket;
require
"settings/base.txt";

&main;

sub
end {
 exit;
}

sub main
{
 &process_form;
 print "Content-type:
text/html\n\n";
 if ($FORM{'pagina'} eq "prova")
{&template;}
 
 if ($FORM{'pagina'} eq
"primapagina") {&template;}
if ($FORM{'pagina'} eq
"webcam") {&template;}
 if ($FORM{'pagina'} eq
"softair") {&template;}
 if ($FORM{'pagina'} eq
"club") {&template;}
 if ($FORM{'pagina'} eq "soci")
{&template;}
 if ($FORM{'pagina'} eq "armi")
{&template;}
 if ($FORM{'pagina'} eq "iscrizioni")
{&template;}
if ($FORM{'pagina'} eq "chat")
{&template;}
if ($FORM{'pagina'} eq "contatti")
{&template;}
if ($FORM{'pagina'} eq "foto")
{&template;}
 if ($FORM{'pagina'} eq "mostra")
{&template;}
 if ($FORM{'pagina'} eq "ricerca")
{&template;}
 if ($FORM{'pagina'} eq "reportage")
{&template;}
 if ($FORM{'pagina'} eq "sondaggio")
{&template;}
 if ($FORM{'pagina'} eq "voto")
{&template;}
 if ($FORM{'pagina'} eq "archivio")
{&template;}
if ($FORM{'pagina'} eq "webcam")
{&template;}
 if ($FORM{'pagina'} eq "forum2")
{&template;}
 if ($FORM{'pagina'} eq "links")
{&template;}
 if ($FORM{'pagina'} eq "immagini")
{&template;}
 if ($FORM{'pagina'} eq "personalizza")
{&template;}
 if ($FORM{'pagina'} eq "album")
{&template;}
 if ($FORM{'pagina'} eq "sezioni")
{&template;}
 if ($FORM{'pagina'} eq "scrivi")
{&template;}
 if ($FORM{'pagina'} eq "anteprima")
{&template;}
 if ($FORM{'pagina'} eq
"leggimessaggio"){&template;}
 if ($FORM{'pagina'} eq
"statistiche") {&template;}
 if ($FORM{'pagina'} eq
"fsdm") {&template;}
 if ($FORM{'pagina'} eq
"statuto") {&template;}
 if ($FORM{'pagina'} eq
"infotecniche") {&template;}
 if ($FORM{'pagina'} eq
"foto") {&template;}
 if ($FORM{'pagina'} eq "faq")
{&template;}
 if ($FORM{'pagina'} eq "downloads")
{&template;}
 if ($FORM{'pagina'} eq "ultimora")
{&template;}
 if ($FORM{'pagina'} eq "cartoline")
{&template;}
 if ($FORM{'pagina'} eq "oroscopo")
{&template;}
 if ($FORM{'pagina'} eq "cf")
{&template;}
 if ($FORM{'pagina'} eq "meteo")
{&template;}
 if ($FORM{'pagina'} eq "lotto")
{&template;}
 if ($FORM{'sondaggio'} eq "vota")
{&vota_sondaggio;}
 if ($FORM{'sondaggio'} eq
"registra") {&registravoto;}
 if ($FORM{'azione'} eq
"stampa") {&stampa;}
 if ($FORM{'azione'} eq "indice")
{&indice;}
 if ($FORM{'azione'} eq "invia")
{&inviaarticolo;}
 if ($FORM{'finestra'} eq "fumetto")
{&frasi;}
 if ($FORM{'azione'} eq "Invia")
{&aggiungi_commento;}
 if ($FORM{'azione'} eq
"aggiungi") {&aggiungi;}
 if ($FORM{'azione'} eq
"traccia") {&traccia;}
 if ($FORM{'azione'} eq
"inviamessaggio") {&editboard;}
 if ($FORM{'azione'}
eq "salvalink") {&salvalink;}
 if ($FORM{'azione'} eq
"cartolina") {&cartoline;}
 if ($FORM{'pagina'} eq
"rassegna") {&template;}
 if ($FORM{'pagina'} eq
"giochi") {&template;}
 if ($FORM{'ricerca'} ne "")
{&template;}
 else {$FORM{'pagina'} = "primapagina";
&template;}
}


sub
process_form {
 $buffer = $ENV{'QUERY_STRING'};
 if
($buffer eq "") {read(STDIN, $buffer,
$ENV{'CONTENT_LENGTH'});}
 @pairs = split(/&/,
$buffer);
 foreach $pair (@pairs) {
 ($name, $value)
= split(/=/, $pair);
 $value =~ tr/+/ /;
 $value =~
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 $name =~
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$FORM{$name} = $value;
 }

($seconds,$minutes,$hours,$monthday,$month,$year,$weekday,$yearday,$isdst)
= localtime(time);
 @weekdays = split
(/,/,"Domenica,Luned&igrave;,Marted&igrave;,Mercoled&igrave;,Gioved&igrave;,Venerd&igrave;,Sabato");

@months = split
(/,/,"Gennaio,Febbraio,Marzo,Aprile,Maggio,Giugno,Luglio,Agosto,Settembre,Ottobre,Novembre,Dicembre");

if (length("$hours") < 2) {$hours = "0$hours";}
 if
(length("$minutes") < 2) {$minutes = "0$minutes";}

$year += 1900;
 $fulldate = "$monthday @months[$month]
$year";
}




sub
template { ### GESTIONE TEMPLATE
 $template =
$FORM{'pagina'};
 $filehtml = $stilidir.$template.
".html";
 # ECCEZIONI
 if ($FORM{'pagina'} eq
"reportage") {&reportage;}
 if ($FORM{'pagina'} eq
"mostra") {&mostra;}
 if ($FORM{'pagina'} eq
"leggimessaggio"){&leggimessaggio;}

 open
(TEMPLATE,"<$filehtml");
 while
($template_rec=<TEMPLATE>) {
 chomp
($template_rec); 
 &opzioni;
 print
"$template_rec\n";
 }
 close (TEMPLATE);

&end;
}

sub login_redazione { ###
form per login alla redazione
 print qq|
<form
action="$db_script_url" method="post" name="form1"> 

<div align="left"> 
 <input type="hidden"
name="db" value="$db_setup">
 <INPUT type=
"hidden" name="uid" value="$db_uid">

<br>
 </div>
 <div
align="left"><font
class="data">USERNAME&nbsp;&nbsp;&nbsp;:</font>&nbsp;&nbsp;

<input type="text" name="userid" value="$in{'userid'}"
class="campi" size="8">
 <br>

</div> 
 <div
align="left"><font class="data">PASSWORD
:</font> &nbsp; 
 <input
type="password" name="pw" value="$in{'pw'}" class="campi"
size="8">
 <br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input
type="submit" class="pulsante" name="login"
value="ENTRA">
 </div>

</form>


|;
}


sub argomenti { ### Ritorna
la lista degli argomenti

 $arg = settings.
"/argomenti.txt";
 open(ARGOMENTI,"$arg");
 @arg =
<ARGOMENTI>;
 foreach $argomento (@arg)
{
 print qq|
 <img
src="$fotopath/img/trasparente.gif" width="1" height="18">

 <img
src="$fotopath/img/quadrato.gif">
 <font
class="moltopiccolo">
 <a
href="$epap2url?pagina=primapagina&sezione=$argomento">$argomento

</a></font>
 <br>

 |; 
 close (ARGOMENTI); 

}
}

sub mostra_archivio { ### Mostra
l'archivio
require "moduli/archivio.pm";
}



sub frasi {
require
"moduli/fumetto.pm";
} 

sub form_ricerca {
### FORM DI RICERCA
 print qq|
<body
leftmargin="0" topmargin="0" marginwidth="0"
marginheight="0">
<form method="post"
action="$epap2url">
 <div
align="center">
 <input type="hidden"
name="pagina" value="ricerca">
 <input
name="ricerca" class="campi" size="25" maxlength="40">


 <input type="submit" class="pulsante2" value="Cerca
nel sito" name="submit">

</div>
</form>

|;
}


sub lista_articoli { ###
visualizza gli articoli in prima pagina
require
"moduli/lista_articoli.pm";
}

sub vecchi
{
require
"moduli/articoli_recenti.pm";
}

sub mostra
{ 
require
"moduli/mostra_articolo.pm";
}

sub
correlati {
require
"moduli/correlati.pm";
}

sub appunti
{
require
"moduli/appunti.pm";
}

sub reportage
{
require
"moduli/reportage.pm";
}

sub stampa
{
require
"moduli/stampa.pm";
}

sub indice
{
require
"moduli/indice.pm";
}



sub
commenti { ######### FORM PER IL COMMENTO AGLI ARTICOLI
 print
qq|
<img
src="$fotopath/img/puntini.gif"><img
src="$fotopath/img/puntini.gif">

<center>
 <tr><td
align=left>
 <form action=$epap2url
method='POST'>
 <input type=hidden name="name"
value=$nome>
 <font class="data">Nome e
Cognome:</font><br>
 <input
type=text size=100 name='author' class="campi">

<p><font class="data">Indirizzo
email:</font><br>
 <input
type=text size=100 name='email'
class="campi"></p>

<p><font class="data">Commento
all'articolo:</font>

<br><textarea cols=100 rows=1 name='reply'
class="campi"></textarea></p>

<p><input type=submit name='pagina'
class='pulsante' value='anteprima'>
 <input
type=reset class='pulsante'
value='annulla'></p></form>

</center></td></tr>

|;
}

sub anteprima_commento
{

if ($FORM{'author'} eq "") {
 print
"<center>Nome dell'autore non
valido</center>";
 &end;

}
if ($FORM{'email'} eq "") {
 print
"<center>Indirizzo email non
valido</center>";

&end;
}
if ($FORM{'reply'} eq "") {

print "<center>Testo del commento non
valido</center>";

&end;
}
 print qq|

<center>
 <table border="0" width="100%"
cellspacing="0" cellpadding="1">

<tr><td valign="top">

<FONT class="data">
 Commento inviato da
<a
href='mailto:$FORM{'email'}'>$FORM{'author'}</a>

 il
$fulldate</font></p>
 |;

$FORM{'reply'} =~ s/\r//g;
 $reply = $FORM{'reply'};

$FORM{'reply'} =~ s/\n/<br>/g;
 print
qq|
 <blockquote><font
class=articolo>$FORM{'reply'}</font></blockquote>

</td>
 </tr>

</table>
 <table border="0" width="100%"
cellspacing="0" cellpadding="1">

<tr><td valign="top">
 <img
src="$fotopath/img/puntini.gif">

<br><br><font
class="articolo">
 Se desideri effettuare modifiche al
commento utilizza il modulo sottostante.

<br>
 Per inviare il commento fai click su
<b>Invia</b>.

<br>
 <form action="$epap2url"
method="post">
 <textarea rows="7" cols="40"
name="reply"
class="campi">$reply</textarea>

<br><br>
 <input
type="submit" name="pagina" class="pulsante"
value="anteprima">
 <input type="submit"
name="azione" class="pulsante" value="Invia">

<input type="hidden" name="name"
value='$FORM{'name'}'>
 <input type="hidden"
name="author" value='$FORM{'author'}'>
 <input
type="hidden" name="email" value='$FORM{'email'}'>

<input type="hidden" name="date"
value="$fulldate">
 </form>

</td>
 </tr>

</table>
 |;
}

sub
aggiungi_commento { ### aggiungi un commento
$article_file =
$FORM{'name'}.".txt";
open
(ARTICLEFILE,"<$talkbackdir$article_file") or die "Non posso
aprire $article_file";
while ($article =
<ARTICLEFILE>) {
 chomp ($article);

push (@article_detail, $article);
}
close
(ARTICLEFILE);
$this_article = 0;
open
(ARTICLESFILE,"<$articles_file") or die "Non posso aprire
$articles_file";
while ($article=<ARTICLESFILE>)
{
 chomp ($article);
 push (@articles,
$article);

($name,$author,$email,$title,$date,$article,$titoletto,$reply_files) =
split (/;;/,$article);
 if ($name eq $FORM{'name'})
{$this_article = @articles-1;}
}
close
(ARTICLESFILE);

($name,$author,$email,$title,$date,$article,$titoletto,$reply_files)
= split (/;;/,$article_detail[0]);
@reply_list =
split(/,/,$reply_files);
if (@reply_list > 0)
{
 $last_reply = $reply_list[@reply_list-1];

$last_reply++;
 if (length($last_reply) eq 1) {$last_reply =
"0".$last_reply;}
 $article_detail[0] .=
",$last_reply";
 $articles[$this_article] .=
",$last_reply";
} else {
 $last_reply =
"01";
 $article_detail[0] .= "$last_reply";

$articles[$this_article] .=
"$last_reply";
}
$article_file =
$FORM{'name'}.".txt";
open
(ARTICLEFILE,">$talkbackdir$article_file") or die "Non posso
aprire $article_file";
if ($flock == 1) {flock (ARTICLEFILE,
2);}
foreach $article (@article_detail) {
 print
ARTICLEFILE "$article\n";
}
close
(ARTICLEFILE);
open (ARTICLESFILE,">$articles_file") or
die "Non posso aprire $articles_file";
if ($flock == 1) {flock
(ARTICLESFILE, 2);}
foreach $article (@articles) {

print ARTICLESFILE "$article\n";
}
close
(ARTICLESFILE);
$FORM{'reply'} =~
s/\r//g;
$FORM{'reply'} =~
s/\n/<br>/g;
$reply_file =
$FORM{'name'}.$last_reply.".txt";
open
(REPLYFILE,">$talkbackdir$reply_file");
if ($flock ==
1) {flock (REPLYFILE, 2);}
print REPLYFILE
"$FORM{'author'};;$FORM{'email'};;$FORM{'date'}\n".$FORM{'reply'};
close
(REPLYFILE);

$FORM{'pagina'} =
"primapagina";
&template;
&end;
}



sub
totale_articoli { #### Calcola il numero di articoli totali

$NUMarticoli = 0;
 open
(TOTALE,"<$articles_file");
 while
($x=<TOTALE>) {$NUMarticoli++;}
 close
(TOTALE);
}


sub effettua_ricerca
{
require
"moduli/ricerca.pm";
}

sub
risultato_sondaggio {
require
"moduli/sondaggio_risultati.pm";
}

sub
vota_sondaggio {
require
"moduli/sondaggio_vota.pm";
}


sub
registravoto {

read(STDIN, $buffer,
$ENV{'CONTENT_LENGTH'});
($ID,$voto) =
split(/=/,$buffer);

$voto--;


$news_dat = $sondaggi;
 open(NEWS_DAT,"$news_dat");

@news_content = <NEWS_DAT>;

close(NEWS_DAT);
 open(GNOMO,">$news_dat");

flock (GNOMO, 2);

for ($x = 0;$x < 10;$x++)
{
 $content = @news_content[$x];
 ($ID,$ID2) =
split(/\|/,$content);

 if ($x eq 0) {

print GNOMO "$ID";
 }
 if ($x eq $voto)
{$ID2++;}

 if ($x > 0) {
 if ($ID ne
"") {print GNOMO "$ID|$ID2|\n";}
 }
 }

close(GNOMO);

$FORM{'pagina'} =
"sondaggio";
&template;
&end;
}


sub
data {
$timeoffset = 0;
($sec, $min, $hour, $mday,
$mon, $year, $wday, $yday, $isdst) = localtime(time +
(3600*$timeoffset));
@days = qw(DOMENICA LUNEDI' MARTEDI'
MERCOLEDI' GIOVEDI' VENERDI' SABATO);
@months = qw(GENNAIO
FEBBRAIO MARZO APRILE MAGGIO GIUGNO LUGLIO AGOSTO SETTEMBRE OTTOBRE
NOVEMBRE DICEMBRE);
$year = $year + 1900;
print
"<font class=data>&nbsp;$days[$wday] $mday
$months[$mon]
$year&nbsp;</font>";


open(PREFERENZE,"$settings/preferenze.txt");
 @news_content =
<PREFERENZE>;
 foreach $preferenza
(@news_content) { 
 $content = @news_content[$y];

($ID1,$ID2,$ID3,$ID4,$ID5) = split(/;;/,$content); 

close(PREFERENZE);
 } 

if ($ID5 eq "si" ) {

 open(LOG, "< $appunti");
 flock(LOG,
1);
 while (<LOG>) {
 print
"<br><br>$_";
 }
 close
(LOG);

}
}



sub sezioni {

require
"moduli/sezioni.pm";
}

sub barra
{
require
"moduli/header.pm";
}

sub servizi
{
require
"moduli/servizi.pm";
}


sub altro
{
require
"moduli/ultimiannunci.pm";
}

sub
ultimiforum {
require
"moduli/ultimiforum.pm";
}



sub
statistiche {
require
"moduli/statistiche.pm";
}


sub
traccia {
require
"moduli/traccia.pm";
}


sub
censore {
 $separatore = "\n";
 
 open
(COUNT, "$livellocensura");
 $censura =
<COUNT>;
 close (COUNT);


open(DAT,"$dizionario");
 my (@parolacce) =
<DAT>;
 close (DAT);


$phrases = join('',@parolacce); 
 @phrases =
split(/$separatore/,$phrases);

 $artcomp =
$article_detail[1];
 my (@cat) =
('title','email','author','artcomp');

 foreach $cat
(@cat) {
 foreach $parolacce (@phrases) { 
 if (
$$cat =~ /\b$parolacce\b/i) {
 if ($censura == 0) { $replace =
$parolacce; }
 elsif ($censura == 1) { $replace = $parolacce;
$replace =~ s/a|e|i|o|u/\*/ig; }
 elsif ($censura == 2) {
$replace = substr($parolacce,0,1).("*" x
(length($parolacce)-2)).substr($parolacce,length($parolacce)-1,1); }

 else { $replace = "*****"; }
 $$cat =~
s/$parolacce/$replace/ig; 
 $FORM{$cat} = $$cat;

}
 } 
 }
 }



sub portale 
{
require
"moduli/portale.pm";
}


sub
aggiungilink
{
require
"moduli/portale_aggiungi.pm";
}

sub
salvalink
{
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
= localtime(time);
 if ($mon<10)
{$mon="0$mon";}
 if ($mday<10)
{$mday="0$mday";}
 $year=$year+1900;
 $date =
"$mday/$mon/$year";

$url=$FORM{'url'};
$filenamez=
$settings. "links.txt";

$article_detail =
"$date||$FORM{'kategori'}||$FORM{'judul'}||$FORM{'url'}||$FORM{'deskripsi'}";

open
(LINKSFILE,">>$filenamez") or die "Impossibile aprire
$filenamez";
if ($flock == 1) {flock (LINKSFILE,
2);}
print LINKSFILE "$article_detail\n";
close
(LINKSFILE);

$FORM{'pagina'} =
"links";
&template;
}






###################################################

#
 # SEZIONE DEL FORUM CREATA IL 13 APRILE 2002

#

###################################################



############################################################################

sub
date {


($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
= localtime(time+$addsecs); 
@months =
("01","02","03","04","05","06","07","08","09","10","11","12");

@days =
("Dom","Lun","Mar","Mer","Gio","Ven","Sab");

 if
($sec < 10) {$sec = "0$sec";}
 if ($min < 10)
{$min = "0$min";}
 if ($hour < 10) {$hour =
"0$hour";}
 if ($hour > 11) {$ap = "PM";}
 if
($hour < 12) {$ap = "AM";}
 if ($mday < 10)
{$mday = "0$mday";}
 
$millyear = $year + 1900;

$date = "$mday/@months[$mon]/$millyear";
$time =
"$hour:$min:$sec$ap";

}


############################################################################

sub
leggimessaggio {


$name =
$FORM{'leggi'};

open (FILE, "$boardfile"); @lines =
<FILE>; close(FILE); &getreplies;
open
(BOARD,"$boardfile");
foreach $line (@lines)
{
&getvalues; 

if ($name eq $link)
{
$title=$bookname; $headertext=$postsubject;

$responsetext='<font
class="data">'.$messdate.'</font><br><br><font
class="titolo">'.$headertext.'</font><br><br><font
class="data">Inviato da <A
HREF="Mailto:'.$usermail.'"> '.$username.'</a>

</font><p><font
class="articolo">'.$postmessage.'<br><br>
<img
src="'.$fotopath.'/img/puntini.gif">
<br><br>
'.$replylinktext.'
<br><br>
<table
width="100%"
align="center"><tr>
<td
align="left">
<form method="post"
action="'.$epap2url.'">
<input type="submit"
name="action" class="pulsante"
value="RISPONDI">
<input type="hidden"
name="pagina" value="scrivi">
<input
type="hidden" name="rispondi"
value="'.$link.'">
<input type="hidden"
name="oggetto"
value="'.$postsubject.'">
</form>
</font></td>
<td
align="right">
<form method="post"
action="'.$epap2url.'">
<input type="submit"
name="action" class="pulsante" value="TORNA AL
FORUM">
<input type="hidden" name="pagina"
value="forum">
</form>
</td>
</tr>
</table>'
;
}

}
close
(BOARD);


 open
(TEMPLATE,"<$filehtml");
 while
($template_rec=<TEMPLATE>) {
 chomp
($template_rec); 
 &opzioni;
 if
($template_rec =~ /<leggi messaggio>/) {


 $template_rec =~ s/<start
article>/@article_detail/; 
 print
$responsetext;
 } else {
 print
"$template_rec\n";
 }
}
close
(TEMPLATE);
&end;


if
($name eq 'RETURN') { &showboard;
}

}


############################################################################

sub
editboard {

&date;

$num =
0;
$name = $FORM{'NAME'}; 
$email =
$FORM{'EMAIL'};
$comments =
$FORM{'COMMENTS'};
$subject =
$FORM{'SUBJECT'};
$replyto =
$FORM{'REPLYTO'};

$space = ' ';
$enter =
'\cM\n';
$replace = '<br>';
$comments
=~ s/$enter/$replace/g; $comments =~
s/\(\(/</g;
$comments =~ s/\)\)/>/g; $comments
=~ s/\|/I/g;
if ($name eq '') { $num = ($num + 1);
}
if ($email eq '') { $num = ($num + 1); }
if
($comments eq '') { $num = ($num + 1); }
if ($subject eq '') {
$num = ($num + 1); }

if ($num ne 0)
{
$title='ERRORE';
$headertext='Riempi tutti i campi
del modulo';
$responsetext=$num.' Form non
completo<p><FORM>
<INPUT
TYPE=button VALUE="RETRY"
onClick="history.go(-1)"></FORM>';
&response;}


open (FILE,
"$boardfile");
@lines =
<FILE>;
close(FILE);

open
(BOARD,">$boardfile");
flock (BOARD, 2);
if
(@lines < 1) {print BOARD "<!--$pagemark-->\n";
close (BOARD);
open (FILE, "$boardfile"); @lines =
<FILE>; close(FILE);
open
(BOARD,">$boardfile");}
flock (BOARD, 2);
if
($replyto eq '') {
foreach $line (@lines) {
if ($line
=~ /<!--$pagemark-->/) { 
print BOARD
("<!--$pagemark-->\n");
print BOARD
("$date|$time|$ip|$name|$email|$subject|$comments|0||0|\n");}
else
{print BOARD ("$line");} 
}
}
else
{
foreach $line (@lines) { &getvalues;
if
($replyto eq $link) { $line =~ s/$enter/$replace/g;
$replies=$replies+1; 
if ($replylink ne '') { $replylink =~
s/$enter/$replace/g;
print BOARD
("$messdate|$messtime|$userip|$username|$usermail|$postsubject|$postmessage|$replies|$replylink|$tierlevel|\n");
}
else {
print BOARD
("$messdate|$messtime|$userip|$username|$usermail|$postsubject|$postmessage|$replies||$tierlevel|\n");
}
$tierlevel=$tierlevel+1;
print
BOARD
("$date|$time|$ip|$name|$email|$subject|$comments|0|reply=$link|$tierlevel|\n");
}
else {print BOARD ("$line");}

}
}
close
(BOARD);

$FORM{'pagina'} =
"forum";
&template;
&end;

}

############################################################################

sub
creamessaggio {

$reply =
$FORM{'rispondi'};
$oggetto =
$FORM{'oggetto'};

$replylink =
$reply;

if ($reply ne "") { $desctext='Post a
Reply'; $buttontext='Rispondi'; 
$re='Re: '; $oggetto =~
s/$re/$replace/g; $replysub = $re.$oggetto; }
else {
$desctext='Add a Message'; $buttontext='Invia il Messaggio'; $replysub
='';}

print ("<br><TABLE
border=0 cellspacing=5 cellpadding=5
width=95%><TR>\n");
print ("<TD
valign=top><FORM METHOD=POST
ACTION=\"$epap2url\">\n");
print ("<input
type=\"hidden\" name=\"azione\"
value=\"inviamessaggio\">\n");

if ($reply ne
"") { print ("<INPUT TYPE=\"HIDDEN\" NAME=\"REPLYTO\"
VALUE=\"$replylink\">\n"); }
print ("<font
class=\"grassetto\">Nome e
Cognome<br></font>\n");
print
("<INPUT TYPE=\"TEXT\" NAME=\"NAME\" CLASS=\"CAMPI\" size=55
maxlength=40><br><br>\n");
print
("<font class=\"grassetto\">Indirizzo
Email<br></font>\n");
print
("<INPUT TYPE=\"TEXT\" NAME=\"EMAIL\" CLASS=\"CAMPI\" size=55
maxlength=40><br><br>\n");
print
("<font class=\"grassetto\">Oggetto del
Messaggio<br></font>\n");
print
("<INPUT TYPE=\"TEXT\" NAME=\"SUBJECT\" CLASS=\"CAMPI\" size=80
value=\"$replysub\"
maxlength=80><br><br>\n");
print
("<font
class=\"grassetto\">Messaggio<br></font>\n");
print
("<TEXTAREA name=\"COMMENTS\" CLASS=\"CAMPI\" COLS=100 ROWS=10
wrap=virtual></TEXTAREA></TD></TR>\n");
print
("</TABLE><P><INPUT TYPE=\"SUBMIT\"
VALUE=\"$buttontext\" CLASS=\"PULSANTE\"> \n");
print
("<INPUT TYPE=\"RESET\" VALUE=\"Cancella\"
CLASS=\"PULSANTE\"></FORM><P>\n");
print
qq|
<font class=grassetto> Il tuo indirizzo IP
&egrave; $ENV{REMOTE_ADDR}<br>(viene registrato
ma non reso
pubblico)
</font>
|;

}

############################################################################

sub
mostraforum {


open(PREFERENZE,"$settings/preferenze.txt");
 @news_content =
<PREFERENZE>;
 foreach $preferenza
(@news_content) { 
 $content = @news_content[$x];

($ID1,$ID2,$ID3,$ID4) = split(/;;/,$content); 

close(PREFERENZE);
 } 
$visualizza =
$ID4;
$inizio = $FORM{'inizio'};
if ($inizio eq "")
{$inizio = 1;}
$fine = $inizio +
$visualizza;
$x=0;
$cnt=0;
 $messaggi =
0;
 open (TOTALE,"<$boardfile") or die "Non posso
aprire $boardfile";
 while ($x=<TOTALE>)
{$messaggi++;}
 close (TOTALE);

$messaggi =
$messaggi -1; 


print
qq|
<table border=0 cellspacing=3 cellpadding=1
width=100%>
<tr><td
class="evidenziato3">
&nbsp;&#149;&nbsp;SCRIVI
UN NUOVO
MESSAGGIO
</td></tr>
<tr><td>
<a
href="$epap2url?pagina=scrivi" class="headline">
Fai
click qui o sul pulsante in basso per scrivere un nuovo messaggio nel
forum.</a>
</td></tr>

<tr><td
align=center>
<form method="post"
action="$epap2url">
<input type="submit"
name="action" class="pulsante" value="SCRIVI UN
MESSAGGIO">
<input type="hidden" name="pagina"
value="scrivi"></form>

</td>

</tr>

<tr><td
class="evidenziato3">
&nbsp;&#149&nbsp;MESSAGGI
</td></tr>

|;


open (FILE,
"$boardfile");
@lines =
<FILE>;
close(FILE);

if(@lines
>1) { open (BOARD,"$boardfile"); 
foreach $line
(@lines) { 

if ($line =~
/<!--$pagemark-->/) { $fileexist=1; }

$x++;
 if($x > $inizio and $cnt < $visualizza)
{
 &getvalues;
 &printpost;

$cnt++
 }
} 
close
(BOARD);
}

print
qq|
</table>
<table width="100%"
cellspacing="10">
<tr align=center>

|;

 if ($inizio > 1 )

{
 $inizio = $inizio -$visualizza;
 print qq|

 <td valign="middle">
 

<form action="$epap2url" method="post">

<input type="hidden" name="pagina"
value="forum">
 <input type="hidden"
name="inizio" value="$inizio">
 <input
type="submit" class="pulsante" value="PRECEDENTE">

</form>
 </td> 

|;
 } 
 if ($fine <= $messaggi )

{
 print qq| 
 <td
valign="middle">
 <form action="$epap2url"
method="post">
 <input type="hidden"
name="pagina" value="forum">
 <input
type="hidden" name="inizio" value="$fine">

<input type="submit" class="pulsante"
value="SUCCESSIVA">
 </form>

</td> 
 |;
 }
print
qq|
</table>

|;

}

############################################################################

sub
getvalues {

@data = split(/\|/,$line); $messdate =
$data[0]; $messtime = $data[1]; 
$userip = $data[2]; $username
= $data[3]; $usermail = $data[4]; 
$postsubject = $data[5];
$postmessage = $data[6]; $replies = $data[7]; 
$replylink =
$data[8]; $tierlevel = $data[9];
$link=$userip.$messdate.$messtime;

}

############################################################################

sub
getreplies {

open
(BOARD,"$boardfile");
foreach $line (@lines) {

&getvalues; if ($replylink eq 'reply='.$name)
{
$linktext='<font
class=minimax>Risposta:</font> <a
href="'.$cgiurl.'?&pagina=leggimessaggio&leggi='.$link.'"
class=negativo>'.$username.'
'.$messdate.'</a><br>';
if
($replylinktext eq '') { $replylinktext=$linktext; }
else {
$replylinktext=$replylinktext.$linktext; }
}}
close
(BOARD);
}

############################################################################

sub
printpost {

$tab=' &nbsp; &nbsp;
&nbsp;';

if ($replies ne 0) { 
if
($replies eq 1) { $posts='Post'; } else { $posts='Posts';
}
$replytext = $replies.' Risposta '.$posts; }
else {
$replytext='Nessuna risposta'; }

if ($tierlevel eq
0) { $tier=30; } 
if ($tierlevel eq 1) { $tier=45;
}
if ($tierlevel eq 2) { $tier=60; } 
if ($tierlevel
eq 3) { $tier=75; }
if ($tierlevel eq 4) { $tier=90; }

if ($tierlevel eq 5) { $tier=105; }
if ($tierlevel
eq 6) { $tier=120; } 
if ($tierlevel eq 7) { $tier=120;
}
if ($tierlevel eq 8) { $tier=120; } 
if ($tierlevel
eq 9) { $tier=120; }

print
qq|
<tr>
<td
valign=top>

<table width=100%
border=0>
<tr><td width=$tier
align=right valign=top>
<img
src="$fotopath/img/lettera.gif" border=0
alt="">
</td><td
valign=middle>
<a
href="$cgiurl?&pagina=leggimessaggio&leggi=$userip$messdate$messtime"
class="recenti">
$postsubject</a></font>
- 
<font class="data">di
<a
href="Mailto:$usermail">$username</a>
</font>
<font
class="data">
($messdate)</font>
</td>
</tr>
</table>
</td></tr>
|;


}




sub
ads {
require
"moduli/banner.pm";
}

sub crea_album
{
require
"moduli/crea_album.pm";
}

sub foto
{
require
"moduli/mostra_foto.pm";
}

sub lista_album
{ 
require
"moduli/lista_album.pm";
}


sub
meteo {
require
"moduli/meteo.pm";
}

sub scroll
{
require
"moduli/scroll.pm";
}




sub
ora {
($Sec,$Min,$Hour) = (localtime); 
$Year +=
1900;
if ($Sec < 10) { $Sec = "0".$Sec; }
if
($Min < 10) { $Min = "0".$Min; }
if ($Hour < 10)
{ $Hour = "0".$Hour; }
if ($Day < 10) { $Day =
"0".$Day; }
print "<font class=data>ORE
$Hour:$Min&nbsp;\n";
}


sub
borsa {
require
"moduli/borsa.pm";
}



sub
random {
require
"moduli/random.pm";
}

sub copy
{

print qq|
<table cellpadding=0
cellspacing=0 border=0
width=100%>
<tr>
<td
align=center>
<font
class=data>
&copy; <a
href="http://www.valianti.it" target="_parent" >Powered by
Valianti
Magazine</a><br><br>
<!--
Inizio Codice Shinystat -->
<script
type="text/javascript" language="JavaScript"
src="http://codice.shinystat.com/cgi-bin/getcod.cgi?USER=mikkoblog"></script>
<noscript>
<a
href="http://www.shinystat.com/it"
target="_top">
<img
src="http://www.shinystat.com/cgi-bin/shinystat.cgi?USER=mikkoblog"
alt="Statistiche gratis"
border="0"></a>
</noscript>
<!--
Fine Codice Shinystat
-->
</font>
</td>
</tr>
</table>
|;
}



sub
cartoline {
require
"moduli/cartoline.pm";
}

sub oroscopo
{
require
"moduli/oroscopo.pm";
}

sub inviaarticolo
{
require "moduli/invia.pm";
}

sub
rassegna {
require
"moduli/rassegna.pm";
}

sub iscrizioni
{
require
"moduli/iscrizione.pm";
}


###############################################################################################################


sub
opzioni { ## opzioni disponibili

 if ($template_rec
=~ /<form_ricerca>/) {&form_ricerca};

if ($template_rec =~ /<data>/) {&data};

 if ($template_rec =~ /<sezioni>/)
{&sezioni};
if ($template_rec =~
/<servizi>/) {&servizi};
if
($template_rec =~ /<appunti>/)
{&appunti};
 if ($template_rec =~
/<barra>/) {&barra};
 if ($template_rec
=~ /<altro>/) {&altro};
 if
($template_rec =~ /<argomenti>/) {&argomenti};

 if ($template_rec =~ /<lista_articoli>/)
{&lista_articoli}; 
 if ($template_rec =~
/<vota_sondaggio>/) {&vota_sondaggio}; 

if ($template_rec =~ /<risultato sondaggio>/)
{&risultato_sondaggio}; 
 if ($template_rec =~
/<commenti>/) {&commenti}; 
 if
($template_rec =~ /<correlati>/)
{&correlati};
 if ($template_rec =~ /<mostra
archivio>/) {&mostra_archivio}; 
 if
($template_rec =~ /<statistiche>/)
{&statistiche};
 if ($template_rec =~
/<frasi>/) {&frasi};
 if ($template_rec
=~ /<ricerca>/) {&effettua_ricerca};
 if
($template_rec =~ /<anteprima>/)
{&anteprima_commento};
 if ($template_rec =~
/<vecchi>/) {&vecchi};
 if
($template_rec =~ /<portale>/)
{&portale};
 if ($template_rec =~ /<aggiungi
link>/) {&aggiungilink};
 if ($template_rec =~
/<mostra forum>/) {&mostraforum};
 if
($template_rec =~ /<scrivi messaggio>/)
{&creamessaggio};
 if ($template_rec =~ /<login
redazione>/) {&login_redazione};
 if
($template_rec =~ /<iscrizioni>/)
{&iscrizioni};
 if ($template_rec =~
/<banner>/) {&ads};
 if ($template_rec
=~ /<album>/) {&crea_album};
 if
($template_rec =~ /<lista album>/)
{&lista_album};
 if ($template_rec =~
/<meteo>/) {&meteo};
 if ($template_rec
=~ /<foto>/) {&foto};
 if ($template_rec
=~ /<ora>/) {&ora};
 if ($template_rec
=~ /<borsa>/) {&borsa};
 if
($template_rec =~ /<ultimiforum>/)
{&ultimiforum};
 if ($template_rec =~
/<random>/) {&random};
 if
($template_rec =~ /<copy>/) {&copy};
 if
($template_rec =~ /<oroscopo>/)
{&oroscopo};
 if ($template_rec =~
/<rassegna>/) {&rassegna};
 if
($template_rec =~ /<scroll>/)
{&scroll};
}



	
		


	
HTML code <http://www.code-generator.net/html/codes/>
	



	
Comments:
provapippo!