#! /usr/bin/perl

use LWP::UserAgent;
use CGI qw(cgi);

$cgi = new CGI;

$ua= LWP::UserAgent->new();
$ua->agent("Mozilla/4.0b3 [de] (Win95; I)");
$ua->timeout(15);

$imagenr = $cgi->param('image');

$url="http://thms.informatik.uni-rostock.de:6666/vws".$imagenr.".jpg";

$h=HTTP::Headers->new();
$request= HTTP::Request->new('GET', $url, $h);
$response= $ua->request($request) || die $!;;

if ($response->is_success)
{
  print "content-type: image/jpeg\n\n";
  print $response->content();
}
else
{
  print "content-type: image/jpeg\n\n";
  open(FILE, "< s.jpg") or die "can't open file: $!";
  while (<FILE>) {
    print "$_" or die "can't write to $new: $!";
  }
  close(FILE)		
};

require "referer.cgi";

log_referer("wetter.cgi?image=$imagenr");