#!/opt/bin/perl5

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);

$camnr = $cgi->param('cam');
$referer = $cgi->referer();
$host = $cgi->remote_host();

#if ($referer  "http://wwwiuk.informatik.uni-rostock.de/~thm/private/webcam/index.html") {
# & $cgi->referer()) {
# != "http://wwwiuk.informatik.uni-rostock.de/~thm/private/webcam/index.html") {

if (($camnr > 2) and (not $referer eq 'http://wwwiuk.informatik.uni-rostock.de/~thm/private/webcam/') and (not $host eq '139.30.3.10')) {
  print "content-type: image/jpeg\n\n";
  open(FILE, "< illegal.jpg") or die "can't open file: $!";
  while (<FILE>) {
    print "$_" or die "can't write to $new: $!";
  }
  close(FILE);	
  die;
}

$url="http://thms.informatik.uni-rostock.de:7777/";
$h=HTTP::Headers->new();

if($camnr==1)
{
  $url="http://thms.informatik.uni-rostock.de:7777/";
}
if($camnr==2)
{
  $url="http://thms.informatik.uni-rostock.de:9999/";
}
if($camnr==3)
{
  $url="http://fennek.informatik.uni-rostock.de:8080/";
}
if($camnr==4)
{
  $url="http://bluespice.dyndns.org/~ij/cam.jpg";
}
if($camnr==5)
{
  $url="http://home.eplus-online.de/tmundt/aab.jpg";
}
if($camnr==6)
{
  $url="http://game.rostock.infocity.de/webcam2.jpg";
}
if($camnr==7)
{
  $url="http://www.rostock-wetter.de/w-images/wk-3.jpg";
  $h->referer("http://www.rostock-wetter.de/w3.html");
}
if($camnr==8)
{
  $url="http://www.rostock-wetter.de/w-images/wk-2.jpg";
  $h->referer("http://www.rostock-wetter.de/w3.html");
}
if($camnr==9)
{
  $url="http://www.rostock-wetter.de/w-images/wk-1.jpg";
  $h->referer("http://www.rostock-wetter.de/w3.html");
}
if($camnr==10)
{
  $url="http://www.focus-media-rostock.de/weit.jpg";
}
if($camnr==11)
{
  $url="http://www.mv-it-systeme.de/kamera/kettenkasten/picture.jpg";
}
if($camnr==12)
{
  $url="http://webcam.jakota.de/huebner_cam.php?clid=6";
}
if($camnr==13)
{
  $url="http://www.rostock-port.de/WCam/image640x480_0000000001.jpg";
}

$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("webcam.cgi?cam=$camnr");