/Users/felipe/Desktop/openhttp4.pl

#! /usr/bin/perl -T
# deutsch: dieses programm klaut die bilder von der nzz webcam und tut sie in eine neue seite, naviation funktioniert
# english: this script steals images from the nzz web cam and incorporates them in a new page, navigation is working

# 2002-04-11
# felipe wettstein
# 2004-03-06 fw: bad old code, but works, version 4, english comments


use  LWP::Simple;
use  strict;
use  warnings;


# CGI programs must print their own HTTP response headers
print  "Content-type: text/html\n\n";

# Process form variables for both POST and GET methods.
my  $ENV;  
my  $query;
if  ($ENV{'REQUEST_METHOD'}  eq  "GET"  ||  $ENV{'QUERY_STRING'}  ne  "")  {
# in '$query' kommen die abfrageparameter rein; alles was nach der url kommt
     $query  =  $ENV{'QUERY_STRING'};
     chomp  $query;
}

# adess from where the image is stolen
my  $cam_adress='http://kamera.nzz.ch/cam.cgi';
# for tests use: my $cam_adress='http://127.0.0.1/test.html';

# base adress that is valid in the webcam page (base href="...)
my  $cam_base='http://kamera.nzz.ch';

# path to camera image, without server ($cam_base)
my  $image_path='';

# the whole page, from where the image is stolen is hold in $whole_page
my  $whole_page  =  get($cam_adress.'?'.$query);

# to every empty line a whitespace is added, the array then has no empty strings
# das 'm' am schluss der regexp bedeutet dass der string als mehrere zeilen interpretiert wird
# das heisst, nach jedem '\n' kommt ein neuer zeilenanfang der mit '^' gefunden wird
$whole_page  =~  s/^\n/ \n/mg;  
my  @whole_page  =  split  ('\n',  $whole_page);
my  $line;

# he whole information in 'hidden' tags is read in this var and written to the new html
my  @hidden1;
my  @hidden2;


# every line is read to check its content
while  (  $line=  shift  @whole_page)  {
     if  ($line  =~  /<\s*base.+href.+>/ig)  {
                 # the whole tag is removed where base and href in
         $cam_base  =  $&  ;
         $cam_base  =~  s/<.+href\s*=\s*"*//ig;
             # take out what is bevore url
             
         $cam_base  =~  s/"*\s*>//ig;
             # remove what is behind url (okok, i would do it better now, this is an old script)
     }
     if  ($line  =~  /=\s*"?\S+nzz.+jpg"?/ig)  {
         $image_path=  $&;
         $image_path  =~  s/["=]//g;
     }

     # the wohle 'hidden' things and data about the image are copied
     # this are data about the part of interest of the image
     if  ($line  =~/\s*=\s*"?old.+type\s*=\s*"*hidden.+value.+">/ig)  {
         push  (@hidden1,  $&."\n");
     }  
     if  ($line  =~/type\s*=\s*"?hidden.*name\s*=\s*"p/ig)  {
     push  (@hidden2,  $line."\n");
     }  
         
}

# is this line necessery???? tsss...
my  $image=$cam_base.$image_path;

# to convert with 'viewperlhtml.pl' into html, replace first all '<' with < and all '>' with >
print  <<EOF;
<HTML>
<HEAD>
<META CONTENT="text/html; charset=ISO-8859-1" HTTP-EQUIV="Content-Type">
<TITLE>Webcam Zürich (geklaut von NZZ Online)</TITLE></HEAD>

<BODY>
<FORM METHOD="GET" ACTION="openhttp.pl">

<INPUT NAME="photo" TYPE="image" SRC="http://kamera.nzz.ch$image_path" ALT="[ Züri (17 kByte) ]" BORDER="0" WIDTH="320" HEIGHT="240">
@hidden1
<BR>
<BR>

 Zoom-Faktor.<BR>
<INPUT TYPE="RADIO" NAME="z" VALUE="1">1×  
<INPUT TYPE="RADIO" NAME="z" VALUE="2">2×  
<INPUT TYPE="RADIO" NAME="z" CHECKED VALUE="4">4×  
<INPUT TYPE="RADIO" NAME="z" VALUE="8">8×<BR>


<BR>

<INPUT NAME="overview" TYPE="image" SRC="/beschriftung.gif" WIDTH=564 HEIGHT=33 BORDER=0 ALT="Panoramabeschriftung">
<INPUT NAME="panorama" TYPE="image" SRC="/panorama.jpg" WIDTH=564 HEIGHT=82 BORDER=0 ALT="Panorama">
@hidden2
</FORM>

</BODY>
</HTML>
EOF
exit  0;