Amanhecer de domingo no coração da Paulicéia - Adriano Vieland

Amanhecer de domingo no coração da Paulicéia

O céu azul cobre os meus solitários passos, que vez ou outra ganha, ainda que em distância, a companhia de um cão moribundo, as vezes, de um frade franciscano, um bêbado caído e de um atarefado jornaleiro. É manhã, manhã bem cedo de sol.

O circuito se inicia no Viaduto Santa Efigênia, chega ao Largo de São Bento, descortina a solitária Líbero Badaró, se infiltra numa rua São Bento sem som; presta descanso à Praça do Patriarca, cruza o Chá, a Ladeira da Memória, a grande biblioteca Mário de Andrade e o sinuoso Copan.

Viva o Centro. Viva Sampa. Viva o amanhecer de domingo no coração da Paulicéia.

Sessão de fotos realizada no dia 22 de outubro de 2006
- um domingo - entre as 5h54 e as 6h57, por Adriano Vieland

Todos os direitos autorais
são reservados aos autores
das obras expostas.

#!/usr/bin/perl ############################################################################## # Visitor Counter Version 2.51 # # Copyright 1998-99, UtilMind Solutions info@utilmind.com # # http://www.utilmind.com # # Created: Nov 3, 1998-99 Last Modified: May 03, 2000 # ############################################################################## # COPYRIGHT NOTICE # # Copyright 1998-99, UtilMind Solutions All Rights Reserved. # # # # VisCounter may be used and modified free of charge by anyone so long as # # this copyright notice and the comments above remain intact. By using this # # code you agree to indemnify UtilMind Solutions from any liability that # # might arise from it's use. # # # # Selling the code for this program without prior written consent is # # expressly forbidden. In other words, please ask first before you try and # # make money off of our programs. # # # # Obtain permission before redistributing this software over the Internet or # # in any other medium. In all cases copyright and header must remain intact.# ############################################################################## # Set Variables $counterfile = 'contadornaja.txt'; # Get the input $link = $ENV{'DOCUMENT_NAME'}; # Begin Code open(FILE, $counterfile) || die Can't locate counter file $!; @DATA = ; close(FILE); $SIZE = @DATA; if ($SIZE eq 0) { exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/'/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { &UpdateStats; } } # Add new link to database file open(FILE, ">>$counterfile") || die Can't locate database file $!; flock(FILE, 2); # blocking write lock print FILE "1'$link\n"; # First time flock(FILE, 8); close(FILE); $counter = '1'; &LocateLink; # Increase through-link counter sub UpdateStats { @DATA = sort {($b =~ /(\d+)/)[0] <=> ($a =~ /(\d+)/)[0]} @DATA; $counter++; open(FILE, ">$counterfile") || die Can't locate database file $!; flock(FILE, 2); # blocking write lock for ($j=0;$j<$SIZE;$j++) { if ($j eq $i) { print FILE "$counter'$link\n"; } else { print FILE "$DATA[$j]"; } } flock(FILE, 8); close(FILE); &LocateLink; } sub LocateLink { print "Content-Type: text/html\n\n"; print $counter; exit; }

http://www.gargantadaserpente.com.br