#!/usr/bin/perl
use CGI qw/:standard :netscape/;
use CGI::Carp qw/fatalsToBrowser/;
use Fcntl qw/:flock/;
require "./config.dat";
print"$htmlheader";

$shoppingtippsfile="./shopping/index.txt";
if(-e "$shoppingtippsfile"){
{open (FILEsht, "<$shoppingtippsfile") ||  print "$!";
@FILEsht=<FILEsht>;
close(FILEsht);}}

foreach $FILEsht (@FILEsht){$countst++;}if($countst < 1){@FILEsht3="<i>Zur Zeit sind leider keine Shoppingtipps eingetragen</i>";goto weiterst;}

if(-e "$shoppingtippsfile"){mischen(\@FILEsht);}
sub mischen{
my $FILEst = shift;
my $i1;
for ($i1 = @$FILEst; --$i1;) 	{

my $j1 = int rand ($i1+1);
next if $i1 == $j1;
@$FILEst[$i1,$j1] = @$FILEst[$j1,$i1];
}					}



@cheshtva=split($trenn,$FILEsht[0]);
if(-e "./shopping/$cheshtva[0].txt"){
{open (FILEsht3, "<./shopping/$cheshtva[0].txt") ||  print "$!";
@FILEsht3=<FILEsht3>;
close(FILEsht3);}

}else{@FILEsht3="<i>Zur Zeit sind leider keine Shoppingtipps eingetragen</i>";}

weiterst:

foreach $FILEsht3 (@FILEsht3){print"document.write('$FILEsht3')";}exit;