#! /usr/bin/perl -w use strict; use CGI; my $cgi = new CGI; use CGI::Carp qw(fatalsToBrowser); use Date::Pcalc qw ( check_date Date_to_Days Date_to_Text_Long Date_to_Text Day_of_Week Language ); Language(3); # deutsch my $prog = "http://www.lenz-online.de/blog/cgi-bin/blog.pl"; my $page = "../001-FinnJob"; my @mname = ("X","Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember"); my @tname = ("X","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag","Sonntag"); my @jlist; # alle Jahre my @mlist; # Monate des lfd. Jahres my @tlist; # Tage des lfd. Monats my @files; my $mj = 0; # höchstes Jahr my $mm = 0; # höchster Monat my $lj = 0; # laufendes Jahr my $lm = 0; # laufender Monat my $max; # Anzahl Einträge my $j; my $m; my $t; my $i; my $ad = ""; # Admin-Mode my $z = -1; opendir(DIR,"$page"); @files = readdir(DIR); closedir(DIR); @files = sort(@files); while (substr($files[0], 0, 1) lt "2") {shift(@files);} # . löschen while (substr($files[@files-1], 0, 1) gt "2") {pop(@files);} # A löschen $max = @files; my $heute; # soll gelesen werden my $cookie = 1; # Programm wurde schon benutzt if (my @Feldnamen = $cgi->param()) { if ($cgi->param('muu')) {aendern()} # Eintrag ändern $i = $cgi->param('link'); if ($i) { if ($i eq "ja") {$ad = "&link=ja"} # Admin-Mode eingeschaltet if ($i eq "dir") {uebersicht()} # Übersicht ausgeben if ($i eq "such") {suchen()} # Stichwort suchen } $heute = $cgi->param('h'); # Vorgabe if ($heute && $heute =~ /[0-9]{6}/) {} else { if ($heute =~ /(http|www)/) {spammer(1)} else {spammer(2)} } } else # keine Vorgabe: { # $cookie = GetCookie("BlogLetzt"); # if ($cookie) # { # $heute = $cookie; # $cookie = 2; # Cookie auswerten # } # else # { $cookie = 0; # Programm wurde noch nie benutzt $i = $files[0]; # Anfang $heute = substr($i, 0, 8); # } } $lj = substr($heute, 0, 4); $lm = substr($heute, 4, 2); $i = 0; foreach (@files) { $j = substr($_, 0, 4); $m = substr($_, 4, 2); $t = substr($_, 6, 2); if (substr($_, 0, 4) . "0000" eq $heute) # Monat 00 --> dito { $heute = $j . $m . $t; $lm = $m; } if (substr($_, 0, 6) . "00" eq $heute) # Tag 00 --> ersten vorh. Tag suchen { $heute = $j . $m . $t; } if ($j gt $mj && $j * 1.0 > 1.0) { $mj = $j; push(@jlist, $j); # neues Jahr } if ($j eq $lj && $m gt $mm) { $mm = $m; push(@mlist, $m); # neuer Monat für laufendes Jahr } if ($j eq $lj && $m eq $lm) { push(@tlist, $t); # alles passt: neuer Tag } if (substr($_, 0, 8) eq $heute) {$z = $i} # aktueller Zähler $i++; } print $cgi->header(); print "\n\n"; print "\n"; print "\n"; print "Paul's Finnland-Job-Blog\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($z < 0) { print "
Mein Job in Finnland:  "; if ($cookie > 1) { $z++; # nächster ungelesener Tag $i = @files - 1; # höchstes Datum if ($z > $i) {$z = $i} $heute = substr($files[$z], 0, 8); } #$i = GetCookie("BlogLetzt"); #if ($i) #{ # if ($heute gt $i) {SetCookie("BlogLetzt", $heute)} #} #else #{ # SetCookie("BlogLetzt", $heute); #} foreach(@jlist) { if (substr($heute, 0, 4) eq $_) { print "" . $_ . "  " } else { print "$_  "; } } print "\n"; print "   Übersicht\n"; print "   alle Blogs ↑\n"; print "   Home
$lj:   "; foreach(@mlist) { $t = substr($mname[$_], 0, 3); if ($mname[$_] =~ /rz/) {$t = "Mär"} if (substr($heute, 4, 2) eq $_) { print "" . $t . "  " } else { print ""; print $t . "  "; } } print "
" . $mname[$lm] . ":  "; foreach(@tlist) { if (substr($heute, 6, 2) eq $_) { if ($ad gt "") { print "Edit $_  "; } else { print "$_  "; } } else { print "$_  "; } } print "

Fehleingabe!

\n"; exit(); } #if ($cookie < 1) #{ # print ""; # print "Willkommen bei meinem Blog!
"; # print "Dieses Programm speichert den letzten von Dir angeschauten Tag und startet bei Deinem "; # print "nächsten Besuch automatisch bei dem darauffolgenden Tag. Man kann vorwärts oder zurück "; # print "blättern oder oben im \"Kalender\" einzelne Tage auswählen. Eine Liste aller Einträge "; # print "mit Datum und Überschrift findet man rechts oben unter \"Übersicht\", dort gibt es auch "; # print "eine einfache Suchmaschine, mit der man nach Stichwörtern suchen kann.

"; # print "Dieser Hinweis erscheint nur bei Deinem ersten Besuch.

"; # print "Viel Spaß beim Lesen wünscht Paul\n"; #} print ""; print ""; print ""; print ""; $j = substr($heute, 0, 4); $m = substr($heute, 4, 2); $t = substr($heute, 6, 2); $t = $tname[Day_of_Week($j, $m, $t)] . ", " . $t; $m = $mname[$m]; print ""; print ""; print "
"; if ($z > 0) {print "Anfang"} else {print "  "} print ""; if ($z > 0) {print "zurück"} else {print "  "} print " $t. $m $j "; if ($z < $max - 1) {print "weiter"} else {print "  "} print ""; if ($z < $max - 1) {print "Ende"} else {print "  "} print "
\n"; print "\n"; open(DAT, "<$page/$heute.htm") || die "Datei $page $heute nicht gefunden"; my @Zeilen = ; close(DAT); $z = shift(@Zeilen); # Überschrift print "

$z

\n"; print "

\n"; foreach(@Zeilen) { $z = $_; $z =~s/\/blog\//\/001-FinnJob\//ig; print $z; } print "\n\n"; print "\n"; print "\n"; ########################################################################################### sub aendern { my $fname = $cgi->param('muu'); my $file; my @text; my $wort; print $cgi->header(); print "\n\n"; print "\n"; print "Paul's Finnland-Job-Blog\n\n"; if ($fname eq "save") { print "param('Date') . "&link=ja\">"; print "\n"; print "\n"; } else { print "\n"; print "\n"; print "\n"; } print "\n"; if ($fname eq "save") { $wort = $cgi->param('Text'); $fname = $cgi->param('Date'); open(DAT, ">$page/$fname.htm") || die "$! - Datei $fname nicht gefunden"; print DAT $wort; close(DAT); chmod(0777, "$page/$fname.htm"); $file = $cgi->param("Myfile"); if (length($file) > 2) { my $pname = $file; $pname =~ s/.*(\/|\\)//; # ohne Pfadangaben $pname = lc($pname); open DAT,'>'."$page/pics/$pname" || die $!, ' - Error beim Hochladen von ',$fname; binmode $pname; # Dateien in den Binär-Modus schalten binmode DAT; my $data; while(read $file, $data, 1024) {print DAT $data} close DAT; print "Datei mit "; print -s $pname; print " Bytes auf $page/pics/$pname hochgeladen.
\n"; chmod(0777, "$page/pics/$pname"); } print "fertig: anschauen\n"; print "\n"; print "\n"; } else { if (-e "$page/$fname.htm") { open(DAT, "<$page/$fname.htm") || die "Datei $heute nicht gefunden"; @text = ; close(DAT); } else { @text = ("",""); } print "

$fname

\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "Datei:   \n"; print "   \n"; print "   \n"; print "\n"; print "
\n"; print "\n"; print "\n"; } exit(); } sub uebersicht { my $jhr = 0; my $mon = 0; my $j; my $m; my $d; my $n; print $cgi->header(); print "\n\n"; print "\n"; print "Paul's Finnland-Job-Blog\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; opendir(DIR,"$page"); @files = readdir(DIR); closedir(DIR); @files = sort(@files); while (substr($files[0], 0, 1) lt "2") {shift(@files);} # . löschen while (substr($files[@files-1], 0, 1) gt "2") {pop(@files);} # A löschen foreach (@files) { $j = substr($_, 0, 4); $m = substr($_, 4, 2); $t = substr($_, 6, 2); if ($j > $jhr) { print "\n"; $mon = 0; $jhr = $j; } else { print "\n"; } if ($m > $mon) { $n = $mname[$m]; if ($n =~ /rz/) {$n = "März"} print "\n"; $mon = $m; } else { print "\n"; } $m = $tname[Day_of_Week($j, $m, $t)]; print "\n"; print "\n"; open(DAT, "<$page/$_") || die "Datei $page $_ nicht gefunden"; my @Zeilen = ; close(DAT); $t = substr($_, 0, 8); $m = shift(@Zeilen); # Überschrift print "\n"; } print "
\n"; print "Mein Job in Finnland - Übersicht "; print "                  "; print "\n"; print "\n"; print "\n"; print "
$j
  $n   $m $t. $m
\n"; exit(); } sub suchen { my $gef; my $fname; my @Zeilen; my $Zeilen; my $anf; my $such = $cgi->param('such'); my $result = 0; print $cgi->header(); print "\n\n"; print "\n"; print "Paul's Finnland-Job-Blog\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; opendir(DIR,"$page"); @files = readdir(DIR); closedir(DIR); @files = sort(@files); while (substr($files[0], 0, 1) lt "2") {shift(@files);} # . löschen while (substr($files[@files-1], 0, 1) gt "2") {pop(@files);} # A löschen foreach (@files) { $fname = substr($_, 0, 8); open(DAT, "<$page/$_") || die "Datei $page $_ nicht gefunden"; @Zeilen = ; close(DAT); foreach (@Zeilen) {$_ =~ s/[\n\r]//g;} $Zeilen = join(" ", @Zeilen); $Zeilen =~ s/<.*?>//g; $gef = 0; do { $gef = index($Zeilen, $such, $gef); if ($gef > -1) { $anf = $gef - 50; if ($anf < 0) {$anf = 0} print "\n"; $result = 1; $gef = $gef + 40; } } until ($gef < 0); } print "\n"; if ($result < 1) {print "\n"} print "\n"; print "
Mein Job in Finnland - Suchergebnisse:
"; print substr($fname, 6) . "." . substr($fname, 4, 2) . "." . substr($fname, 0, 4); print ""; $result = substr($Zeilen, $anf, 100); $result =~ s/$such/$such<\/B>/g; print "$result
 
Das Suchwort $such wurde leider nicht gefunden.
Zurück zur Übersicht
\n"; print "\n"; exit(); } ################### Subroutinen ############################# sub SetCookie { my $CookieDauer = 365; # Tage my $CookieName = $_[0]; my $CookieWert = $_[1]; my $Verfall = time() + $CookieDauer * 60 * 60 * 24; $Verfall = localtime($Verfall); print "Set-Cookie: " . $CookieName . "=" . $CookieWert . ";"; print " expires=$Verfall;"; print " path=/;"; print " domain=www.lenz-online.de;"; print "\n"; } sub GetCookie { my %AlleCookies; my @RohCookies; my ($N_cookie, $W_cookie); # Rohcookies trennen $N_cookie = $ENV{'HTTP_COOKIE'}; if ($N_cookie) { @RohCookies = split (/; /,$ENV{'HTTP_COOKIE'}); # Name / Wert Paare trennen foreach (@RohCookies) { ($N_cookie, $W_cookie) = split (/=/,$_); $AlleCookies{$N_cookie} = $W_cookie; } return $AlleCookies{$_[0]}; } else {return ""} } sub spammer { my $spam = shift; if ($spam > 1) {$spam = "Manual input does not work here, sorry.
Manuellen Eingaben laufen hier nicht."} else {$spam = "Piss off you little stupid fucking spammer!"} print $cgi->header(); print "\nPiss off!!!\n\n"; print "\n"; print "

$spam

\n"; exit(); }