#!/usr/bin/perl
# pressrelease verione X.1 inizio lavori 19/10/2001 by webmaster@undo.net
if(($ENV{'REMOTE_ADDR'} eq '94.136.39.123'))
{
print "location: http://www.undo.net\n\n";
}
#if($ENV{'HTTP_USER_AGENT'}=~/^msnbot/) { exit; }
use Mysql;
use CGI;
use Image::Size;
use Time::Local;
$q = new CGI;
$db = Mysql->connect("mysql","pressrelease","undo","");
#$db = Mysql->connect("10.0.1.6","pressrelease","undo","");
#$olddb=$q->param('olddb');
#if($olddb)
# {
# $db = Mysql->connect("mysql","pressrelease","undo","");
# }
#else
# {
# $db = Mysql->connect("10.0.1.6","pressrelease","undo","");
# }
$lang=$q->cookie(-name=>'lang');
$checkcookie=$q->param('checkcookie');
$cgiurl='/cgi-bin/undo/pressrelease/pressrelease.pl';
$url='/Pressrelease';
$tvurlvideo='/Pressrelease/undotv/video/';
$tvurlfoto='/Pressrelease/undotv/foto/';
$tvurlalt='/video/flv/';
$tvurlaltvideo='/video/';
$tvabsurlalt='/home/undo/www/video/flv/';
$tvsuonourlalt='/Pressrelease/suono/';
$tvsuonomp3urlalt='/Pressrelease/audio/';
$K2video=1178192120;
$Keventi=1178192181;
$Ksuono=1178192221;
$Kvoice=1203593330;
@mesi=('','Gennaio','Febbraio','Marzo','Aprile','Maggio','Giugno','Luglio','Agosto','Settembre','Ottobre','Novembre','Dicembre');
#### fai fuori i cagacazzo
if($ENV{'REMOTE_ADDR'} eq '62.211.22.187')
{
$id=$q->param('id');
$day==$q->param('day');
if(!$day){print "location: http://www.undo.net/artinpress/\n\n";exit;}
print "location: http://www.undo.net/artinpress/$day.$id.html\n\n";
exit;
}
#open FILE,'>>./log_lingue';
#print FILE $ENV{'HTTP_ACCEPT_LANGUAGE'}."\t".$ENV{'HTTP_USER_AGENT'}."\n";
#close FILE;
#### controlla lingua
#&checklang;
$filepath="/home/undo/www/Pressrelease/foto/";
$wwwfilepath="/Pressrelease/foto/";
$wwwimage="/Pressrelease/foto_altre/";
$pathimage="/home/undo/www/Pressrelease/foto_altre/";
$mappapath='/home/undo/www/Pressrelease/mappe/';
#$cgi="/cgi-bin/undo/pressrelease/pressrelease.pl";
$cgi=$cgiurl;
$template="html/t-tvN.html";
$template_interna="html/t_interna_map_tv_visual.html";
$template_unacolonna="html/t_interna_unacolonna.html";
$pathspot='/home/undo/www/Pressrelease/spot/';
$wwwpathspot="/Pressrelease/spot/";
$day=$q->param('day');
$genera=$q->param('genera');
$month=$q->param('month');
$id=$q->param('id');
$next=$q->param('next');
$idprint=$q->param('idprint');
$lettera=$q->param('lettera');
$lettera=~s/param('start');
$action=$q->param('action');
$action2=$q->param('action2');
$mm=$q->param('mm');
$gg=$q->param('gg');
$aa=$q->param('aa');
$citta=$q->param('citta');
$citta=~s/param('spazio');
$spazio=~s/param('artista');
$artista=~s/param('nazione');
$nazione=~s/param('regione');
$regione=~s/param('provincia');
$provincia=~s/param('firma');
$firma=~s/param('fromscheda');
if(!$fromscheda and ($action2 eq 'spazio')){$fromscheda=$action2}
$cerca=$q->param('cerca');
$cerca=~s/param('video');
$chan=$q->param('chan');
$subchan=$q->param('subchan');
$full=$q->param('full');
$film=$q->param('film');
$semplice=$q->param('semplice');
$loc1=$q->param('loc1');
$ind1=$q->param('ind1');
$raggio=$q->param('raggio');
$spazi=$q->param('spazi');
$artista=~s/query("select ina from pressrelease where id=$id");$day=$sel->fetchrow}
if($id){
$sel=$db->query("select dal from bridgeEventiCalendario
left join Eventi on Eventi.id=bridgeEventiCalendario.fkevento
where Eventi.datainserimento='$id'");$day=$sel->fetchrow;
}
if($day and ($day!=$assoluto))
{
($sec,$min,$hours,$mday,$mon,$year)=localtime($day);
$inizio_oggi=timelocal(0,0,0,$mday,$mon,$year);
}
else
{
($sec,$min,$hours,$mday,$mon,$year)=localtime(time);
$inizio_oggi=timelocal(0,0,0,$mday,$mon,$year);
$testoieri="ieri"; $testodomani="domani";
}
#$sel=$db->query("select ina from pressrelease where ina<$inizio_oggi order by ina desc limit 1");
$sel=$db->query("select dal from bridgeEventiCalendario
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=bridgeEventiCalendario.fkevento
left join Comunicati on Comunicati.id=bridgeEventiComunicati.fkcomunicato
where dal<$inizio_oggi and Comunicati.testo!='' order by dal desc limit 1");
$inizio_ieri=$sel->fetchrow;
#$sel=$db->query("select ina from pressrelease where ina>$inizio_oggi order by ina limit 1");
$sel=$db->query("select dal from bridgeEventiCalendario
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=bridgeEventiCalendario.fkevento
left join Comunicati on Comunicati.id=bridgeEventiComunicati.fkcomunicato
where dal>$inizio_oggi and Comunicati.testo!='' order by dal limit 1");
$inizio_domani=$sel->fetchrow;
$mon++; $year+=1900;
$datadelgiorno="$mday/$mon/$year";
$testoinauguano="EVENTI DI OGGI";
if(!$testoieri)
{
($sec,$min,$hours,$mday,$mon,$year)=localtime($inizio_ieri);
$mon++; $year+=1900;
$testoieri="$mday/$mon/$year";
($sec,$min,$hours,$mday,$mon,$year)=localtime($inizio_domani);
$mon++; $year+=1900;
$testodomani="$mday/$mon/$year";
$testoinauguano="EVENTI DEL";
}
if(!$id and ($action ne 'print') and ($action ne 'tv'))
{
&citta;
&spot if($action ne 'interviste');
&dalnetwork;
&segnalazioni and (!$action);
&europa;
&telecom;
&editor;
}
if(!$action and !$id)
{ &view; }
elsif($action eq 'search')
{ &search; }
elsif($action eq 'geosearch')
{ &geosearch; }
elsif($action eq 'incorso')
{ &incorso; }
elsif($action eq 'europaricerca')
{ &europaricerca; }
elsif($action eq 'telecomricerca')
{ &telecomricerca; }
elsif($action eq 'europauffici')
{ &europauffici; }
elsif($action eq 'searchfirma')
{ &searchfirma; }
elsif($action eq 'searchcritico')
{ &searchcritico; }
elsif($action eq 'searchartista')
{ &searchartista; }
elsif($action eq 'print')
{ &perlastampa }
elsif($action eq 'segnalatori')
{ &segnalatori }
elsif($action eq 'spazi')
{ &spazi }
elsif($action eq 'promuovere')
{ &promuovere }
elsif($action eq 'speciali')
{ &speciali }
elsif($action eq 'editoriale')
{ &editoriale }
elsif($action eq 'interviste')
{ &interviste }
elsif($action eq 'directoryartisti')
{ &directoryartisti }
elsif($action eq 'directorycritici')
{ &directorycritici }
elsif($action eq 'sprite')
{ &sprite }
elsif($action eq 'altrieventi')
{ &altrieventi }
elsif($action eq 'planning')
{ &planning }
elsif($action eq 'iloveitalia')
{ &iloveitalia }
elsif($action eq 'associazioni')
{ &associazioni }
elsif($action eq 'focus')
{ &focus }
elsif($action eq 'guest')
{ &guest }
elsif($action eq 'editinterna')
{
# print "location: http://www.undo.net/it/argomenti/".$action2."\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/argomenti/".$action2,-status=>301);
exit;
&editinterna; }
elsif($action eq 'editall')
{
# print "location: http://www.undo.net/it/argomenti\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/argomenti/",-status=>301);
exit;
&editall;}
elsif($action eq 'partner')
{
# no tafter
#print "location: http://www.undo.net/cgi-bin/undo/pressrelease/pressrelease.pl\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/",-status=>301);
exit;
&partner;
}
elsif($action eq 'tv')
{ &citta; &tv }
elsif($action eq 'xmlvideo')
{ &xmlvideo }
elsif($action eq 'fullvideo')
{ &fullvideo }
elsif($action eq 'novita')
{ &novitaall }
elsif($id)
{
&citta;
$template=$template_interna;&interna;
}
sub partner
{
$parttitolo{'001'}='MAKING CULTURE';
$parttesto{'001'}=qq~
Making Culture e' la rubrica che pone al centro delle sue riflessioni il binomio economia e cultura.
Indagare il valore economico della cultura e degli eventi culturali, insieme con le sue implicazioni sociali, per mettere in evidenza le potenzialita' di un settore in grado di contribuire in maniera determinante alla crescita e allo sviluppo dei contesti territoriali sui quali agisce e con i quali inter-agisce.
A lungo considerati come antagonisti e contrapposti, economia e cultura hanno dimostrato di saper dialogare e cooperare tra loro, dando vita ad idee, progetti, strumenti e politiche, che hanno a loro volta sollecitato nuovi punti di vista e reso possibile nuove strategie d'intervento.
La selezione dei contributi di Making Culture e' curata da Tafter, la rivista online che opera nel campo del'economia della cultura, e che si presenta come punto di incontro per la ricerca sul rapporto cultura-impresa, sullo sviluppo locale, sulle possibilita' offerte dalle nuove tecnologie in campo culturale, sulle modalita' di interazione tra l'arte contemporanea e i suoi fruitori.
~;
#'
if(!$action2) { $action2='001'; }
$Keditor=1180007367;
$edicisono=0;
%parole=();
$dq='';$dh='';$dhnot='';
@ordine=();
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.padre=$Keditor and undotvarticoli.dimensioni='$action2' order by undotvalbero.ordine desc";
$sel=$db->query($d);
while(($idramo,$padre,$o,$titolo,$testo,$sinossi)=$sel->fetchrow)
{
$parole{$idramo}=join ( '#-+-#',$idramo,$padre,$o,$titolo,$testo,$sinossi);
$dq.='or undotvalbero.padre='.$idramo.' ';
$dh.='or idart='.$idramo.' ';
$dhnot.='and undotvalbero.idramo!='.$idramo.' ';
$ordine[$o].=$idramo.';';
$edicisono=1;
}
if($dh)
{
$dh=~s/^or//;
$d="select idimmagine, idart, ordine, dida from undotvimmagini where $dh order by idart,ordine";
$sel=$db->query($d);
while(($idimmagine,$idart,$ordine,$dida)=$sel->fetchrow)
{
$immag{$idimmagine}=join ('#-+-#',$idimmagine,$idart,$ordine,$dida);
$immvid{$idart}=$idimmagine;
}
}
$tabella.=qq~
~;
$template=$template_unacolonna;
&stampa;
}
sub editor
{
$Keditor=1180007367;
$edicisono=0;
$dq='';
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.padre=$Keditor and undotvarticoli.zoom=1 order by undotvalbero.ordine desc";
$sel=$db->query($d);
while(($idramo,$padre,$o,$titolo,$testo,$sinossi)=$sel->fetchrow)
{
$parole{$idramo}=join ( '#-+-#',$idramo,$padre,$o,$titolo,$testo,$sinossi);
$dq.='or undotvalbero.padre='.$idramo.' ';
$dh.='or idart='.$idramo.' ';
$dhnot.='and undotvalbero.idramo!='.$idramo.' ';
$ordine[$o].=$idramo.';';
$edicisono=1;
}
if($dh)
{
$dh=~s/^or//;
$d="select idimmagine, idart, ordine, dida from undotvimmagini where $dh order by idart,ordine";
$sel=$db->query($d);
while(($idimmagine,$idart,$ordine,$dida)=$sel->fetchrow)
{
$immag{$idimmagine}=join ('#-+-#',$idimmagine,$idart,$ordine,$dida);
$immvid{$idart}=$idimmagine;
}
}
foreach (reverse @ordine)
{
foreach(split /;/,$_)
{
($idramo1,$padre1,$o1,$titolo1,$testo1,$sinossi1)=split (/#-\+-#/,$parole{$_});
if($immvid{$idramo1})
{
$im='';
if($sinossi1) { $im=qq~~; }
$im.=qq~~;
if($sinossi1) { $im.=qq~~; }
}
else
{
$im='';
}
if($sinossi1)
{
$ll=$sinossi1;
}
$titolo1=~tr/a-z/A-Z/;
$editorstampa.=qq~
$titolo1
$im
$testo1
~;
}
}
if($dq)
{
$dq=~s/^or//;
$dt='';
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where $dq order by undotvalbero.ordine ";
$sel=$db->query($d);
while(($idramo,$padre,$o,$titolo,$testo,$sinossi)=$sel->fetchrow)
{
$filma{$idramo}=join ( '#-+-#',$idramo,$padre,$o,$titolo,$testo,$sinossi);
$figli{$padre}.=$idramo.';';
$dt.='or idart='.$idramo.' ';
}
}
if($dt)
{
$dt=~s/^or//;
$d="select iddown, idart, ordine, nome from undotvdownload where $dt and tipo='mp3' order by idart,ordine";
$sel=$db->query($d);
while(($iddown,$idart,$ordine,$dida)=$sel->fetchrow)
{
$down{$iddown}=join ('#-+-#',$iddown,$idart,$ordine,$dida);
$downart{$idart}.=$iddown.';';
}
}
if($dhnot)
{
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.padre=$Keditor $dhnot and undotvarticoli.seeker=1 order by undotvalbero.ordine desc limit 3";$sel=$db->query($d);
while(($idramo,$padre,$o,$titolo,$testo,$sinossi)=$sel->fetchrow)
{
$altri.='- '.$titolo.' ';
}
if($altri)
{
$editorstampa.=qq~
Altri argomenti recenti:
$altri
~;
}
}
else
{
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.padre=$Keditor and undotvarticoli.seeker=1 order by undotvalbero.ordine desc limit 5";$sel=$db->query($d);
while(($idramo,$padre,$o,$titolo,$testo,$sinossi)=$sel->fetchrow)
{
($t,$t,$t,$pgg,$pmm,$paa)=localtime($idramo);
$paa+=1900;
$pmm++;
$altri.='- '.$pgg.'/'.$pmm.' '.$titolo.' ';
}
$editorstampa.=qq~
ARGOMENTI RECENTI
$altri
~;
}
}
sub tv
{
$K2video=1178192120;
$Keventi=1178192181;
$Ksuono=1178192221;
$Kvoice=1203593330;
$Keventifoc=1178437919;
$Keventidoc=1178437966;
$Keventicli=1178437994;
$conte='';
if($chan==$K2video and $video)
{
#print "location: http://www.undo.net/it/duevideo/".$video."\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/duevideo/".$video,-status=>301);
exit;
}
elsif($chan==$K2video)
{
#print "location: http://www.undo.net/it/duevideo\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/duevideo",-status=>301);
exit;
}
elsif($video)
{
$sel=$db->query("select padre from undotvalbero where idramo=$video");
($subchan)=$sel->fetchrow;
if($subchan==$Keventidoc and $video)
{
# print "location: http://www.undo.net/it/videopool/".$video."\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/videopool/".$video,-status=>301);
exit;
}
elsif($subchan==$Keventicli and $video)
{
#print "location: http://www.undo.net/it/videopool/".$video."\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/videopool/".$video,-status=>301);
exit;
}
elsif($chan==$Keventi and $video)
{
#print "location: http://www.undo.net/it/videofocus/".$video."\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/videofocus/".$video,-status=>301);
exit;
}
}
else
{
# print "location: http://www.undo.net/it/duevideo\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/duevideo",-status=>301);
exit;
}
if($chan eq '2video') { $chan=$K2video; }
elsif($chan eq 'eventi') { $chan=$Keventi; }
elsif($chan eq 'suono') { $chan=$Ksuono; }
if($video ne 'info' and $video < 100)
{
$video='';
}
$template=$template_unacolonna;
$chan=1178192120 if(!$chan);
if($video==1185452747 or $video==1185459590 or $video==1185460584 or $video==1185548798)
{
$chan=$K2video;
}
if($chan==$K2video)
{
$tabella=qq~
~;
#'
if(!$video)
{
$sel=$db->query("select idramo from undotvalbero where padre=$K2video order by ordine desc limit 1");
($video)=$sel->fetchrow;
$conte.=qq~
Rassegna trasversale di video d'artista
2VIDEO e' un progetto che nasce immaginando quali pensieri e sensazioni possa
suscitare l'abbinamento di due video d'artista vicini o contrastanti per atmosfere e
per temi. Agendo sul margine della fruizione personale, che genera idee ed emozioni,
ogni settimana vengono presentati due video di artisti italiani e stranieri.
Ogni
volta una parola li collega e li introduce, suggerendone una lettura...
2VIDEO e' un progetto UnDo.Net curato da Francesca di Nardo. L'obiettivo e' di
creare una rassegna 'trasversale' in progress sulla pratica del video, aperta al
contributo di piu' curatori che via via proporranno nuove opere e autori.
~;
}
elsif($video eq 'info')
{
$sel=$db->query("select idramo from undotvalbero where padre=$K2video order by ordine desc limit 1");
($video)=$sel->fetchrow;
$conte.=qq~
2video e' uno spazio di sperimentazione linguistica sul video, aperto a
visioni e proposte che non segnino un'unica indicazione curatoriale. Per
questo fino ad oggi ho invitato altri curatori e artisti a prendersi
carico della selezione, nella convinzione che oltre a un differente punto
di vista contenutistico cio' potesse veicolare un diverso approccio
formale, di carattere visivo e grammaticale.
Ad oggi hanno contribuito alla selezione di 2video i curatori Viviana Checchia, Gabriella
Elena Arrigoni, Lorenzo Giusti, Gaia Pasi, Monica D'Emidio, il collettivo
Expòsito - osservatorio giovani artisti Napoli, Mariacritina Ferraioli,
Giovanni Viceconte, Elisa Del Prete, Mara Ambrozic e Stefano Coletto,
Eleonora Farina e gli artisti, Matteo Rubbi, Alessandro Mancassola Barbara
Ceriani Basilico, Santomatteo, Alessandro Piangiamore e il collettivo Blauer
Hase.
~;
}
$coda=&coda2video($video);
if($video==1185452747 or $video==1185459590 or $video==1185460584 or $video==1185548798)
{
$conte.=&playereventi($video);
}
else
{
$conte.=&player2video($video);
}
}
elsif($chan==$Keventi)
{
if($video and $video ne 'info')
{
$sel=$db->query("select padre from undotvalbero where idramo=$video");
($subchan)=$sel->fetchrow;
}
$styfocu=$stydoc=$styclip='background:#ebebeb;float:left;border-top:1px solid #454748;border-right:1px solid #454748;padding:3px 15px';
if(!$subchan or $subchan==$Keventifoc)
{
$styfocu='background:#fff;float:left;border-bottom:1px solid white;border-top:1px solid #454748;border-right:1px solid #454748;padding:3px 15px;position:relative;';
}
elsif($subchan==$Keventidoc)
{
$stydoc='background:#fff;float:left;border-bottom:1px solid white;border-top:1px solid #454748;border-right:1px solid #454748;padding:3px 15px;position:relative;';
}
elsif($subchan==$Keventicli)
{
$styclip='background:#fff;float:left;border-bottom:1px solid white;border-top:1px solid #454748;border-right:1px solid #454748;padding:3px 15px;position:relative;';
}
$tabella=qq~
~;
#'
if(!$video)
{
$coda=&codavideoeventi($video);
$conte=qq~
Raccontare l'arte proprio mentre succede
Far parlare le immagini e' sempre il tentativo di sopperire alla mancanza
di presa diretta del linguaggio sulle cose. E' un modo per tentare di
restituire piu' senso di quanto il linguaggio verbale o scritto riesca a
comunicare.
Non siamo d'accordo nel ritenere un filmato un modo per "vedere" una
mostra che non si puo' visitare, ma pensiamo che un racconto per immagini
possa stimolare la curiosita' ed essere uno strumento propedeutico capace
di promuovere e divulgare idee.
"Eventi in video" propone riprese e commenti di esposizioni e incontri,
"visite guidate", resoconti, interviste, con l'intento di affidare alla
rete testimonianze di eventi selezionati del panorama artistico.
"Eventi in video" non nasce solo per anticipare informazioni, ma anche per
offrire uno spaccato delle situazioni in corso e un esito dei loro
sviluppi.
Come funziona
~;
}
elsif($video eq 'info')
{
$coda=&codavideoeventi;
$conte=qq~
Eventi in video è il canale della piattaforma UnDoTV nato per diffondere:
VIDEO FOCUS Video realizzati da UnDo.Net
il videoFocus è lo strumento ideale per far conoscere una mostra, per farne parlare e stimolare le persone a visitarla, per presentarla attraverso interviste con i suoi protagonisti.
I VideoFocus vengono commissionati a UnDo.Net, che si occupa del concept del video, della realizzazione di riprese e interviste, della pre e post-produzione, della sua pubblicazione e della campagna di promozione per la sua diffusione. Inoltre il video prodotto vi verrà consegnato, completo di Player UnDo.Net per la pubblicazione sul vostro sito.
Video DOCUMENTI Video di incontri, convegni, presentazioni, seminari e workshop
potete richiederci di inviare un nostro operatore se desiderate riprendere un incontro, in modo da diffonderne i risultati e far conoscere interventi e punti di vista emersi. Su richiesta possiamo elaborare in post-produzione le riprese effettuate. Anche in questo caso il video viene pubblicato e diffuso sul nostro circuito e vi verrà consegnato completo di Player UnDo.Net. Nel caso invece preferiate realizzare voi le riprese, ci occuperemo della loro pubblicazione e promozione, compresa la loro post-produzione, se necessaria.
POOL Vostri video istituzionali pronti per essere diffusi
Il video che avete realizzato in occasione di vostre mostre e rassegne, convegni, presentazioni della vostra istituzione, ecc. può essere inviato al nostro staff in formato DVD. Ci occuperemo della sua conversione in formato non scaricabile per internet , della sua pubblicazione e promozione.
POOL Filmati da voi realizzati e post - prodotti dai nostri operatori
Avete realizzato riprese amatoriali di una vostra mostra, serata, presentazione, performance, ecc.? Lo staff UnDo.Net offre un servizio di post-produzione delle vostre riprese. Una volta montato dai nostri operatori il video vi verrà riconsegnato in formato DVD, completo di player per la pubblicazione sul vostro sito. Su richiesta, il video prodotto potrà essere pubblicato in Eventi in video e promosso sul nostro network.
Per offrire questi servizi UnDo.Net ha organizzato uno staff di
professionisti in regia video, ripresa da studio e live, post-produzione.
Per informazioni su costi e modalità : 02 6684254 (ore 15-19) adv\@undo.net
~;
}
else
{
$coda=&codavideoeventi($video);
$conte.=&playereventi($video);
}
}
elsif($chan==$Ksuono)
{
$tabella=qq~
~;
#'
$coda=&codasuono;
if(!$video)
{
$conte=qq~
Indagini nel museo polisensoriale
Il suono entra negli spazi dell'arte e crea, in moltissimi casi, un certo scompiglio.
In queste pagine si trovano registrazioni audio di mostre e di musei, senza
particolari montaggi o manipolazioni.
Lo scopo dell'operazione: sollevare domande che possano servire per la maggior
comprensione del rapporto tra suono e spazio espositivo.
Sebbene la scienza abbia risolto egregiamente, da tempo, molti dei problemi della
trasmissione dei suoni nello spazio, nei musei e nelle gallerie d'arte vige ancora
una certa disattenzione, una trascuratezza quasi preoccupante a riguardo.
Molti teorici di diverse discipline affermano che stiamo muovendo da una società in
cui la vista è il senso predominante a una società aurale, o forse tattile, o
forse multisensoriale, a seconda di chi parla.
Il suono nell'arte, dicono, sarebbe quindi dirompente perchè è in grado di
scardinare il solito orientamento visivo, verticale, oggettuale, atemporale.
Eppure anche la società occidentale ha sempre avuto molti luoghi dedicati al suono
e alla fruizione di opere d'arte multimediali... primi tra tutti i teatri. Dove il
rapporto tra suono e immagine è risolto in modo molto efficace.
Dunque, non sarà semplicemente un problema di contesto inadatto?
Quali sono le condizioni in cui possiamo dire che un'opera d'arte visiva abbia
veramente bisogno di essere accompagnata da suoni?
In queste pagine ogni registrazione suggerisce domande, a volte di natura
prettamente tecnica, a volte di ordine teorico.
Un progetto Steve Piccolo e UnDo.Net, con la collaborazione di Ricciarda Belgiojoso
Una parte importante della fruizione di ogni tipo di arte è la verbalizzazione, il tentativo di descrivere l'esperienza e di spiegarla a noi stessi e alle altre persone. Mentre gli sforzi dei critici e dei curatori ci aiutano, a volte, a mettere i nostri pensieri e le nostre reazioni in un contesto per la discussione, la cosa che rimane in memoria, la parte dell'esperienza che 'portiamo a casa', è la reazione a caldo, la formulazione spontaneamente fatta da noi, o dai nostri amici e conoscenti.
Le nuove tecnologie del suono e della rete possono estendere il campo d'azione di questa comunicazione orale/aurale, di questo 'buzz' (in inglese vuol dire ronzio di interesse), in una rete di commenti, descrizioni, consigli, reazioni e participazione. In parallelo, le nuove tecnologie audio stanno cambiando il nostro rapporto con il suono anche negli spazi dell'arte. Abituandoci alla presenza del suono dentro il museo, cominciamo ad acquisire una capacità di discernimento critico rispetto al ruolo giocato dai suoni e ai modi in cui sono trasmessi.
Steve Piccolo e UnDo.Net hanno sviluppato una gamma di strategie per utilizzare la dimensione sonora nel contesto del museo o della galleria d'arte (anche coll'ausilio della rete). Visitatori che guidano altri visitatori, il commento corale, zone audio lasciate in semioscurità, cabine isolate, reazioni sonore a catena, modi per stimolare il silenzio (la presenza del suono rende più critica la necessità di avere l'opzione del vero silenzio, lo spazio acusticamente 'neutrale' non esiste più).
Nel corso di molti progetti negli ultimi anni abbiamo capito che ogni situazione, ogni museo, ogni galleria, ogni mostra o evento richiede strategie sonore specifiche, anche se è possibile identificare alcune problematiche ricorrenti: l'acustica architettonica, la mancanza di perizia multimediale delle istituzioni, l'alfabetizzazione dei visitatori rispetto ai nuovi linguaggi dell'arte, la mancanza di un lessico condiviso per la discussione dell'arte contemporanea tra non-addetti, ecc.
Abbiamo visto che quando si riesce a stimolare discussione tra visitatori in un'atmosfera rilassata e rassicurante, è possibile incrementare in modo significativo il livello di interesse del pubblico verso una mostra, un evento o una collezione.
Per un progetto sonoro sul/per il vostro evento o spazio espositivo: adv\@undo.net tel. 02 6684254
~;
#'
}
elsif($video eq 'info2')
{
$conte=qq~
Coinvolgimento e contesto (ottobre 2008)
Il dibattito in corso sul rumore ha cominciato a dare frutti, tra questi l'emergente certezza che la natura rumorosa o, invece, significante di ogni suono dipende in gran parte dal contesto in cui quel suono è percepito.
Se il suono significante implica un maggior livello di coinvolgimento dell'ascoltatore, occorre indagare il ruolo di quest'ultimo.
Può essere chiamato in causa semplicemente come testimone, una condizione che forse oggi sembra troppo scontata; o può diventare complice nella stessa produzione del suono, invitato a con-celebrare un rito acustico come partecipante a pieno titolo.
Nel secondo caso, invece di richiedere uno sforzo immaginativo-analitico d'ascolto, il suono e la sua messa in scena esigono un coinvolgimento fisico-espressivo che effettivamente abbatte la barriera tra l'esecutore o il mezzo mediatico e il fruitore, risolvendo la dicotomia attivo-passivo nella dinamica della trasmissione dei suoni 'dal produttore al consumatore'.
Ultimamente ho avuto modo di assistere (curioso, in Italiano, l'ambiguità di questo verbo tra transitivo 'aiutare qualcuno' e intransitivo 'essere presente') alcuni eventi che mettevano in pratica teorie di questo tipo.
Toccare per credere?
Olafur Eliasson, 'Spatial Vibration'. Tanya Bonakdar Gallery, Manhattan, NY
Rock the house?
David Byrne, Playing the Building. Battery Maritime Building, Manhattan, NY
~;
#'
if($subchan)
{
$coda=&codavoiceinterna;
}
else
{
$coda=&codavoice;
}
if(!$video and !$subchan)
{
$conte=qq~
Archivio sonoro di interviste in progress
in collaborazione con
Curatori, artisti, ricercatori e direttori di musei raccontano le mostre e il proprio lavoro in una cronaca a piu' voci. Con sguardi ipertrofici, prospettive allargate e continue derive, offrono interpretazioni personali delle proposte culturali.
Voices e' un attraversamento random tra le contingenze del contemporaneo che offre un'istantanea - ovviamente parziale - del dibattito intorno al display, le pratiche artistiche e curatoriali, i protagonisti delle fenomenologie attuali.
Ogni settimana alcuni dei protagonisti della scena artistica contemporanea sono intervistati da Annalisa Cattani e Massimo Marchetti, nell'ambito del programma radiofonico di
approfondimento culturale Humus condotto da Piero Santi su Radio Citta' del Capo.
Ogni intervista viene trasmessa in radio e viene pubblicata su UnDo.Net per essere ascoltata attraverso la rete ed essere messa in relazione con tutte le altre fonti presenti nel network riguardo eventi culturali, autori e progetti. In questo modo le interviste entrano a far parte di un archivio di documentazioni e risorse in continua crescita.
In fondo a questa pagina trovi anche i collegamenti ad altri UnDoprogetti basati sull'utilizzo dell'audio.
~;
}
elsif($video eq 'info')
{
$conte=qq~
Archivio sonoro di interviste in progress
Voices e' uno storage di parole che racconta gli eventi, e che offre un'istantanea - ovviamente parziale - del dibattito intorno al display, le pratiche artistiche e curatoriali, i protagonisti delle fenomenologie attuali.
Dalle suggestioni dei 'passages' di Benjamin e la sua catalogazione ossessiva dell'umano, un archivio nasce spontaneamente come sedimentazione di un'attività ed è formato dal complesso delle relazioni oltre che dai documenti. Nell'archivio coesistono ordine e disordine.
E le strategie caotiche neoliberiste determinano la nostra vita quotidiana.
L'archivio come luogo in cui si allentano i legami discorsivi e, nella direzione di una post-produzione, gli oggetti assumono lo stato di frammenti.
Per Obrist l'archivio è una metafora del processo di costruzione di una mostra. Non solo perchè è un curatore performativo o perchè si sono svolte bellissime mostre-archivio, eterotopiche e tassonomiche, come Democracy di Group Material.
Aby Warburg metteva sistematicamente in scena il suo archivio, il suo atlante di immagini in un grande arsenale. Qual'è il principio ordinatore se non la logica del <>bric à brac? Dall'elenco e la sovrapposizione, all'estetica delabrè dell'assemblaggio, del collage sonoro. Anche in questo archivio di interviste non ci vuol essere nessuna strategia di sistemazione. Ma un attraversamento random tra le contingenze del contemporaneo e le voci di alcuni dei protagonisti.
In collaborazione con: Radio Citta del Capo
Autore e conduttore del programma di approfondimento culturale Humus: Piero Santi
Co-conduttrice per l'arte contemporanea: Elvira Vannini, redazione ed editing sonoro: Maria Vittoria Perrelli
Elvira Vannini e' storico dell'arte, critico e curatore indipendente. Vive e lavora a Bologna. Attualmente svolge un Dottorato di Ricerca in Storia dell'Arte presso l'Universita' degli studi Bologna. E' autrice e co-conduttrice dello spazio dedicato all'arte contemporanea di "Radio Citta' del Capo" - Popolare Network. Collabora a progetti di UnDo.Net dal 2003. Svolge attivita' critica e curatoriale indipendente. Collabora con testate specializzate, si occupa di recensioni, articoli e interviste, con particolare attenzione alle ultime generazioni di artisti italiani e internazionali. Ha pubblicato su Flash Art, Tema Celeste, Around Photography, Arte e Critica. Ha curato mostre personali e collettive in gallerie, spazi pubblici e situazioni no-profit, eventi performativi e articolazioni audiovideo. Riflette sulle relazioni tra pratiche artistiche, strategie di occupazione dello spazio pubblico e sistemi espositivi, alla luce delle trasformazioni sociali e urbane in una prospettiva geopolitica. Ha tenuto lecture in workshop, incontri e conferenze su aree di interesse interdisciplinare che vanno dagli studi curatoriali, alle pratiche del display, all'architettura e le fenomenologie del contemporaneo.
~;
#'
}
elsif($subchan)
{
$d="select undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.idramo=$subchan order by undotvalbero.ordine";
$sel=$db->query($d);
($titolo,$testo,$sinossi)=$sel->fetchrow;
$conte=qq~
$titolo $sinossi
$testo
~;
}
}
$tabella.=qq~
$conte
~.$coda;
&stampa;
}
sub xmlvideo
{
$K2video=1178192120;
$Keventi=1178192181;
$Ksuono=1178192221;
$Kvoice=1203593330;
$chan=1178192120 if(!$chan);
if($chan==$K2video or $chan==$Keventi)
{
$d="select idart,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links,undotvarticoli.durata,undotvarticoli.dimensioni,undotvarticoli.zoom,undotvarticoli.seeker from undotvarticoli where idart=$video ";
$sel=$db->query($d);
($idr,$titolo,$testo,$sinossi,$durata,$dimensioni,$zoom,$seeker)=$sel->fetchrow;
$d="select iddown, idart, ordine, nome from undotvdownload where idart=$video and ordine=1 and tipo='flv' order by idart,ordine";
$sel=$db->query($d);
($iddown,$idart,$ordine,$dida)=$sel->fetchrow;
($w,$h)=split /x/,$dimensioni;
$scaling=0;
$start=0;
if($zoom==1 and !$full) { $full='javascript:full()'; }
elsif($zoom==1 and $full) { $full='javascript:window.close()'; $scaling=1;$start=1}
elsif($full) { $full=''; $scaling=1;$start=1}
if($dida)
{
if($zoom==1 and $full)
{
if(open TEST,$tvabsurlalt.$dida.'F.flv')
{
$flv=$tvurlaltvideo.$dida.'F.flv';
#$flv=$tvurlalt.$dida.'F.flv';
}
else
{
$flv=$tvurlaltvideo.$dida.'.flv';
#$flv=$tvurlalt.$dida.'.flv';
}
close TEST;
$cope=$tvurlalt.$dida.'.jpg';
}
else
{
$flv=$tvurlaltvideo.$dida.'.flv';
$cope=$tvurlalt.$dida.'.jpg';
}
}
else
{
}
}
print "Content-type: application/xml\n\n";
# per puntare ai video sul web server (modficato il 2 giu 2010)
# thesource ="http://www.undo.net$flv"
print qq~
~;
exit;
}
sub fullvideo
{
$msg=qq~
UnDoTv
~;
print "Content-type: text/html\n\n";
print $msg;
exit;
}
sub codasuono
{
$dq='';
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.padre=$Ksuono order by undotvalbero.ordine desc";
$sel=$db->query($d);
while(($idramo,$padre,$o,$titolo,$testo,$sinossi)=$sel->fetchrow)
{
$parole{$idramo}=join ( '#-+-#',$idramo,$padre,$o,$titolo,$testo,$sinossi);
$dq.='or undotvalbero.padre='.$idramo.' ';
$ordine[$o].=$idramo.';';
$totalesuoni++;
}
$dq=~s/^or//;
$dt='';
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links,undotvarticoli.durata,undotvarticoli.dimensioni,undotvarticoli.zoom,undotvarticoli.seeker from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where $dq order by undotvalbero.ordine ";
$sel=$db->query($d);
while(($idramo,$padre,$o,$titolo,$testo,$sinossi,$durata,$dimensioni,$zoom,$seeker)=$sel->fetchrow)
{
$filma{$idramo}=join ( '#-+-#',$idramo,$padre,$o,$titolo,$testo,$sinossi,$durata,$dimensioni,$zoom,$seeker);
$figli{$padre}.=$idramo.';';
$dt.='or idart='.$idramo.' ';
}
$dt=~s/^or//;
$d="select idimmagine, idart, ordine, dida from undotvimmagini where $dt order by idart,ordine";
$sel=$db->query($d);
while(($idimmagine,$idart,$ordine,$dida)=$sel->fetchrow)
{
$immag{$idimmagine}=join ('#-+-#',$idimmagine,$idart,$ordine,$dida);
$immvid{$idart}.=$idimmagine.';';
}
$d="select iddown, idart, ordine, nome from undotvdownload where $dt and tipo='mp3' order by idart,ordine";
$sel=$db->query($d);
while(($iddown,$idart,$ordine,$dida)=$sel->fetchrow)
{
$down{$iddown}=join ('#-+-#',$iddown,$idart,$ordine,$dida);
$downart{$idart}.=$iddown.';';
}
if(!$start){$start=0}
$c=0;
$inc=10;
$next=$start+$inc;
$prev=$start-$inc;
foreach (reverse @ordine)
{
foreach(split /;/,$_)
{
if(($c<($start+$inc))and($c>=$start))
{
($idramo1,$padre1,$o1,$titolo1,$testo1,$sinossi1)=split (/#-\+-#/,$parole{$_});
$msg.=qq~
~;
}
}
# if($_) { $msg.=' '; }
}
return $msg;
}
sub playereventi
{
$msg='';
$video=$_[0];
%figli=();
%immvid=();
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.idramo=$video";
$sel=$db->query($d);
($idramoparola,$padreparola,$oparola,$titoloparola,$testoparola,$sinossiparola)=$sel->fetchrow;
$dt='';
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links,undotvarticoli.durata,undotvarticoli.dimensioni,undotvarticoli.zoom,undotvarticoli.seeker from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.padre=$video order by undotvalbero.ordine ";
$sel=$db->query($d);
while(($idramo,$padre,$o,$titolo,$testo,$sinossi,$durata,$dimensioni,$zoom,$seeker)=$sel->fetchrow)
{
$filma{$idramo}=join ( '#-+-#',$idramo,$padre,$o,$titolo,$testo,$sinossi,$durata,$dimensioni,$zoom,$seeker);
$figli{$padre}.=$idramo.';';
$dt.='or idart='.$idramo.' ';
$schedapadre=$idramo;
}
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links,undotvarticoli.durata,undotvarticoli.dimensioni,undotvarticoli.zoom,undotvarticoli.seeker from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.padre=$schedapadre order by undotvalbero.ordine ";
$sel=$db->query($d);
($schedaidramo,$schedapadre,$schedao,$schedatitolo,$schedatesto,$schedasinossi,$schedadurata,$schedadimensioni,$schedazoom,$schedaseeker)=$sel->fetchrow;
$dt=~s/^or//;
$d="select idimmagine, idart, ordine, dida from undotvimmagini where $dt order by idart,ordine";
$sel=$db->query($d);
while(($idimmagine,$idart,$ordine,$dida)=$sel->fetchrow)
{
$immag{$idimmagine}=join ('#-+-#',$idimmagine,$idart,$ordine,$dida);
$immvid{$idart}.=$idimmagine.';';
}
$d="select iddown, idart, ordine, nome from undotvdownload where $dt and tipo='flv' order by idart,ordine";
$sel=$db->query($d);
while(($iddown,$idart,$ordine,$dida)=$sel->fetchrow)
{
$down{$iddown}=join ('#-+-#',$iddown,$idart,$ordine,$dida);
$downart{$idart}.=$iddown.';';
}
$msg.='
~;
}
}
}
return $msg;
}
sub player2video
{
$msg='';
$video=$_[0];
%figli=();
%immvid=();
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.idramo=$video";
$sel=$db->query($d);
($idramoparola,$padreparola,$oparola,$titoloparola,$testoparola,$sinossiparola)=$sel->fetchrow;
$dt='';
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links,undotvarticoli.durata,undotvarticoli.dimensioni,undotvarticoli.zoom,undotvarticoli.seeker from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.padre=$video order by undotvalbero.ordine ";
$sel=$db->query($d);
while(($idramo,$padre,$o,$titolo,$testo,$sinossi,$durata,$dimensioni,$zoom,$seeker)=$sel->fetchrow)
{
$filma{$idramo}=join ( '#-+-#',$idramo,$padre,$o,$titolo,$testo,$sinossi,$durata,$dimensioni,$zoom,$seeker);
$figli{$padre}.=$idramo.';';
$dt.='or idart='.$idramo.' ';
}
$dt=~s/^or//;
$d="select idimmagine, idart, ordine, dida from undotvimmagini where $dt order by idart,ordine";
$sel=$db->query($d);
while(($idimmagine,$idart,$ordine,$dida)=$sel->fetchrow)
{
$immag{$idimmagine}=join ('#-+-#',$idimmagine,$idart,$ordine,$dida);
$immvid{$idart}.=$idimmagine.';';
}
$d="select iddown, idart, ordine, nome from undotvdownload where $dt and tipo='flv' order by idart,ordine";
$sel=$db->query($d);
while(($iddown,$idart,$ordine,$dida)=$sel->fetchrow)
{
$down{$iddown}=join ('#-+-#',$iddown,$idart,$ordine,$dida);
$downart{$idart}.=$iddown.';';
}
$msg.='
Tutti i video sono pubblicati in versione integrale, senza limiti di
durata e senza loghi o scritte sovraimpresse, per un\'ottimale fruizione delle opere.
Se vuoi partecipare alla selezione, inviaci il tuo video per posta ordinaria in formato dvd insieme a questa scheda.
~;
&stampa;
}
sub editinterna
{
if($action2<1000)
{
$template=$template_unacolonna;
open FILE,"html/edit".$action2.".html";
my @rob=;
close FILE;
my $robba=join '',@rob;
$tabella=$robba;
}
else
{
$template=$template_unacolonna;
open FILE,"html/edit_template.html";
@rob=;
close FILE;
$robba=join '',@rob;
$robba=~s//$action2/;
$dq='';
$d="select undotvalbero.idramo,undotvalbero.padre,undotvalbero.ordine,undotvarticoli.titolo,undotvarticoli.testo,undotvarticoli.links from undotvalbero left join undotvarticoli on undotvalbero.idramo=undotvarticoli.idart where undotvalbero.padre=$action2 order by undotvalbero.ordine desc";
$sel=$db->query($d);
if(($idramo,$padre,$o,$titolo,$testo,$sinossi)=$sel->fetchrow)
{
#$d="select dimensioni from undotvarticoli where idart=".$action2;
#$sel=$db->query($d);
#($dimensioni)=$sel->fetchrow;
#if($dimensioni eq '001')
#{
# no tafter
#print "location: http://www.undo.net/cgi-bin/undo/pressrelease/pressrelease.pl\n\n";
#exit;
#}
$robba=~s//$titolo/;
$robba=~s//$sinossi/;
$robba=~s//$testo/;
$head=qq~
$titolo - Argomenti Pressrelease
~;
$d2="select idimmagine, idart, ordine, dida from undotvimmagini where idart=$idramo order by idart,ordine";
$sel2=$db->query($d2);
$ks=0;
while(($idimm,$ida,$or,$did)=$sel2->fetchrow)
{
if($ks==0) { $st=' style="margin-left:10px;"'; }
else { $st=' style="margin-left:10px;margin-top:10px;"'; }
($w,$h)=imgsize("/home/undo/www/Pressrelease/undotv/foto/".$idimm."g.jpg");
$immas.=' ';
if($did)
{$immas.='
'.$did.'
'; }
$ks++;
}
$robba=~s//$immas/;
}
if(($action2==1255707555 or $action2==1258125834 or $action2==1259690795 or $action2==1260459580 or $action2==1261071685 or $action2==1263313317 or $action2==1264524475 or $action2==1267540583 or $action2==1269706968) and !$lettera)
{
$d="SELECT distinct substring(cognome,2,1) FROM appello2009 ";
$sel=$db->query($d);
while(($let)=$sel->fetchrow)
{
$appello.=''.$let.' ';
}
$robba=~s//$appello/;
}
elsif(($action2==1255707555 or $action2==1258125834 or $action2==1259690795 or $action2==1260459580 or $action2==1261071685 or $action2==1263313317 or $action2==1264524475 or $action2==1267540583 or $action2==1269706968) and $lettera)
{
$appello.='< Back
';
$d="SELECT nome,cognome,carica,citta from appello2009 where cognome like ' ".$lettera."%' order by cognome,nome";
$sel=$db->query($d);
while(($no,$co,$ca,$ci)=$sel->fetchrow)
{
if(!$chkakakka{$no.' '.$co.', '.$ca.' - '.$ci})
{
$chkakakka{$no.' '.$co.', '.$ca.' - '.$ci}=1;
$appello.=$no.' '.$co.', '.$ca.' - '.$ci.' ';
}
}
open FILE,"html/edit_template.html";
@rob=;
close FILE;
$robba=join '',@rob;
$robba=~s//$appello/;
}
$tabella=$robba;
}
&stampa;
}
sub iloveitalia
{
open FILE,"html/iloveitalia.html";
my @rob=;
close FILE;
my $robba=join '',@rob;
$sel=$db->query("select * from press_iloveitalia order by lancio desc");
while(@d=$sel->fetchrow)
{
($gi,$mi,$ai)=split /\//,&dammiggmmaa($d[1]);$ai+=2000;
if($mi ne $miprec)
{
$iloveitalia.=qq~ $mesi[$mi] $ai ~;
}
$miprec=$mi;
$iloveitalia.=qq~
UnDo.Net partecipa a "numero zero" di "inContemporanea, la rete
dell'arte", un progetto della Provincia di Milano per dare visibilità al
ricco panorama artistico contemporaneo milanese e promuoverne la
conoscenza presso tutti i cittadini.
Come prima fase della nostra partecipazione abbiamo ideato e realizzato il
website dell'iniziativa. Nel sito progetti, notizie, immagini e interviste
sugli eventi in programma restituiscono il quadro d'insieme delle
relazioni che inContemporanea sta attivando: http://www.incontemporanea.it
La seconda fase del nostro progetto e' l'invito a ulteriori Associazioni ad inserirsi in questa rete di relazioni in vista di un futuro allargamento del circuito di inContemporanea.
Il nostro invito e' rivolto per il momento a quelle Associazioni di Milano e provincia che si occupano prevalentemente di arti visive, cui chiediamo di inviarci documentazione sulla propria attivita' registrandosi e compilando la form che si trova a questa pagina.
Con i materiali ricevuti realizzeremo un dossier che proporremo all'Assessorato alla cultura, culture e integrazione della Provincia di Milano.
Fase conclusiva del nostro progetto sara' la giornata d'incontro pubblico che si terra' presso lo Spazio Oberdan il 18 aprile 2006 dal titolo: Spazio pubblico e arti per lo sviluppo di un'identità culturale condivisa
Un incontro che abbiamo pensato come momento dedicato alla reciproca conoscenza tra le realtà culturali operanti sul nostro territorio cui parteciperanno l'Assessorato alla cultura e il Settore Comunicazione della Provincia, gli attuali protagonisti di "numero zero" e i rappresentanti delle Associazioni che ci avranno inviato la documentazione sulla propria attivita'.
Aspettiamo numerose le vostre informazioni!
Deadline 7 aprile 2006
Per inviare la documentazione della propria Associazione e' necessario registrarsi.
~;
#'
}
elsif($action2 eq 'step2')
{
$tabella=qq~
Spazio pubblico e arti...
~;
if(($nome and $email)or($idass))
{
if(!$idass)
{
$id=time();
$ins=$db->query("insert into associazioni set id=".$id.", segnalatore='".$nome."', segnalatoreemail='".$email."'");
$idass=$id;
}
else
{
$sel=$db->query("select * from associazioni where id=".$idass);
@d=$sel->fetchrow;
}
$tabella.=qq~
~
#'
}
else
{
$tabella.=qq~Errore
Devi inserire sia il tuo nome che la tua email
~;
for($i=15;$i<=17;$i++)
{
$z='val'.$i;
$$z=$q->param($i);
$$z=~s/\'/\\\'/g;
$b++;
if($q->param('file'.$i))
{
$fff=$q->param('file'.$i);
open FILE,'>/home/undo/www/Pressrelease/associazioni/foto/'.$idass.'_'.$b.'.jpg';
while(<$fff>)
{ print FILE }
close FILE;
if(!$$z) { $$z='didascalia mancante'; }
}
}
$upd="UPDATE associazioni SET
img1 = '$val15',
img2 = '$val16',
img3 = '$val17'
WHERE id =$idass LIMIT 1 ;";
$sel=$db->query($upd);
$tabella.=qq~
Grazie, abbiamo ricevuto e visioneremo i materiali che ci hai inviato. Ci metteremo in contatto con te ai recapiti che hai indicato.
Grazie della collaborazione.
UnDo.Net
~;
$tabella.=qq~
~;
}
&stampa;
}
sub focus
{
open FILE,"html/focus.html";
my @rob=;
close FILE;
my $robba=join '',@rob;
$tabella=qq~
I FOCUS DI PRESSRELEASE
$robba
~;
&stampa;
}
sub speciali
{
open FILE,"html/pagina_web_listino.html";
my @rob=;
close FILE;
my $robba=join '',@rob;
$tabella=qq~
PressRelease Speciale del lunedì
$robba
~;
&stampa;
}
sub editoriale
{
$tabella=qq~
EDITORIALE
L'ecosistema della cultura contemporanea
La cultura e' a disposizione di tutti. Questo non significa che tutti abbiano le stesse possibilita' di fruirla o di farla.
Semplicemente vivendo si fruisce e si incide sulla cultura, anche se la nostra societa' ci ha abituati a pensare che ci sei solo se gli altri parlano di te; che ci puoi essere per un quarto d'ora come diceva Andy Warhol.
La cultura come ecosistema: le situazioni nascono, finiscono, diventano altro. Si modificano, secondo un'evoluzione caotica che non significa necessariamente miglioramento. Semplicemente tutto cambia continuamente.
In un ecosistema tutto e' inevitabilmente in relazione, ogni cosa influenza l'altra non necessariamente in modo armonico e mai del tutto consapevolmente.
I grandi musei, le riviste, le gallerie con un grande potere e opportunita' di comunicazione si muovono sui livelli alti di un sistema organizzato gerarchicamente influenzandone le dinamiche, ma sono a loro volta influenzati dai microfenomeni.
Il confronto e' una necessita'; iniziative culturali internazionali e locali devono potersi confrontare e i loro autori relazionarsi.
La relazione si attiva quando circola l'informazione; cioe' quando non ci sono discriminazioni economiche o politiche ed anche piccoli scarti di pensiero possono suggerire nuove visioni e prospettive.
Il mondo dell'informazione discrimina e seleziona secondo logiche che i fruitori non possono conoscere, quindi e' importante che si sviluppino luoghi in cui il confronto sia libero, aperto e accessibile.
Territori d'incontro, luoghi senza confini geografici che permettano una lettura trasversale (per sua natura basata sulla velocita') delle informazioni, ma in cui sia sempre possibile l'approfondimento, la conoscenza.
Il confronto deve avvenire, avviene attraverso l'informazione che ha ritmi incalzanti, ma se si riesce a naturalizzare questi ritmi si e' in grado di decidere le battute del proprio componimento musicale. Che può essere lentissimo.
UnDo.Net
~;
&stampa;
}
sub sprite
{
$template=$template_unacolonna;
#$sel=$db->query("select img,id,titolo,citta,titoloing from pressrelease where img!='' order by id desc limit 150");
$sel=$db->query("select datainserimento from Eventi order by datainserimento desc limit 550");
while(($img)=$sel->fetchrow)
{
# if(!$tiit){$tiit=$tiiting}
# $sprite.=qq~ ~;
if(open FILEZ,$filepath.$img.'.jpg'){
$cu++;
$sprite.=qq~
~;
}
close FILEZ;
}
$tabella=qq~
SPRITE
$sprite
~;
&stampa;
}
sub interviste
{
$tabella=qq~
ARCHIVIO AUDIO INTERVISTE
Dal 2002 al 2006 UnDo.Net ha realizzato e diffuso 100 interviste realizzate con la collaborazione di gallerie, musei, artisti e curatori: un modo per contribuire al confronto delle idee, approfondire i temi degli eventi e seguire attraverso
le parole dei protagonisti l'evoluzione della scena artistica contemporanea.
~;
$avanindre=qq~
~;#'
$next=0 if(!$next);
$nuovonext=$next+10;
$precnext=$next-10;
$sel=$db->query("select id from press_interviste");
$toti=$sel->numrows;
$top=int($toti/10);
if($toti%10!=0)
{ $top++ }
$acp=(($next+10)/10);
$sel=$db->query("select * from press_interviste order by id desc limit $next,10");
$quai=$sel->numrows;
if($next>0)
{
$avanindre.=qq~<< successive ~;
}
else { $avanindre.=qq~ ~; }
$avanindre.=qq~
~;
#$tabella.=$avanindre;
while(($id,$idcomunicato,$filereal,$filemp3,$nome,$dataintervista,$descrizione,$durata)=$sel->fetchrow)
{
#$sel2=$db->query("select titolo,citta,spazio,img from pressrelease where id=$idcomunicato");
$sel2=$db->query("select Comunicati.titolo,Spazi.citta,Spazi.nome,Eventi.datainserimento from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where Eventi.datainserimento=".$idcomunicato."
group by Eventi.id
order by bridgeEventiCalendario.dal desc limit 1");
@a=$sel2->fetchrow;
$filemp3xflash=$filemp3;
$filemp3xflash=~s/\.mp3$//;
if($filemp3){ $filemp3=qq~scarica: mp3~ }
if(!$filereal){$idreal=$idcomunicato}else{$idreal=$filereal}
if($descrizione){$descrizione=qq~$descrizione
~;
#$sel=$db->query("select id,titolo,spazio,citta,via,fine,orario,email,www,descrizione,tel from segnalazioni where ina=$day order by priorita desc");
$sel=$db->query("select Eventi.datainserimento,Comunicati.titolo,Spazi.nome,Spazi.citta,Spazi.via,bridgeEventiCalendario.al,Eventi.orari,Spazi.email,Spazi.www,Comunicati.sinossi,Eventi.tel,Eventi.email as evemail,Eventi.www as evwww,Spazi.tel as tel2
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where bridgeEventiCalendario.dal=$day and Comunicati.testo='' and Eventi.pubblico=1 and Eventi.pressrelease=1
group by Eventi.id
order by Eventi.priorita desc");
while(@d=$sel->fetchrow)
{
if(!$d[10]) { $d[10]=$d[13]; }
if($d[10]!~/tel/i and $d[10])
{
$d[10]='- tel. '.$d[10]
}
elsif($d[10]=~/tel/)
{
$d[10]='- '.$d[10];
}
$d[10]=~s/-$//;
$d[4]=~s/-$//;
$d[6].=' - ' if($d[6]!~/-$/);
#if(!$d[7]) { $d[7]=$d[11]; }
#if(!$d[8]) { $d[8]=$d[12]; }
if($d[11]) { $d[7]=$d[11]; }
if($d[12]) { $d[8]=$d[12]; }
if($d[7]){$d[7]=qq~$d[7] ~}
if($d[8])
{
if($d[8]!~/^http/i){$d[8]='http://'.$d[8]}
$d[8]=qq~$d[8]~
}
$jjjk='';
$d[9].=' ' if($d[9]);
$jjjk=qq~, fino al ~.&dammiggmmaa($d[5]) if($d[5] ne $inizio_oggi);
$tabella.=qq~
~;
&stampa;
}
sub promuovere
{
open FILE,"html/promuovere.html";
my @f=;
close FILE;
$tabella= join '',@f;
&stampa;
}
sub novita
{
$sel=$db->query("select id,dal,al,titolo,testo,link from press_novita where dal<=$assoluto and al>=$assoluto and archivio=0 order by priorita ");
if($sel->numrows>0)
{
$novita.=qq~
';
}
}
sub spot
{
$sel=$db->query("select id,dal,al,titolo,spazio,citta,via,link from press_spot where dal<=$assoluto and al>=$assoluto and archivio=0 order by priorita");
if($sel->numrows>0)
{
$spot.=qq~
~;
}
$sel=$db->query("select id from press_interviste");
$numin=$sel->numrows;
$sel=$db->query("select nome from press_interviste order by id desc limit 5");
while($nnoo=$sel->fetchrow)
{ $nomiinterviste.=qq~$nnoo, ~; }
$nomiinterviste=~s/, $/ .../;
$spot.=qq~
~;
}
}
sub dalnetwork
{
$dalnetwork.=qq~
DAL NETWORK
~;
$sel=$db->query("select id,dal,al,titolo,spazio,citta,via,link from press_dalnetwork where dal<=$assoluto and al>=$assoluto and archivio=0 order by priorita");
while(@d=$sel->fetchrow)
{
if($d[7]!~/cgi-bin/)
{
$targspo='target=_blank';
}
else { $targspo='' }
$dalnetwork.=qq~
~;
$dalnetwork='' if(!$cnet);
}
sub segnalazioni
{
if($action){return}
#$sel=$db->query("select id,titolo,spazio,citta,via,fine from segnalazioni where ina=$inizio_oggi order by priorita desc");
$sel=$db->query("select Eventi.datainserimento,Comunicati.titolo,Spazi.nome,Spazi.citta,Spazi.via,bridgeEventiCalendario.al
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where bridgeEventiCalendario.dal=$inizio_oggi and Comunicati.testo='' and Eventi.pubblico=1 and Eventi.pressrelease=1
group by Eventi.id
order by Eventi.priorita desc");
while(@d=$sel->fetchrow)
{
$jjjk='';
$jjjk=qq~, fino al ~.&dammiggmmaa($d[5]) if($d[5] ne $inizio_oggi);
$segnalazioni.=qq~
$d[3]$jjjk $d[1]
~ if($checksegnalazioni);
}
sub geosearch
{
#print "location: http://www.undo.net/it/maps.php?eventi=geosearch&spazi=&loc1=".$loc1."&ind1=".$ind1."&raggio=".$raggio."\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/maps.php?eventi=geosearch&spazi=&loc1=".$loc1."&ind1=".$ind1."&raggio=".$raggio,-status=>301);
exit;
$rgeocitta=$loc1;
$rgeoind=$ind1;
$rgeospazi=$spazi;
if(!$loc1 and !$ind1)
{
$tabella=qq~
RICERCA
Devi inserire almeno la città
~;
&stampa;
}
$template=$template_unacolonna;
$loc1q=$loc1;
$ind1q=$ind1;
$ind1q=~s/\'/\\\'/g;
$loc1q=~s/\'/\\\'/g;
$sel=$db->query("select spazi_tuttocitta_xy.x,spazi_tuttocitta_xy.y from Spazi left join spazi_tuttocitta_xy on Spazi.id=spazi_tuttocitta_xy.id where via like '".$ind1q."%' and citta like '".$loc1q."%' limit 1");
($locX,$locY)=$sel->fetchrow;
if(!$locX and !$locY)
{
$loc1get=$loc1;
$loc1get=~s/ /+/g;
$loc1get=~s/\|//g;
$loc1get=~s/\'/%27/g;
$loc1get=~s/;//g;
$ind1get=$ind1;
$ind1get=~s/ /+/g;
$ind1get=~s/\|//g;
$ind1get=~s/\'/\\\'/g;
$ind1get=~s/;//g;
#open GGG,"/usr/bin/wget -q -O - 'http://www.tuttocitta.it/tcoln/action?msez=500&com=".$loc1get."&in=".$ind1get."&nc=&_=' |";
open GGG,"/usr/bin/wget -q -O - 'http://geo.paginegialle.it/lbs?nat=&prov=&open=".$loc1get."&topo=".$ind1get."' |";
@rr=;
close GGG;
$datutto=join '',@rr;
if($datutto=~/(5|0)<\/outcod>/)
{
($t,$xxx)=split("",$datutto);
($xxx,$t)=split("",$xxx);
($t,$yyy)=split("",$datutto);
($yyy,$t)=split("",$yyy);
#($t,$zzz)=split("",$datutto);
#($zzz,$t)=split("",$zzz);
$locX=$xxx;
$locY=$yyy;
}
}
#else { $tabella.='da cache '.$locX.' '.$locY.'
'; }
if(!$locX and !$locY)
{
$tabella=qq~
RICERCA GEOGRAFICA
L'indirizzo inserito non e' corretto, riprova
~;
&stampa;
}
if(!$ind1 and !$raggio)
{
$raggio=3;
}
if(!$raggio)
{ $r=0.0069; } # 800m
elsif($raggio==2)
{ $r=0.0120; } # 1.6km
elsif($raggio==3)
{ $r=0.0225; } # 3.5km
elsif($raggio==4)
{ $r=0.1; } #15km
if(!$spazi)
{
#$queryeventi="bridgeEventiCalendario.dal<".time()." and bridgeEventiCalendario.al>".time()." and";
$queryeventi="bridgeEventiCalendario.al>".time()." and";
$querygroup="group by Spazi.id,Eventi.id ";
}
else
{
$queryeventi="bridgeEventiCalendario.dal>".(time()-(86400*365*3))." and";
$querygroup="group by Spazi.id ";
}
#$tabella.='raggio '.$r.' punto sx X '.($locX-$r).' punto dx X '.($locX+$r).' punto sopra '.($locY-($r/2)).' punto sotto '.($locY+($r/2)).'
';
$locquery="select Eventi.id,Spazi.id as spazid,Spazi.citta,Spazi.nome,Spazi.via,Spazi.tel,Comunicati.titolo, Comunicati.sottotitolo,
spazi_tuttocitta_xy.x,spazi_tuttocitta_xy.y,
Eventi.datainserimento, bridgeEventiCalendario.dal, bridgeEventiCalendario.al
from Eventi left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join spazi_tuttocitta_xy on spazi_tuttocitta_xy.id=Spazi.id
where
$queryeventi
Eventi.pubblico=1 and Eventi.pressrelease=1
and spazi_tuttocitta_xy.x<".($locX+($r*2))." and spazi_tuttocitta_xy.x>".($locX-($r*2))."
and spazi_tuttocitta_xy.y<".($locY+($r))." and spazi_tuttocitta_xy.y>".($locY-($r))." $querygroup order by Eventi.id desc";
$sel=$db->query($locquery);
$t=0;
while(($eid,$sid,$scitta,$snome,$svia,$stel,$ctitolo,$csotto,$sx,$sy,$dins,$ina,$fine)=$sel->fetchrow)
{
$dist=&distanza_gps($locX,$locY,$sx,$sy);
$allreshtml{$t}=qq~ $dist km ,$snome,$svia,$ctitolo
~;
if($spazi and $queryevespazi)
{
$queryevespazi=~s/^ or//;
$locquery="select Eventi.id,Spazi.id as spazid,Comunicati.titolo, Comunicati.sottotitolo,
Eventi.datainserimento, bridgeEventiCalendario.dal, bridgeEventiCalendario.al
from Eventi left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join spazi_tuttocitta_xy on spazi_tuttocitta_xy.id=Spazi.id
where
$queryevespazi and
Eventi.pubblico=1 and Eventi.pressrelease=1
group by Eventi.id order by Spazi.id desc";
$sel=$db->query($locquery);
$t=0;
while(($eid,$sid,$ctitolo,$csotto,$dins,$ina,$fine)=$sel->fetchrow)
{
$allevdat[$eid]=join('|+|',($eid,$sid,$ctitolo,$csotto,$dins,$ina,$fine));
$allevspaz[$sid].=$eid.';';
}
}
foreach $ord (sort { $allresdist{$a} <=> $allresdist{$b} } keys %allresdist)
{
#$tabella.=$allreshtml{$ord};
if($spazi) {
$tabella.=&vesti7geo($allresdata[$ord]);
$puntimappa.=&puntomappaspazi($allresdata[$ord]);
}
else {
$tabella.=&vesti6geo($allresdata[$ord]);
$puntimappa.=&puntomappaeventi($allresdata[$ord]);
}
}
$headextrajs=qq~
~;
$onload="javascript:body_onload();";
$tabella.='
';
&stampa;
}
sub distanza_gps
{
($lat1,$lng1,$lat2,$lng2)=$_;
$lat1=$_[0];
$lng1=$_[1];
$lat2=$_[2];
$lng2=$_[3];
$radians=180/3.14159265;
if($lat1==$lat2 and $lng1==$lng2)
{ return 0; }
$lt1=$lat1/$radians;
$lg1=$lng1/$radians;
$lt2=$lat2/$radians;
$lg2=$lng2/$radians;
$miles=3959*&acos(sin($lt1)*sin($lt2)+cos($lt1)*cos($lt2)*cos($lg2-$lg1));
$km=$miles*1.60934721869;
return $km;
}
sub acos { atan2( sqrt(1 - $_[0] * $_[0]), $_[0] ) }
## per gli spazi
sub vesti7geo
{
($id,$ina,$fine,$img,$imgb,$citta,$via,$spazio,$titolo,$sotto,$mappa,$dist,$sid)=split '\|\+\|',$_[0];
$km=int($dist*1000);
$dist=$km/1000;
if($dist<1) { $dist=($dist*1000).' metri'; }
else{ $dist.=' km'; }
$eventi='';$tz=0;
foreach $eid (reverse split(/;/,$allevspaz[$sid]))
{
$tz++;
if($tz<6)
{
($xxeid,$xxsid,$ctitolo,$csotto,$dins,$ina,$fine)=split '\|\+\|',$allevdat[$eid];
if($ina<=$inizio_oggi and $fine>=$inizio_oggi)
{
$ex='evento in corso';
}
else { $ex='' }
$ina=&dammiggmmaa($ina);
$fine=&dammiggmmaa($fine);
if($csotto) { $csotto="$csotto "; }
$eventi.=qq~
$ctitolo
dal $ina al $fine $ex
$csotto ~;
}
}
my $tabellavesti=qq~
$citta, $via distanza $dist
$stampadata
$spazio
$eventi
~;
return $tabellavesti;
}
## per gli eventi
sub vesti6geo
{
($id,$ina,$fine,$img,$imgb,$citta,$via,$spazio,$titolo,$sotto,$mappa,$dist,$sid)=split '\|\+\|',$_[0];
($w,$h)=imgsize("$filepath$imgb");
$km=int($dist*1000);
$dist=$km/1000;
if($dist<1) { $dist=($dist*1000).' metri'; }
else{ $dist.=' km'; }
if($w and $h){$img=qq~~}
else{$img='';}
$ina=&dammiggmmaa($ina);
$fine=&dammiggmmaa($fine);
$stampadata=qq~dal $ina al $fine~;
my $tabellavesti=qq~
',
closeID:'close'
}
});
map1.pointAdder(point$id);
~;
$eventi='';
$tz=0;
return $punti;
}
sub search
{
if($citta and $spazio)
{
$c=$citta;$c=~s/\'/\\\'/g;
$s=$spazio;$s=~s/\'/\\\'/g;
$query=" Spazi.citta='$c' and Spazi.nome='$s' ";
$sel=$db->query("select Spazi.id
from Spazi
where $query
and Spazi.pubblico=1
");
($idsede)=$sel->fetchrow;
if($idsede)
{
#print "location: http://www.undo.net/it/sede/".$idsede."\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/sede/".$idsede,-status=>301);
exit;
}
}
#print "location: http://www.undo.net/it/search.php?q=".$artista."\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/search.php?q=".$artista,-status=>301);
exit;
if(!$mm and !$gg and !$aa and !$citta and !$spazio and !$nazione and !$artista and !$semplice)
{
$tabella=qq~
RICERCA
Devi scegliere almeno un criterio di ricerca
~;
&stampa;
}
if(($artista and length($artista)<4)or($semplice and length($semplice)<4))
{
$tabella=qq~
RICERCA
Devi usare almeno 4 caratteri per la tua ricerca
~;
&stampa;
}
if($semplice)
{
$inix=time();
$finx=time();
$artista=$semplice;
}
else
{
$inizio_oggi='';
$aa=$q->param('aa');
$mm=$q->param('mm');
$gg=$q->param('gg');
if(!$aa){$aa='1999';$aa_b='2010'; $stampaaa="$aa".'-'."$aa_b"}
else{$aa_b=$aa; $stampaaa=$aa}
#if(($mm eq 'tutti')or($mm eq 'all'))
if(!$mm)
{
$gg=1;
$mm=0;
$inix=timelocal(0,0,0,$gg,$mm,$aa);
$gg=31;
$mm=11;
$finx=timelocal(0,0,0,$gg,$mm,$aa_b);
}
#elsif(($gg eq 'tutti')or($gg eq 'all'))
elsif(!$gg)
{
$mm--;
$gg=1;
$inix=timelocal(0,0,0,$gg,$mm,$aa);
if($mm==1){$gg=28;}
elsif($mm==3 or $mm==5 or $mm==8 or $mm==10){$gg=30;}
else{$gg=31;}
$finx=timelocal(0,0,0,$gg,$mm,$aa_b);
}
else
{
$mm--;
$inix=timelocal(0,0,0,$gg,$mm,$aa);
$finx=timelocal(0,0,0,$gg,$mm,$aa_b);
}
}
$cittaq=$citta;$artistaq=$artista;$spazioq=$spazio;$nazioneq=$nazione;
$cittaq=~s/\'/\\\'/g;
$artistaq=~s/\'/\\\'/g;
$spazioq=~s/\'/\\\'/g;
$nazioneq=~s/\'/\\\'/g;
if($action2 eq 'preferiti')
{
$selprov=$db->query("select sigla,esteso from province where sigla='$citta'");
($sigla,$citta)=$selprov->fetchrow;
$cittaq=$citta; $cittaq=~s/\'/\\'/g;
$query.=qq~and (Spazi.citta like '%$cittaq%' or Spazi.citta like '%($sigla)%') ~ if($citta);
$squery.=qq~and (Spazi.citta like '%$cittaq%' or Spazi.citta like '%($sigla)%') ~ if($citta);
}
elsif(!$semplice)
{
$query.=qq~and Spazi.citta like '%$cittaq%' ~ if($citta);
$squery.=qq~and Spazi.citta like '%$cittaq%' ~ if($citta);
}
$query.=qq~and Spazi.nazione like '%$nazioneq%' ~ if($nazione);
$squery.=qq~and Spazi.nazione like '%$nazioneq%' ~ if($nazione);
if(!$semplice)
{
$query.=qq~and (Comunicati.titolo like '%$artistaq%' or Comunicati.testo like '%$artistaq%' or Comunicati.sinossi like '%$artistaq%') ~ if($artista);
$squery.=qq~and Comunicati.titolo like '%$artistaq%' or Comunicati.sinossi like '%$artistaq%' ~ if($artista);
$ordine='bridgeEventiCalendario.al';
}
else
{
$prequery=",match(Spazi.nome, Spazi.citta, Comunicati.titolo, Comunicati.sottotitolo, Comunicati.sinossi, Eventi.artisti, Eventi.critici) against ('".$artistaq."' in boolean mode) as score";
$query="match(Spazi.nome, Spazi.citta, Comunicati.titolo, Comunicati.sottotitolo, Comunicati.sinossi, Eventi.artisti, Eventi.critici) against ('".$artistaq."' in boolean mode)";
$ordine='score';
}
$query.=qq~and Spazi.nome like '%$spazioq%' ~ if($spazio);
$squery.=qq~and Spazi.nome like '%$spazioq%' ~ if($spazio);
#$query.=qq~and ina>=$inix and ina<=$finx ~ if($inix and $finx);
if(!$semplice)
{
$query.=qq~and ((bridgeEventiCalendario.dal>=$inix and bridgeEventiCalendario.dal<=$finx) or (bridgeEventiCalendario.al>=$inix and bridgeEventiCalendario.al<=$finx)) ~ if($inix and $finx);
$squery.=qq~and ((bridgeEventiCalendario.dal>=$inix and bridgeEventiCalendario.dal<=$finx) or (bridgeEventiCalendario.al>=$inix and bridgeEventiCalendario.al<=$finx)) ~ if($inix and $finx);
}
else
{
#$query.=qq~ and bridgeEventiCalendario.dal<=$inix and bridgeEventiCalendario.al>=$inix ~;
$query.=qq~ and bridgeEventiCalendario.al>=$inix ~;
}
#$query=qq~citta like '%$cittaq%' and nazione like '%$nazioneq%' and (titolo like '%$artistaq%' or testo like '%$artistaq%' or titoloing like '%$artistaq%' or testoing like '%$artistaq%') and spazio like '%$spazioq%' and ina>=$inix and ina<=$finx~;
$query=~s/^and//;
$squery=~s/^and//;
# $sel=$db->query("select id,ina,fine,citta,nazione,titolo,firma,spazio,img,sinossi,artisti,sett,imgb,titoloing,sinossiing,sottotitolo,sottotitoloing from pressrelease where ".$query." order by ina desc");
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Eventi.firma,Spazi.nome,Eventi.id,Comunicati.sinossi,Eventi.artisti,Eventi.sett
$prequery
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $query and Eventi.pubblico=1 and Eventi.pressrelease=1 group by Eventi.id
order by $ordine desc");
$tottrovati=$sel->numrows;
#if(!$spazio){$spazio='-'}
#if(!$artista){$artista='-'}
#if(!$nazione){$nazione='-'}
#if(!$citta){$citta='-'}
#if(!$gg){$gg='-'}
#if(!$mm){$mm='-'}
#if(!$aa){$aa='-'}
$staartista=qq~Ricerca: $artista ~ if($artista);
$staspazio=qq~Spazio: $spazio ~ if($spazio);
$stanazione=qq~Nazione: $nazione ~ if($nazione);
$stacitta=qq~Città: $citta ~ if($citta);
$stagg=qq~Giorno: ~.$q->param('gg').qq~ ~ if($q->param('gg'));
$stamm=qq~Mese: ~.$mesi[$q->param('mm')].qq~ ~ if($mesi[$q->param('mm')]);
$staaa=qq~Anno: $stampaaa ~ if($stampaaa);
if($tottrovati==0 and $semplice)
{
$msgerr='
~;
if((($artista eq '-') and $citta and $spazio and $fromscheda==1)or($action2 eq 'spazio'))
{
$sel2=$db->query("select id,nazione,via,fax,tel,email,www from pressrelease where citta='$cittaq' and spazio='$spazioq' order by id desc limit 1");
if(@sce=$sel2->fetchrow)
{
if($sce[3]){$sce[3]=qq~fax $sce[3] ~;}
if($sce[4]){$sce[4]=qq~tel $sce[4] ~;}
if($sce[5]){$sce[5]=qq~$sce[5]~;}
if($sce[6]){if($sce[6]!~/^http/){$sce[6]='http://'.$sce[6]}$sce[6]=qq~$sce[6]~;}
$tabella.=qq~
~ if($fromscheda);
&stampa;
}
sub incorso
{
#print "location: http://www.undo.net/it/?eventi=incorso\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/?eventi=incorso",-status=>301);
exit;
$nazione=$q->param('nazione');
$nazione=~s/=$inizio_oggi and citta like '%$c%' ";
$queryseg=" bridgeEventiCalendario.al>=$inizio_oggi and citta like '%$c%' ";
}
elsif(!$r and !$n)
{
$query=" bridgeEventiCalendario.dal<=$inizio_oggi and bridgeEventiCalendario.al>=$inizio_oggi and citta='$c' ";
$queryseg=" bridgeEventiCalendario.dal<=$inizio_oggi and bridgeEventiCalendario.al>=$inizio_oggi and citta='$c' ";
$sel=$db->query("select nazione from Spazi where citta='$c' limit 1");
$naacii=$sel->fetchrow;
if($naacii eq 'Italia')
{
$tabericgeo=qq~
~;
}
}
elsif($n)
{
$query=" bridgeEventiCalendario.dal<=$inizio_oggi and bridgeEventiCalendario.al>=$inizio_oggi and nazione='$n' ";
$queryseg=" bridgeEventiCalendario.dal<=$inizio_oggi and bridgeEventiCalendario.al>=$inizio_oggi and nazione='$n' ";
}
else
{
$query=" bridgeEventiCalendario.dal<=$inizio_oggi and bridgeEventiCalendario.al>=$inizio_oggi and regione='$r' ";
$queryseg=" bridgeEventiCalendario.dal<=$inizio_oggi and bridgeEventiCalendario.al>=$inizio_oggi and regione='$r' ";
}
#$sel=$db->query("select id,ina,fine,citta,nazione,titolo,firma,spazio,img,sinossi,artisti,sett,imgb,titoloing,sinossiing from pressrelease where ".$query." order by fine");
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Eventi.firma,Spazi.nome,Eventi.id,Comunicati.sinossi,Eventi.artisti,Eventi.sett
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $query and Comunicati.testo!='' and Eventi.pubblico=1 and Eventi.pressrelease=1
group by Eventi.id
order by bridgeEventiCalendario.dal desc,Eventi.priorita desc");
$tottrovati=$sel->numrows;
$tabella=qq~
EVENTI IN CORSO : $regione$citta$nazione : $tottrovati
';
#$sel=$db->query("select id,titolo,spazio,citta,via,fine,orario,email,www,descrizione,tel from segnalazioni where $queryseg order by priorita desc");
$sel=$db->query("select Eventi.datainserimento,Comunicati.titolo,Spazi.nome,Spazi.citta,Spazi.via,bridgeEventiCalendario.al,
Eventi.orari,Spazi.www,Spazi.email,Comunicati.sinossi,Eventi.tel,Eventi.www as wwweven, Eventi.email as emaileven
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $queryseg and Comunicati.testo='' and Eventi.pubblico=1 and Eventi.pressrelease=1
group by Eventi.id
order by Eventi.priorita desc");
while(@d=$sel->fetchrow)
{
if($d[10]!~/tel/i and $d[10])
{
$d[10]='- tel. '.$d[10]
}
elsif($d[10]=~/tel/)
{
$d[10]='- '.$d[10];
}
$d[10]=~s/-$//;
$d[4]=~s/-$//;
$d[6].=' - ' if($d[6]!~/-$/);
if($d[12]) { $d[7]=$d[12]; }
if($d[11]) { $d[8]=$d[11]; }
if($d[7]){$d[7]=qq~$d[7] ~}
if($d[8])
{
if($d[8]!~/^http/i){$d[8]='http://'.$d[8]}
$d[8]=qq~$d[8]~
}
$jjjk='';
$d[9].=' ' if($d[9]);
$jjjk=qq~, fino al ~.&dammiggmmaa($d[5]) if($d[5] ne $inizio_oggi);
$sega.=qq~
versione stampabile ~;
&stampa;
}
sub europauffici
{
$view='ufficiparlamento2';
open FILE,'./html/'.$view.$l.'.html';
@file=;
close FILE;
$ffile=join '',@file;
$tabella.=qq~$ffile~;
&stampa;
}
sub europaricerca
{
$duemilauno=timelocal(0,0,0,1,0,2001);
$duemiladue=timelocal(0,0,0,1,0,2002);
$duemilatre=timelocal(0,0,0,1,0,2003);
$duemilaquattro=timelocal(0,0,0,1,0,2004);
$duemilacinque=timelocal(0,0,0,1,0,2005);
$duemilasei=timelocal(0,0,0,1,0,2006);
if($aa eq '2006')
{ $query="Eventi.sett=666 and bridgeEventiCalendario.dal>$duemilasei"; }
elsif($aa eq '2005')
{ $query="Eventi.sett=666 and bridgeEventiCalendario.dal>$duemilacinque and bridgeEventiCalendario.dal<$duemilasei"; }
elsif($aa eq '2004')
{ $query="Eventi.sett=666 and bridgeEventiCalendario.dal>$duemilaquattro and bridgeEventiCalendario.dal<$duemilacinque"; }
elsif($aa eq '2003')
{ $query="Eventi.sett=666 and bridgeEventiCalendario.dal>$duemilatre and bridgeEventiCalendario.dal<$duemilaquattro"; }
elsif($aa eq '2002')
{ $query="Eventi.sett=666 and bridgeEventiCalendario.dal>$duemiladue and bridgeEventiCalendario.dal<$duemilatre"; }
elsif($aa eq '2001')
{ $query="Eventi.sett=666 and bridgeEventiCalendario.dal<$duemiladue"; }
else { $query="Eventi.sett=666" }
#$sel=$db->query("select id,ina,fine,citta,nazione,titolo,firma,spazio,img,sinossi,artisti,sett,imgb,titoloing,sinossiing from pressrelease where ".$query." order by ina desc");
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Eventi.firma,Spazi.nome,Eventi.id,Comunicati.sottotitolo,Eventi.artisti,Eventi.sett
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $query and Comunicati.testo!=''
group by Eventi.id
order by bridgeEventiCalendario.dal desc");
$tottrovati=$sel->numrows;
$aa=" : ".$aa if($aa);
$tabella=qq~
';
&stampa;
}
sub telecomricerca
{
$duemilauno=timelocal(0,0,0,1,0,2001);
$duemiladue=timelocal(0,0,0,1,0,2002);
$duemilatre=timelocal(0,0,0,1,0,2003);
$duemilaquattro=timelocal(0,0,0,1,0,2004);
$duemilacinque=timelocal(0,0,0,1,0,2005);
$duemilasei=timelocal(0,0,0,1,0,2006);
if($aa eq '2006')
{ $query="Eventi.sett=667 and bridgeEventiCalendario.dal>=$duemilasei"; }
if($aa eq '2005')
{ $query="Eventi.sett=667 and bridgeEventiCalendario.dal>=$duemilacinque and bridgeEventiCalendario.dal<$duemilasei"; }
elsif($aa eq '2004')
{ $query="Eventi.sett=667 bridgeEventiCalendario.dal ina>$duemilaquattro and bridgeEventiCalendario.dal<$duemilacinque"; }
elsif($aa eq '2003')
{ $query="Eventi.sett=667 and bridgeEventiCalendario.dal>$duemilatre and bridgeEventiCalendario.dal<$duemilaquattro"; }
elsif($aa eq '2002')
{ $query="Eventi.sett=667 and bridgeEventiCalendario.dal>$duemiladue and bridgeEventiCalendario.dal<$duemilatre"; }
elsif($aa eq '2001')
{ $query="Eventi.sett=667 and bridgeEventiCalendario.dal<$duemiladue"; }
else { $query="Eventi.sett=667" }
#$sel=$db->query("select id,ina,fine,citta,nazione,titolo,firma,spazio,img,sottotitolo,artisti,sett,imgb,titoloing,sinossiing from pressrelease where ".$query." order by ina desc");
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Eventi.firma,Spazi.nome,Eventi.id,Comunicati.sottotitolo,Eventi.artisti,Eventi.sett
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $query and Comunicati.testo!=''
group by Eventi.id
order by bridgeEventiCalendario.dal desc");
$tottrovati=$sel->numrows;
$aa=" : ".$aa if($aa);
$tabella=qq~
PROGETTO ITALIA. UN CONTRIBUTO ALLA CRESCITA DEL PAESE
';
&stampa;
}
sub elaborasinossi
{
my $sinossi=$_[0];
@ww=split /\./,$sinossi;
if((length $ww[0])>80)
{
@vv=split /,/,$sinossi;
if((length $vv[0])<20)
{
$sinossi=$vv[0].','.$vv[1].',...';
}
else
{
$sinossi=$vv[0].',...';
}
if((length $sinossi)>80)
{
@ss=split / /,$sinossi;
$sinossi='';
for(0..9)
{
$sinossi.=$ss[$_].' ';
}
$sinossi.='...';
}
}
else { $sinossi=$ww[0].'.'; }
return $sinossi;
}
sub searchartista
{
$artista=$q->param('artista');
$artista=~s/redirect(-uri=>"http://www.undo.net/it/persone/".$artista,-status=>301);
exit;
$artista=$q->param('artista');
$artista=~s/query("select id,ina,fine,citta,nazione,titolo,firma,spazio,img,sinossi,artisti,sett,imgb,titoloing,sinossiing from pressrelease where ".$query." order by ina desc");
$ll="select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Eventi.firma,Spazi.nome,Eventi.id,Comunicati.sinossi,Eventi.artisti,Eventi.sett
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $query and Eventi.pubblico=1 and Eventi.pressrelease=1 group by Eventi.id
order by bridgeEventiCalendario.al desc";
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Eventi.firma,Spazi.nome,Eventi.id,Comunicati.sinossi,Eventi.artisti,Eventi.sett
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $query and Eventi.pubblico=1 and Eventi.pressrelease=1 group by Eventi.id
order by bridgeEventiCalendario.al desc");
$tottrovati=$sel->numrows;
$head=qq~$artista - Pressrelease
~;
$tabella=qq~
';
&stampa;
}
sub searchcritico
{
$critico=$q->param('critico');
$critico=~s/redirect(-uri=>"http://www.undo.net/it/persone/".$critico,-status=>301);
exit;
$critico=$q->param('critico');
$critico=~s/query("select id,ina,fine,citta,nazione,titolo,firma,spazio,img,sinossi,artisti,sett,imgb,titoloing,sinossiing from pressrelease where ".$query." order by ina desc");
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Eventi.firma,Spazi.nome,Eventi.id,Comunicati.sinossi,Eventi.artisti,Eventi.sett
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $query and Eventi.pubblico=1 and Eventi.pressrelease=1 group by Eventi.id
order by bridgeEventiCalendario.al desc");
$tottrovati=$sel->numrows;
$tabella=qq~
';
&stampa;
}
sub searchfirma
{
$firma=$q->param('firma');
$firma=~s/redirect(-uri=>"http://www.undo.net/it/segnalatoda/".$firma,-status=>301);
exit;
$firmaq=$firma; $firmaq=~s/\'/\\\'/g;
$query="Eventi.firma='$firmaq'";
#$sel=$db->query("select id,ina,fine,citta,nazione,titolo,firma,spazio,img,sinossi,artisti,sett,imgb,titoloing,sinossiing from pressrelease where ".$query." order by ina desc");
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Eventi.firma,Spazi.nome,Eventi.id,Comunicati.sinossi,Eventi.artisti,Eventi.sett
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $query and Eventi.pubblico=1 and Eventi.pressrelease=1 group by Eventi.id
order by bridgeEventiCalendario.al desc");
$tottrovati=$sel->numrows;
$tabella=qq~
';
&stampa;
}
sub segnalatori
{
if(!$lettera)
{
$extrat=qq~Pressrelease riceve e diffonde quotidianamente i comunicati stampa inviati da uffici stampa, musei, gallerie, fondazioni, associazioni, festival, curatori e artisti.
In queste pagine UnDo.net ha raccolto tutti i nomi di coloro che si occupano della comunicazione degli eventi culturali e che contribuiscono a far conoscere le innumerevoli iniziative che costituiscono la cultura contemporanea.
Partendo da questo indice puoi navigare tutti i comunicati stampa che ognuno di loro ha inviato a Pressrelease.
';
&stampa;
}
sub directoryartisti
{
if(!$lettera and !$cerca)
{
$extrat=qq~Indice alfabetico di tutti gli artisti e gli autori che hanno preso parte alle iniziative segnalate da Pressrelease.
~;
$extrat2=qq~Partendo da questo indice puoi navigare i comunicati stampa relativi a ogni autore:
~;
}
$tabella=qq~
ARTISTI E AUTORI
~;
if($lettera or $cerca)
{
$tabella.=qq~
~;
if($lettera)
{
$sel=$db->query("select distinct artisti from Eventi where artisti!='' and datainserimento>976809378");
}
elsif($cerca)
{
$cercaq=$cerca;$cercaq=~s/\'/\\\'/g;
$sel=$db->query("select artisti from Eventi where artisti like '%$cercaq%'");
}
while($artisti=$sel->fetchrow)
{
@aaa=split /\n/,$artisti;
foreach $j (@aaa)
{
if($cerca)
{
if($j=~/$cerca/i)
{}
else{next}
}
$j=~s/\n//g;
$j=~s/\r//g;
$j=~s/\t//g;
$j=~s/^ //;
$j=~s/ $//;
$jj=$j;
$j=~s/,//;
$j=~tr/a-z/A-Z/;
@d=split / /,$j;
$d[1].=' ' if($d[1]);
$d[2].=' ' if($d[2]);
$d[3].=' ' if($d[3]);
$n=$d[1].$d[2].$d[3].$d[0];
$tuttigliartisti{$n}=$jj;
}
}
$inc=110;
$c=0;
if(!$start){$start=0}
foreach $artista (sort keys %tuttigliartisti)
{
if($artista=~/^$lettera/)
{
$artistaq=$tuttigliartisti{$artista};
$artistaq=~s/ /+/g;
$artistaq=~s/\&/%26/g;
$artistaq=~s/\+$//g;
if(($c<($start+$inc))and($c>=$start))
{
$tabella.=qq~$artista ~;
}
$c++;
}
#if($c>($start+$inc)) { last }
}
if($c==0)
{
$tabella.=qq~Nessun artista trovato~;
}
$pagattuale=($start/$inc)+1;
$totpag=int ($c/$inc)+1;
$snav.=qq~
pagina $pagattuale di $totpag ~;
if(($start-$inc)>=0)
{ $snav.=qq~< ~; }
if($c>($start+$inc))
{ $snav.=qq~>~; }
$snav.=qq~
';
&stampa;
}
sub directorycritici
{
if(!$lettera and !$cerca)
{
$extrat=qq~Indice alfabetico di tutti coloro che hanno partecipato con il ruolo di curatori, teorici o critici alle iniziative segnalate da Pressrelease.
~;
$extrat2=qq~Partendo da questo indice puoi navigare i comunicati stampa relativi a ogni nome:
'}
elsif(($nazione ne 'Italia')and $citta)
{ $testa=qq~
nazione
citta
spazio
~; }
elsif($nazione eq 'Italia')
{ $testa=qq~
nazione
regione
~; }
elsif($nazione)
{ $testa=qq~
nazione
citta
~; }
else{ $testa=qq~
nazione
~; $extrat=qq~
Pressrelease riceve e diffonde quotidianamente i comunicati stampa di iniziative che si svolgono in territori molto diversi. Contesti internazionali e locali che, comunicando attraverso la rete, entrano a far parte di una mappa ideale della cultura contemporanea.
Pressrelease e' uno spazio online in cui iniziative che si svolgono in luoghi geograficamente distanti tra loro creano un territorio comune.
Da questo indice puoi navigare tutti i comunicati stampa partendo dalla dislocazione geografica degli spazi espositivi in cui si sono svolti gli eventi.
~;}
#'
$tabella=qq~
SPAZI ESPOSITIVI
$extrat
$testa
$acc
~;
if($nazione and $regione)
{
}
else
{
if($nazione ne 'Italia')
{ $tabella.=qq~Italia ~; }
else
{ $tabella.=qq~Italia ~; }
$sel=$db->query("select nazione from Spazi where nazione!='Italia' and nazione!='' and pressrelease=1 and pubblico=1 group by nazione order by nazione");
while($naz=$sel->fetchrow)
{
$nazq=$naz;$nazq=~s/ /+/g;
if($naz eq $nazione)
{ $tabella.=qq~$naz ~; }
else
{ $tabella.=qq~$naz ~; }
}
$tabella.=qq~
~;
}
if($nazione and ($nazione ne 'Italia'))
{
$nazioneq=$nazione; $nazioneq=~s/ /+/g;
$nazioneqq=$nazione; $nazioneqq=~s/\'/\\\'/g;
$tabella.=qq~
~;
$sel=$db->query("select citta from Spazi where nazione='$nazioneqq' and nome!='' and citta!='' and pressrelease=1 and pubblico=1 group by citta order by citta");
while(($cit,$reg)=$sel->fetchrow)
{
$citq=$cit; $citq=~s/ /+/g;
if($cit eq $citta)
{
$tabella.=qq~$cit ~;
}
else
{
$tabella.=qq~$cit ~;
}
}
$tabella.=qq~
~ if(!$regione);
$sel=$db->query("select distinct regione from Spazi where regione!='' and regione!='NULL' and pressrelease=1 and pubblico=1 group by regione order by regione");
while($regi=$sel->fetchrow)
{
$regioneq=$regi;$regioneq=~s/ /+/g;
$regia=$regi;$regia=~s/Friuli Venezia Giulia/Friuli/;$regia=~s/Trentino Alto Adige/Trentino/g;
if($regioneq ne $regipre)
{
if($regi eq $regione)
{
$tabella.=qq~$regia ~;
}
else
{
$tabella.=qq~$regia ~;
}
}
$regipre=$regioneq;
}
$tabella.=qq~
~;
#$sel=$db->query("select distinct citta from Spazi where nazione='$nazione' and regione='$regioneqq' and nome!='' and citta!='' order by citta");
#$sel=$db->query("select Spazi.citta from Spazi
#left join bridgeEventiSpazi on bridgeEventiSpazi.fkspazio=Spazi.id
#left join Eventi on Eventi.id=bridgeEventiSpazi.fkevento
#where Spazi.nazione='$nazione' and Spazi.regione='$regioneqq' and Spazi.nome!='' and Spazi.citta!='' and Eventi.permanente=0
#group by Spazi.citta
#order by Spazi.citta");
$sel=$db->query("select Spazi.citta from Eventi
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join Spazi on Spazi.id=bridgeEventiSpazi.fkspazio
where Spazi.nazione='$nazione' and Spazi.regione='$regioneqq' and Spazi.nome!='' and Spazi.citta!='' and Eventi.permanente=0 and Eventi.pressrelease=1 and Spazi.pubblico=1
group by Spazi.citta
order by Spazi.citta");
while($cit=$sel->fetchrow)
{
$citq=$cit; $citq=~s/ /+/g;
$cita=$cit;($cita,$t)=split /\(/,$cita;
if($cit eq $citta)
{
$tabella.=qq~$cita ~;
}
else
{
$tabella.=qq~$cita ~;
}
}
$tabella.=qq~
~;
$sel=$db->query("select nome from Spazi where citta='$cittaqq' and nazione='$nazioneqq' and nome!='' and pressrelease=1 and pubblico=1 $extque group by nome order by nome");
while($spazio=$sel->fetchrow)
{
$spazioq=$spazio;$spazioq=~s/ /+/g;$spazioq=~s/\&/%26/g;
$tabella.=qq~$spazio ~;
}
$tabella.=qq~
~;
}
$tabella.=qq~
~;
$tabella.='
';
&stampa;
}
sub view
{
#print "location: http://www.undo.net/it/\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/",-status=>301);
exit;
#$sel=$db->query("select id,ina,fine,citta,nazione,titolo,firma,spazio,img,sinossi,artisti,sett,imgb,sottotitolo from pressrelease where ina=$inizio_oggi and nazione='Italia' order by priorita desc");
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Eventi.firma,Spazi.nome,Eventi.id,Comunicati.sinossi,Eventi.artisti,Eventi.sett,Eventi.id,Comunicati.sottotitolo from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where bridgeEventiCalendario.dal=$inizio_oggi and Spazi.nazione='Italia' and Comunicati.testo!='' and Eventi.pubblico=1 and Eventi.pressrelease=1
group by Eventi.id
order by Eventi.priorita desc");
while(($id,$ina,$fine,$citta,$nazione,$titolo,$firma,$spazio,$img,$sinossi,$artisti,$sett,$imgb,$sottotitolo)=$sel->fetchrow)
{
#$sinossi=substr $sinossi,0,60;
if(!$sottotitolo) { $sinossi=&elaborasinossi($sinossi); }
else { $sinossi=$sottotitolo }
$imgb=$id.'b.jpg';
$img=$id.'.jpg';
$tabella.=&vesti4;
$checkitalia=1;
#@n=split /\n/,$artisti;
#foreach $nn (@n)
#{
#$nn=~s/\n//g;
#$nn=~s/\r//g;
#$nn=~s/\'/\\'/g;
#$sex=$db->query("select nome from navigator where nome='$nn' and nome!=''");
#if($sex->fetchrow)
#{
#$nnurl=$nn; $nnurl=~s/ /+/g; $nnurl=~s/\&/%26/g;
#$nnurl=~s/\\\'/\'/g;
#$approfondimenti.=qq~
#
~;
}
#$sel=$db->query("select id,ina,fine,citta,nazione,titolo,spazio,img,titoloing,sinossiing,artisti,sett,imgb,sottotitoloing from pressrelease where ina=$inizio_oggi and nazione!='Italia' order by priorita desc");
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Spazi.nome,Eventi.id,Comunicati.titolo,Comunicati.sinossi,Eventi.artisti,Eventi.sett,Eventi.id,Comunicati.sottotitolo from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where bridgeEventiCalendario.dal=$inizio_oggi and Spazi.nazione!='Italia' and Comunicati.testo!='' and Eventi.pubblico=1 and Eventi.pressrelease=1
group by Eventi.id
order by Eventi.priorita desc");
while(($id,$ina,$fine,$citta,$nazione,$titolo,$spazio,$img,$titoloing,$sinossiing,$artisti,$sett,$imgb,$sottotitoloing)=$sel->fetchrow)
{
$imgb=$id.'b.jpg';
$img=$id.'.jpg';
if($titoloing and !$titolo){$titolo=$titoloing}
if($sinossiing){$sinossi=$sinossiing}
#$sinossi=substr $sinossi,0,60;
if(!$sottotitoloing){ $sinossi=&elaborasinossi($sinossi); }
else{$sinossi=$sottotitoloing}
$tabellaestero.=&vesti4;
$checkestero=1;
# @n=split /\n/,$artisti;
#foreach $nn (@n)
#{
#$nn=~s/\n//g;
#$nn=~s/\r//g;
#$nn=~s/\'/\\'/g;
#$sex=$db->query("select nome from navigator where nome='$nn' and nome!=''");
#if($sex->fetchrow)
#{
#$nnurl=$nn; $nnurl=~s/ /+/g; $nnurl=~s/\&/%26/g;
#$nnurl=~s/\\\'/\'/g;
#$approfondimenti.=qq~
#
~;
&stampa;
}
sub interna
{
$sel="select Eventi.id,Eventi.cate
from Eventi
where
Eventi.datainserimento=".$id;
$res=$db->query($sel);
@lecate=("evento","mostra","conferenza","presentazione","evento","bando");
($evid,$evcate)=$res->fetchrow;
if($evid)
{
#print "location: http://www.undo.net/it/".$lecate[$evcate]."/".$evid."\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/".$lecate[$evcate]."/".$evid,-status=>301);
exit;
}
#$sel=$db->query("select * from pressrelease where id=$id");
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,
Comunicati.sottotitolo,Comunicati.testo, Eventi.firma,Spazi.nome,Eventi.www,Eventi.email,Comunicati.sinossi, Eventi.priorita, Eventi.cate, Eventi.sett,
Comunicati.link,Eventi.artisti,Eventi.critici, Spazi.regione, Spazi.via, Eventi.tel, Eventi.fax, Spazi.tel, Spazi.fax, Comunicati.dataaggiornamento,
Spazi.www, Spazi.email, Eventi.id, Spazi.id as idspazio, Eventi.orari
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where Eventi.datainserimento=$id and Eventi.pubblico=1 and Eventi.pressrelease=1
group by Eventi.id
order by Eventi.priorita desc");
($realid,$ina,$fine,$citta,$nazione,$titolo,$sottotitolo,$testo,$firma,$spazio,$www,$email,
$sinossi,$priorita,$cate,$sett,$link,$artisti,$critici,$regione,$via,
$tel,$fax,$sptel,$spfax,$dataagg,$spwww,$spemail,$newid,$spazioid,$orari)=$sel->fetchrow;
if(!$ina)
{
$tabella.='La pagina non e\' piu\' presente';
&stampa;
}
## cerco il sucessivo e il precedente
# se e' italia e ha il comunicato
if($nazione=='Italia' and $testo)
{
$querna="and Spazi.nazione='Italia' and Comunicati.testo!=''";
}
elsif($nazione!='Italia' and $testo)
{
$querna="and Spazi.nazione!='Italia' and Comunicati.testo!=''";
}
else
{
$querna="and Comunicati.testo=''";
}
$sel=$db->query("select Eventi.datainserimento from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where bridgeEventiCalendario.dal=$ina $querna and Eventi.pubblico=1 and Eventi.pressrelease=1
group by Eventi.id
order by Eventi.priorita desc,Eventi.datainserimento");
$tt=0;
while(($i)=$sel->fetchrow)
{
$chkavadie[$tt]=$i;
if($i==$id) { $posi=$tt }
$tt++;
}
$okprec=$chkavadie[$posi-1];
if(!$okprec) { $okprec=$chkavadie[$tt-1]; }
$oksuc=$chkavadie[$posi+1];
if(!$oksuc) { $oksuc=$chkavadie[0]; }
if(!$testo) { $testo=$sinossi; }
elsif($testo!~/ /) { $testo=~s/^\n//; $testo=~s/^$sottotitolo//; $testo=''.$sottotitolo."\n\n".$testo; }
elsif($testo=~/ /) { $testo=~s/^\n//; $testo=~s/^$sottotitolo//; $testo=''.$sottotitolo."
~;
$chekappro=1;
# }
}
if ($chekappro)
{
$approfondimenti=qq~
APPROFONDIMENTI
$approfondimenti
~;
}
$cittaq=$citta;$cittaq=~s/ /+/g;
$spazioqq=$spazio;
#$spazioqq=~s/\'/\\\'/g;
$spazioqq=~s/ /+/g;
$cittaqq=$cittaq;
#$cittaqq=~s/\'/\\\'/g;
$toolsgiallotitolo=qq~$spazio :~;
$toolsgiallo=qq~ Altri comunicati in archivio
~;
if($sett eq '666')
{
$toolsgiallo.=qq~
Vuoi essere avvisato sui
prossimi eventi del Parlamento Europeo ?
~;
}
else
{
$toolsgiallo.=qq~
Vuoi essere avvisato sui
prossimi eventi di questo spazio?
~;
$spazioavvisami=qq~
LINEA DIRETTA
~;
#'
}
$periodo="dal ".&dammiggmmaa($ina)." al ".&dammiggmmaa($fine);
$tabella=qq~
~;
#'
#$sel=$db->query("select * from pressrelease where id=$idprint");
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,Spazi.citta,Spazi.nazione,Comunicati.titolo,
Comunicati.testo, Eventi.firma,Eventi.www,Eventi.email,bridgeEventiCalendario.al,Spazi.nome,
Spazi.via, Eventi.tel, Eventi.fax, Spazi.tel, Spazi.fax, Spazi.www, Spazi.email
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where Eventi.datainserimento=$idprint
group by Eventi.id
order by Eventi.priorita desc");
($id,$ina,$citta,$nazione,$titolo,$testo,$firma,$www,$email,$fine,$spazio,
$via, $tel,$fax,$stel,$sfax,$swww,$semail)=$sel->fetchrow;
if($titoloing){$titolo=$titoloing}
if($testoing){$testo=$testoing}
if(!$tel){$tel=$stel;}
if(!$fax){$fax=$sfax;}
if(!$www){$www=$swww;}
if(!$email){$email=$semail;}
if($testo!~/ /)
{
$testo=~s/\n/ \n/g;
}
$www=~s/http:\/\///i;
print qq~$citta, $nazione - dal ~.&dammiggmmaa($ina).qq~ al ~.&dammiggmmaa($fine).qq~ $titolo
$spazio $via ~;
print qq~tel $tel~ if($tel);
print qq~fax $fax~ if($fax);
print qq~
$email $www
$testo
$firma ~;
print qq~~;
}
elsif($citta and $spazio)
{
$c=$citta;$c=~s/\'/\\\'/g;
$s=$spazio;$s=~s/\'/\\\'/g;
$query=" Spazi.citta='$c' and Spazi.nome='$s' ";
$sel=$db->query("select Spazi.id
from Spazi
where $query
and Spazi.pubblico=1
");
($idsede)=$sel->fetchrow;
#print "location: http://www.undo.net/it/sede/".$idsede."\n\n";
print $q->redirect(-uri=>"http://www.undo.net/it/sede/".$idsede,-status=>301);
exit;
print "Content-type: text/html\n\n"; print qq~UnDo.Net - Pressrelease
l'ecosistema della cultura contemporanea
http://www.undo.net/pressrelease
$spazio $citta
~;
#'
$c=$citta;$c=~s/\'/\\\'/g;
$s=$spazio;$s=~s/\'/\\\'/g;
$query=" Spazi.citta='$c' and Spazi.nome='$s' ";
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,
Spazi.nome, Spazi.via, Eventi.tel, Eventi.fax,Eventi.www,Eventi.email, Spazi.tel, Spazi.fax, Spazi.www, Spazi.email
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $query
group by Eventi.id
order by Eventi.priorita desc");
#$sel=$db->query("select id,ina,fine,citta,nazione,titolo,spazio,via,tel,fax,email,www,titoloing from pressrelease where ".$query." order by ina desc");
$tottrovati=$sel->numrows;
while(($id,$ina,$fine,$citta,$nazione,$titolo,$spazio,$via,$tel,$fax,$email,$www,$stel,$sfax,$swww,$semail)=$sel->fetchrow)
{
if(!$tel){$tel=$stel;}
if(!$fax){$fax=$sfax;}
if(!$www){$www=$swww;}
if(!$email){$email=$semail;}
$www=~s/http:\/\///i;
if($citta ne $cittaprec)
{ $cittastampa=qq~$citta~; }
else { $cittastampa='' }
$cittaprec=$citta;
$dataperlastampa=&dammiggmmaa($ina);
@fff=split '/',$dataperlastampa; $dataperlastampa=$fff[0].'/'.$fff[1];
$dataperlastampa2=&dammiggmmaa($fine);
@fff=split '/',$dataperlastampa2; $dataperlastampa2=$fff[0].'/'.$fff[1];
print qq~$cittastampa
$spazio
$via ~;
print qq~ tel $tel~ if($tel);
print qq~ fax $fax~ if($fax);
print qq~ $email $www dal ~.$dataperlastampa.qq~ al ~.$dataperlastampa2.qq~ : $titolo ~;
print qq~
$sottotitolo
~;
#'
$c=$citta;$c=~s/\'/\\\'/g;
$r=$regione;$r=~s/\'/\\\'/g;
if(!$r)
{
#$query=" ina<=$inizio_oggi and fine>=$inizio_oggi and citta='$c' ";
$query=" bridgeEventiCalendario.dal<=$inizio_oggi and bridgeEventiCalendario.al>=$inizio_oggi and Spazi.citta='$c' ";
}
else
{ $query=" bridgeEventiCalendario.dal<=$inizio_oggi and bridgeEventiCalendario.al>=$inizio_oggi and Spazi.regione='$r' "}
#$sel=$db->query("select id,ina,fine,citta,nazione,titolo,firma,spazio,img,sinossi,artisti,sett,imgb,titoloing,sinossiing from pressrelease where ".$query." order by fine"); $tottrovati=$sel->numrows;
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,
Spazi.nome, Spazi.via, Eventi.tel, Eventi.fax,Eventi.www,Eventi.email, Spazi.tel, Spazi.fax, Spazi.www, Spazi.email
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where $query
group by Eventi.id
order by Eventi.priorita desc");
#$sel=$db->query("select id,ina,fine,citta,nazione,titolo,spazio,via,tel,fax,email,www,titoloing from pressrelease where ".$query." order by fine");
$tottrovati=$sel->numrows;
while(($id,$ina,$fine,$citta,$nazione,$titolo,$spazio,$via,$tel,$fax,$email,$www,$stel,$sfax,$swww,$semail)=$sel->fetchrow)
{
if(!$tel){$tel=$stel;}
if(!$fax){$fax=$sfax;}
if(!$www){$www=$swww;}
if(!$email){$email=$semail;}
$www=~s/http:\/\///i;
if($citta ne $cittaprec)
{ $cittastampa=qq~$citta~; }
else { $cittastampa='' }
$cittaprec=$citta;
$dataperlastampa=&dammiggmmaa($ina);
@fff=split '/',$dataperlastampa; $dataperlastampa=$fff[0].'/'.$fff[1];
$dataperlastampa2=&dammiggmmaa($fine);
@fff=split '/',$dataperlastampa2; $dataperlastampa2=$fff[0].'/'.$fff[1];
print qq~$cittastampa
$spazio
$via ~;
print qq~ tel $tel~ if($tel);
print qq~ fax $fax~ if($fax);
print qq~ $email $www dal ~.$dataperlastampa.qq~ al ~.$dataperlastampa2.qq~ : $titolo ~;
print qq~
$sottotitolo
~;
#'
if($day == $assoluto)
{ $stampakazzone=qq~eventi di oggi~; }
else { $stampakazzone=qq~eventi del~; }
print qq~
ITALIA $stampakazzone ~.&dammiggmmaa($inizio_oggi).qq~
~;
$inizio_oggi=$q->param('day');
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Comunicati.sottotitolo,
Spazi.nome, Spazi.via, Eventi.tel, Eventi.fax,Eventi.www,Eventi.email, Spazi.tel, Spazi.fax, Spazi.www, Spazi.email
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where bridgeEventiCalendario.dal=$inizio_oggi and Spazi.nazione='Italia'
group by Eventi.id
order by Spazi.citta,Eventi.priorita desc");
#$sel=$db->query("select id,ina,fine,citta,nazione,titolo,spazio,via,tel,fax,email,www,sottotitolo from pressrelease where ina=$inizio_oggi and nazione='Italia' order by citta,priorita desc");
while(($id,$ina,$fine,$citta,$nazione,$titolo,$sottotitolo,$spazio,$via,$tel,$fax,$www,$email,$stel,$sfax,$swww,$semail)=$sel->fetchrow)
{
if(!$tel){$tel=$stel;}
if(!$fax){$fax=$sfax;}
if(!$www){$www=$swww;}
if(!$email){$email=$semail;}
$www=~s/http:\/\///i;
if($citta ne $cittaprec)
{ $cittastampa=qq~$citta~; }
else { $cittastampa='' }
$cittaprec=$citta;
$dataperlastampa=&dammiggmmaa($ina);
@fff=split '/',$dataperlastampa; $dataperlastampa=$fff[0].'/'.$fff[1];
$dataperlastampa2=&dammiggmmaa($fine);
@fff=split '/',$dataperlastampa2; $dataperlastampa2=$fff[0].'/'.$fff[1];
print qq~$cittastampa
$spazio
$via ~;
print qq~ tel $tel~ if($tel);
print qq~ fax $fax~ if($fax);
print qq~ $email $www dal ~.$dataperlastampa.qq~ al ~.$dataperlastampa2.qq~ : $titolo ~;
print qq~
$sottotitolo
~;
$sel=$db->query("select Eventi.datainserimento,bridgeEventiCalendario.dal,bridgeEventiCalendario.al,Spazi.citta,Spazi.nazione,Comunicati.titolo,Comunicati.sottotitolo,
Spazi.nome, Spazi.via, Eventi.tel, Eventi.fax,Eventi.www,Eventi.email, Spazi.tel, Spazi.fax, Spazi.www, Spazi.email
from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiSpazi on bridgeEventiSpazi.fkevento=Eventi.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
left join Spazi on bridgeEventiSpazi.fkspazio=Spazi.id
where bridgeEventiCalendario.dal=$inizio_oggi and Spazi.nazione!='Italia'
group by Eventi.id
order by Spazi.citta,Eventi.priorita desc");
#$sel=$db->query("select id,ina,fine,citta,nazione,titoloing,titolo,spazio,via,tel,fax,email,www,sottotitoloing from pressrelease where ina=$inizio_oggi and nazione!='Italia' order by citta,priorita desc");
while(($id,$ina,$fine,$citta,$nazione,$titolo,$sottotitolo,$spazio,$via,$tel,$fax,$www,$email,$stel,$sfax,$swww,$semail)=$sel->fetchrow)
{
if(!$tel){$tel=$stel;}
if(!$fax){$fax=$sfax;}
if(!$www){$www=$swww;}
if(!$email){$email=$semail;}
$www=~s/http:\/\///i;
if($citta ne $cittaprec)
{ $cittastampa=qq~$citta~; }
else { $cittastampa='' }
$cittaprec=$citta;
$dataperlastampa=&dammiggmmaa($ina);
@fff=split '/',$dataperlastampa; $dataperlastampa=$fff[0].'/'.$fff[1];
$dataperlastampa2=&dammiggmmaa($fine);
@fff=split '/',$dataperlastampa2; $dataperlastampa2=$fff[0].'/'.$fff[1];
print qq~$cittastampa
$spazio
$via ~;
print qq~ tel $tel~ if($tel);
print qq~ fax $fax~ if($fax);
print qq~ $email $www dal ~.$dataperlastampa.qq~ al ~.$dataperlastampa2.qq~ : $titolo ~;
print qq~
$sottotitolo
~;
exit;
}
sub dammiggmmaa
{
my $a=$_[0];
my $t,$gg,$mm,$aa;
($t,$t,$t,$gg,$mm,$aa)=localtime($a);
$aa+=1900;
$mm++;
$aa=substr $aa,2,2;
$a=qq~$gg/$mm/$aa~;
return $a;
}
sub checklang
{
if((!$lang)and(!$checkcookie))
{
open ALLO,"/home/undo/www/cgi-bin/undo/top_navigator/allocations/italia";
@allo=;
close ALLO;
foreach(@allo)
{
chomp;
if($ENV{'REMOTE_ADDR'}=~/^$_/)
{
$urlpass=qq~$ENV{'REQUEST_URI'}~;
$urlpass=~s/\?/\%3F/g;
$urlpass=~s/\&/\%26/g;
print "location: http://www.undo.net/cgi-bin/2000/lang/lang.pl?lang=italian&from=$urlpass&$$\n\n";
exit;
}
}
$urlpass=qq~$ENV{'REQUEST_URI'}~;
$urlpass=~s/\?/\%3F/g;
$urlpass=~s/\&/\%26/g;
print "location: http://www.undo.net/cgi-bin/2000/lang/lang.pl?lang=italian&from=$urlpass&$$\n\n";
exit;
}
if(!$lang)
{
open ALLO,"/home/undo/www/cgi-bin/undo/top_navigator/allocations/italia";
@allo=;
close ALLO;
foreach(@allo)
{
chomp;
if($ENV{'REMOTE_ADDR'}=~/^$_/)
{
$lang='italian';
$chkkklang=1;
}
}
if(!$chkkklang)
{
$lang='italian';
}
}
}
sub europa
{
my $sel;
#$sel=$db->query("select id,titolo,titoloing from pressrelease where sett=666 order by ina desc limit 1");
$sel=$db->query("select Eventi.datainserimento,Comunicati.titolo from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
where Eventi.sett=666 order by bridgeEventiCalendario.dal desc limit 1");
#($ideuropa,$europatitolo)=$sel->fetchrow;
#$europatitolo=qq~$europatitolo~;
while(($ideuropa,$europ,$europ2)=$sel->fetchrow)
{
if(!$europ){$europ=$europ2}
$europatitolo.=qq~$europ
~;
}
}
sub telecom
{
my $sel;
#$sel=$db->query("select id,titolo,titoloing,sottotitolo from pressrelease where sett=667 order by ina desc limit 1");
$sel=$db->query("select Eventi.datainserimento,Comunicati.titolo,Comunicati.sottotitolo from Eventi
left join bridgeEventiComunicati on bridgeEventiComunicati.fkevento=Eventi.id
left join Comunicati on bridgeEventiComunicati.fkcomunicato=Comunicati.id
left join bridgeEventiCalendario on bridgeEventiCalendario.fkevento=Eventi.id
where Eventi.sett=667 order by bridgeEventiCalendario.dal desc limit 1");
#($ideuropa,$europatitolo)=$sel->fetchrow;
#$europatitolo=qq~$europatitolo~;
while(($ideuropa,$europ,$zorto)=$sel->fetchrow)
{
if(!$europ){$europ=$europ2}
$telecomtitolo.=qq~$europ $zorto
~;
}
}
sub mesi
{
my ($sec,$min,$hours,$mday,$mon,$year)=localtime(time);
$mon++;
if($q->param('mm')){$mon=$q->param('mm')}
$mesi.='';
}
sub anni
{
$k{$q->param('aa')}="selected";
if(!$q->param('aa')){$k{'2001'}="selected"}
$anni.="";
}
sub giorni
{
$giorni.='';
}
sub nazioni
{
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat('generati/nazioni');
$diff=$mtime-time;
if(($mtime) and ($diff>-3600))
{
open FILE,'generati/nazioni' or die 'non ce filez';
while(){$nazioneelenco.=$_}
close FILE;
if($action eq 'search' and $rnazione)
{
$nazioneelenco=~s/
$nazioneelenco.=qq~";
if($action ne 'search')
{
open FILE,'>generati/nazioni';
print FILE $nazioneelenco;
close FILE;
}
}
sub citta
{
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat('generati/citta');
$diff=$mtime-time;
#if(($mtime) and ($diff>-3600))
# {
if(!$genera)
{
open FILE,'generati/citta' or die 'non ce filez';
while(){$incorsoitalia.=$_}
close FILE;
open FILE,'generati/cittae' or die 'non ce filez';
while(){$incorsoestero.=$_}
close FILE;
return;
}
# }
my ($sec,$min,$hours,$mday,$mon,$year)=localtime(time);
my $inizio_oggi=timelocal(0,0,0,$mday,$mon,$year);
$incorsoitalia.=qq~";
$incorsoestero.=qq~";
open FILE,'>generati/citta';
print FILE $incorsoitalia;
close FILE;
open FILE,'>generati/cittae';
print FILE $incorsoestero;
close FILE;
}
sub error
{
print "Content-type: text/html\n\n";
print "Il servizio e' temporaneamente sospeso...
";
print "The service is temporary down...";
exit;
}
sub tips
{
my @tips=(qq~
Anche sul tuo sito le segnalazioni di Pressrelease!
Se hai un sito puoi inserire
sulle tue pagine una finestra con le informazioni sugli eventi del giorno aggiornate automaticamente via web!
~,qq~Ricerche
Un archivio di oltre 95.000 eventi con immagini, date, riferimenti e link a disposizione per ricerche e consultazioni
~,qq~Directories
Prova a cercare i comunicati stampa partendo dai nomi dei segnalatori oppure dalle citta' e dagli spazi espositivi in cui si sono svolti gli eventi
~,qq~Directory
L'indice di oltre 88.000 artisti italiani e internazionali: per conoscere le iniziative cui hanno preso parte e seguire gli sviluppi del loro lavoro
~,qq~Directories
Critici, teorici, curatori: un indice di oltre 15000 nomi per seguire gli sviluppi teorici e le scelte curatoriali del loro lavoro.
~,qq~
Pressreleases da stampare!
Hai provato la funzione "Versione stampabile " che trovi in fondo alle pagine? Pressrelease è progettato per stampare su carta sia le sintesi degli eventi del giorno sia i singoli comunicati estesi.
~,qq~
Linea diretta
Scegli i tuoi spazi espositivi preferiti e chiedi di ricevere da Pressrelease una email di avviso ogni volta che annunciano una nuova iniziativa.
~
);
$a=int(rand($#tips));
return $tips[$a];
}
sub stampa
{
$stampatips=&tips;
open FILE,$template;
@file=;
close FILE;
&nazioni;
$zfile=join '',@file;
if($action or $q->param('day')) { $backhome=qq~home page - guida rapida ~; }
else
{ $backhome=qq~ guida rapida ~; }
if($action eq 'tv')
{
$zfile=~s/<\!--MACRO1-->/$macro1/;
}
#if($ENV{'HTTP_REFERER'}=~/maimeri/i)
# {
# $tosubbakkk='';
# }
#else
# {
# $tosubbakkk=qq~
#
#
#Pressrelease diventa ancora piu' veloce:
#utilizza questa scheda per inviare i tuoi comunicati.
#
#~;
# }
#$zfile=~s/<\!--BACKKKKK-->/$tosubbakkk/;
if(!$head)
{
$head=qq~
UnDo.Net - calendario mostre eventi arte cultura contemporanea internazionale - video Italia
~;
}
$zfile=~s/<\!--HEAD-->/$head/;
$zfile=~s/<\!--HEADEXTRAJS-->/$headextrajs/;
$zfile=~s/<\!--ONLOAD-->/$onload/;
$zfile=~s/<\!--ALTREFOTO-->/$altrefoto/;
$zfile=~s/<\!--STAMPATIPS-->/$stampatips/;
$zfile=~s/<\!--NOVITA-->/$novita/;
$zfile=~s/<\!--BACKHOME-->/$backhome/;
$zfile=~s/<\!--TABELLA-->/$tabella/;
$zfile=~s/<\!--SPOTSTAMPA-->/$spot/;
$zfile=~s/<\!--DALNETWORKSTAMPA-->/$dalnetwork/;
$zfile=~s/<\!--APPROFONDIMENTISTAMPA-->/$approfondimenti/;
$zfile=~s/<\!--NAZIONI-->/$nazioneelenco/;
$zfile=~s/<\!--INCORSOITALIA-->/$incorsoitalia/;
$zfile=~s/<\!--INCORSOESTERO-->/$incorsoestero/;
$zfile=~s/<\!--SEGNALAZIONISTAMPA-->/$segnalazioni/;
$zfile=~s/<\!--EUROPA-->/$europatitolo/;
$zfile=~s/<\!--TELECOM-->/$telecomtitolo/;
$zfile=~s/<\!--EDITORSTAMPA-->/$editorstampa/;
$zfile=~s/<\!--REGIONESTAMPA-->/$regionestampa/;
$zfile=~s/<\!--CITTASTAMPA-->/$cittastampa/g;
$zfile=~s/<\!--SPAZIOSTAMPA-->/$spaziostampa/g;
$zfile=~s/<\!--NAZIONESTAMPA-->/$nazionestampa/g;
$zfile=~s/<\!--SCHEDASTAMPA-->/$scheda/;
$zfile=~s/<\!--SEGNALATODA-->/$segnalatoda/;
$zfile=~s/<\!--SEGNALATODAOLTRE-->/$segnalatodaoltre/;
$zfile=~s/<\!--FOTO-->/$fotostampa/;
$zfile=~s/<\!--TOOLSGIALLO-->/$toolsgiallo/;
$zfile=~s/<\!--TOOLSGIALLOTITOLO-->/$toolsgiallotitolo/;
$zfile=~s/<\!--SPAZIOAVVISAMI-->/$spazioavvisami/;
$zfile=~s/<\!--CGI-->/$cgiurl/g;
$zfile=~s/<\!--DAY-->/$inizio_oggi/;
$idprint=$q->param('id');
$zfile=~s/<\!--IDPRINT-->/$idprint/g;
$zfile=~s/<\!--RARTISTA-->/$rartista/;
if($action eq 'search')
{
$zfile=~s/<\!--RCITTA-->/$rcitta/;
$zfile=~s/<\!--RSPAZIO-->/$rspazio/;
if($semplice)
{
$zfile=~s/<\!--RNASCONDI-->/display:none/;
}
else
{
$zfile=~s/<\!--RNASCONDI-->/display:block/;
}
}
else
{
$zfile=~s/<\!--RNASCONDI-->/display:none/;
$zfile=~s/<\!--RCITTA-->//;
$zfile=~s/<\!--RSPAZIO-->//;
}
if($action eq 'search')
{
$zfile=~s/<\!--RNASCONDI2-->/display:none/;
}
$zfile=~s/<\!--RGEOCITTA-->/$rgeocitta/;
$zfile=~s/<\!--RGEOIND-->/$rgeoind/;
$zfile=~s/<\!--RGEOSPA$rgeospazi-->/checked/;
$zfile=~s/<\!--RGEOSPA1-->//;
$zfile=~s/<\!--RGEOSPA-->//;
$zfile=~s/<\!--RGEORAG$raggio-->/selected/;
$zfile=~s/<\!--RGEORAG2-->//;
$zfile=~s/<\!--RGEORAG3-->//;
$zfile=~s/<\!--RGEORAG4-->//;
if(!$raa and ($action ne 'search')){($t,$t,$t,$t,$t,$raa)=localtime(time); $raa+=1900;}
#if(!$rmm and ($action ne 'search')){($t,$t,$t,$t,$rmm,$t)=localtime(time); $rmm++}
$ssgg{$rgg}='selected';
$ssmm{$rmm}='selected';
$ssaa{$raa}='selected';
for(1..31){$sgg.=qq~~;}
for(1..12){$smm.=qq~~;}
for(1999..2010){$saa.=qq~~;}
$zfile=~s/<\!--RGIORNO-->/$sgg/;
$zfile=~s/<\!--RANNO-->/$saa/;
$zfile=~s/<\!--RMESE-->/$smm/;
if(!$genera)
{
open FILE,'generati/numincorso';
$numeventiincorso=;
close FILE;
}
else
{
($sec,$min,$hours,$mday,$mon,$year)=localtime(time());
$iniziooggi=timelocal(0,0,0,$mday,$mon,$year);
$sel="select id from bridgeEventiCalendario where al>=$iniziooggi";
$q=$db->query($sel);
$numeventiincorso=$q->num_rows;
open FILE,'>generati/numincorso';
print FILE $numeventiincorso;
close FILE;
}
$zfile=~s/<\!--NUMEVENTIINCORSO-->/$numeventiincorso/;
#if(($ENV{'HTTP_USER_AGENT'}=~/Mac/) or ($ENV{'HTTP_USER_AGENT'}=~/X11/))
if($ENV{'HTTP_USER_AGENT'}=~/Mac/)
{
$zfile=~s/18pt/16pt/g;
$zfile=~s/8pt/10pt/g;
$zfile=~s/6pt/7pt/g;
$zfile=~s/10px/12px/g;
$zfile=~s/font-size:8pt/font-size:11pt/g;
}
if(($ENV{'HTTP_USER_AGENT'}=~/Mozilla\/4/) and ($ENV{'HTTP_USER_AGENT'}!~/MSIE/))
{
$zfile=~s/td width="19%"/td width="10%"/;
$zfile=~s/td width="50%"/td width="59%"/;
}
#$zfile=~s/<\!--SCEGLICITTA-->/$sceglicitta{$lang}/;
#if(!$q->cookie("controllovideo"))
# {
#$cookie = $q->cookie(-name=>'controllovideo',
#-value=>1,
#-expires=>'+5d',
#-path=>'/',
#-domain=>'.undo.net',
#-secure=>0);
#print $q->header(-cookie=>$cookie);
#$zfile.=qq~
#
#~;
# }
#else
# {
print "Content-type: text/html\n\n";
# }
print $zfile;
exit;
}
sub traduzioni
{
$sceglicitta{'english'}='Choose your city';
$sceglicitta{'italian'}='Scegli la citta\'';
$tutti{'english'}='all';
$tutti{'italian'}='tutti';
$eventidelmesedi{'english'}='Events of the month of';
$eventidelmesedi{'italian'}='Eventi del mese di';
$altresegnalazioni{'english'}='Other News';
$altresegnalazioni{'italian'}='Altre Segnalazioni';
$segnalatida{'english'}='selected by';
$segnalatida{'italian'}='segnalati da';
$nessunevento{'english'}='No events are currently available for this search criterion';
$nessunevento{'italian'}='Nessun evento attualmente diponibile con questo criterio di ricerca';
$eventiincorso{'english'}='Events Underway';
$eventiincorso{'italian'}='Eventi in corso';
$continua{'english'}='Continue';
$continua{'italian'}='Continua';
$ricercamirata{'english'}='Targeted and complete search of events underway, past and future';
$ricercamirata{'italian'}='Ricerca mirata e completa sugli eventi in corso, passati e futuri.';
$ricercacampi{'english'}='* All the fields are optional';
$ricercacampi{'italian'}='* Tutti i campi sono opzionali';
$risultatiricerca{'english'}='Search results';
$risultatiricerca{'italian'}='Risultati Ricerca';
$eventidioggi{'english'}='Today\'s Events';
$eventidioggi{'italian'}='Eventi di Oggi';
$eventidel{'english'}='Events of';
$eventidel{'italian'}='Eventi del';
$dal{'english'}='from';
$dal{'italian'}='dal';
$al{'english'}='to';
$al{'italian'}='al';
$tuttimese{'english'}='All the month\'s events';
$tuttimese{'italian'}='Tutti gli eventi mese per mese';
$italia{'english'}='Italy';
$italia{'italian'}='Italia';
$estero{'english'}='Foreign';
$estero{'italian'}='Estero';
$desclight{'english'}=' In a unique e-mail all the day\'s event
';
$desclight{'italian'}=' Ricevi in un\'unica email tutti gli eventi del giorno
';
$latuaemail{'english'}='Your email';
$latuaemail{'italian'}='La tua email';
$iscrivimi{'english'}='Subscribe';
$iscrivimi{'italian'}='Iscrivimi';
$archivio{'english'}='archive';
$archivio{'italian'}='archivio';
$cercaartista{'english'}='Artist/Free Text';
$cercaartista{'italian'}='Artista/Testo Libero';
$cercacitta{'english'}='City';
$cercacitta{'italian'}='Città';
$cercaspazio{'english'}='Space';
$cercaspazio{'italian'}='Spazio';
$cercanazione{'english'}='Country';
$cercanazione{'italian'}='Nazione';
$cercagiorno{'english'}='(Day) / Month / Year';
$cercagiorno{'italian'}='(Giorno) / Mese / Anno';
$cercatrova{'english'}='Find';
$cercatrova{'italian'}='Trova';
$cercacancella{'english'}='reset';
$cercacancella{'italian'}='cancella';
$ultimiagg{'english'}='Latest Update';
$ultimiagg{'italian'}='Ultimi Aggiornamenti';
$partecipa{'english'}=' To take part in this service send your news to pressrelease@undo.net
';
$partecipa{'italian'}=' Per partecipare inviate i vostri comunicati a pressrelease@undo.net o compilate la scheda che trovate qui
';
$notedicoda{'english'}='
Pressrelease is an UnDo.Net column edited by Elena Conti
The editor cannot take responsibility for changes to the events in the programme.';
$notedicoda{'italian'}='
Pressrelease è una rubrica UnDo.Net a cura di Elena Conti
La redazione declina ogni responsabilita\' su modifiche degli eventi in programma.';
$notedicoda{'italian'}='
The editor cannot take responsibility for changes to the events in the programme.';
$europpultimiagg{'italian'}='ultimi aggiornamenti';
$europpultimiagg{'english'}='last update';
$euroinfooff{'italian'}='Uffici di informazione';
$euroinfooff{'english'}='Information Offices';
$numerotrovati{'italian'}='Trovati';
$numerotrovati{'english'}='Found';
$ieri{'italian'}='ieri';
$ieri{'english'}='yesterday';
$domani{'italian'}='domani';
$domanu{'english'}='tomorrow';
@mesidasub=('Gennaio','Febbraio','Marzo','Aprile','Maggio','Giugno','Luglio','Agosto','Settembre','Ottobre','Novembre','Dicembre');
if($lang eq 'english')
{
@mesiita=('January','February','March','April','May','June','July','August','September','October','November','December');
@mesiita2=('all','January','February','March','April','May','June','July','August','September','October','November','December');
$langscegli=qq~
~;
if($sinossi1) { $im.=qq~~; }
}
else
{
$im='';
}
if($sinossi1)
{
$ll=$sinossi1;
}
$titolo1=~tr/a-z/A-Z/;
$editorstampa.=qq~
)
~;
}
$tabella=qq~
~;
if($ENV{'REMOTE_ADDR'} eq '93.48.149.97')
{
#$tabella.=qq~
';}
if($sett==666){$img=qq~
~}
$ina=&dammiggmmaa($ina);
$fine=&dammiggmmaa($fine);
if(($assoluto == $inizio_oggi)and(!$action))
{ $stampadata=qq~fino al $fine~; }
else { $stampadata=qq~dal $ina al $fine~; }
my $tabellavesti=qq~
';
# }
#else
# {
# $tosubbakkk=qq~
#
#
~;close FILEZ;}
else{$a[3]='
'; }
}
}
}
$spazio=~s/\'/\\\'/g;
$titolo=~s/\'/\\\'/g;
$via=~s/\'/\\\'/g;
$sotto=~s/\'/\\\'/g;
$sotto=~s/\n/ /g;
$sotto=~s/\r/ /g;
$punti=qq~
var point$id = new PGPoint({lon:$sx, lat:$sy, title:'$spazio',
html:'
versione stampabile
versione stampabile
DAL PARLAMENTO EUROPEO $aa
segnala
Altri comunicati