#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param);

my $img_dir = "../images/";
my $ref = $ENV{HTTP_REFERER};

if(param('num') =~ /^\d{2}$/) {
  if (($ref =~ /^http:\/\/www\.siechfreds-welt\.de.*/) || ( $ref eq "")) {
    print_image(param('num'));
  }
  else {
    print_image("00");
  }
}
else {
  print_image("00");
}

sub print_image {
  my $buf;
  my $bild = $img_dir."sfi_".$_[0].".jpg";
  print "Content-type: image/jpeg\n\n";
  open(IMG, "<$bild") or die $!;
  binmode(IMG);
  while(read IMG,$buf,1)
  {
    print $buf;
  }
  close IMG;
}