es gibt keine spezifische Fehlermeldung, wie sie sonst eigentlich auftritt wenn falsche dateiberechtigungen gesetzt wurden (wie gesagt ich hab alle ueberprueft). Ich habe in dieser site eigentlich alle Eintraege egal ob blog galerie oder gaestebuch in dateien abgelegt, die von skripten generiert werden, da ich fuer diese kleine hp zu faul war um mir zusaetzlich noch MySQL anzueignen.
Die Scripts werden einfach ausgefuehrt und der Teil, in dem die datei erstellt wird, wird einfach uebergangen. bspw
- Code: Select all
#!/usr/bin/perl
#######################
# Prog: CMS-Reader
# Ver: v0.01
#######################
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
### Der Folgende teil wird einfach nicht ausgefuehrt... counter zaehlt nicht hoch, weil keine datei angelegt wird
open (HITS,"hits");
my $hits = <HITS>;
close (HITS);
chomp $hits;
$hits++;
open (HITS,">hits");
print HITS $hits."\n";
close (HITS);
##### bis hier.. ab hier tut alles wieder
my @ind3x;
my $linecounter = 0;
open (INDEX, "blog/indices") or die "Indexfile Missing";
while (<INDEX>)
{
chomp $_;
unshift (@ind3x,$_);
}
close INDEX;
print header;
print qq(<html><head></head><body scroll="no" background = "../Bilder/content.png" bgproperties="fixed">);
print qq(<br><center><img src="../Bilder/headers/blog.png"></center><br>);
foreach(@ind3x)
{
open (THREAD, "blog/entries/$_");
print qq(<justify><font face="Verdana" color = "#FF9946" size="2"><br>);
foreach (<THREAD>)
{
if ($linecounter == 0)
{
print qq(</font><font face="Verdana" color="#BBBBBB" size="1"><br>);
chomp $_;
print $_;
print qq(</font><font face="Verdana" color = "#FF9946" size="2">);
$linecounter++;
next;
}
if ($linecounter == 1)
{
print qq(</font><font face="Verdana" color="#FFFFFF" size="3"><br>);
chomp $_;
print $_;
print qq(</font><font face="Verdana" color = "#FF9946" size="2">);
$linecounter++;
next;
}
if ($linecounter == 2)
{
print qq(</font><font face="Verdana" color="#BBBBBB" size="1"><br>);
chomp $_;
print $_;
print qq(</font><font face="Verdana" color = "#FF9946" size="2"><br>);
$linecounter++;
next;
}
$_=~s#:\)#<img src="../smiley/001_smile.gif">#g;
$_=~s#:P#<img src="../smiley/001_tt2.gif">#g;
$_=~s#:S#<img src="../smiley/001_unsure.gif">#g;
$_=~s#:D#<img src="../smiley/biggrin.gif">#g;
$_=~s#oO#<img src="../smiley/blink.gif">#g;
$_=~s#:/#<img src="../smiley/bored.gif">#g;
$_=~s#8\)#<img src="../smiley/cool.gif">#g;
$_=~s#:'\(#<img src="../smiley/crying.gif">#g;
$_=~s#:\(#<img src="../smiley/sad.gif">#g;
print $_."<br>";
}
print qq(</font></justify><br><hr>);
$linecounter = 0;
close THREAD;
}
print qq(</body></html>);