#!/usr/bin/perl # $Id: tagesthemen,v 1.9 2000/11/30 13:18:24 czyborra Exp root $ exit print "Content-Type: text-plain\n\n", `cat $0` if $ENV{"PATH_INFO"} eq "/source"; $id=sprintf("%08X%04X",$^T,$$); $[=1; $ENV{"TZ"}="GMT"; $cgi="http://$ENV{SERVER_NAME}$ENV{SCRIPT_NAME}"; chdir "/var/lib/themenvorschau/tagesthemen/"; close STDIN; $mtime=`find -prune -printf '%Ta, %Td %Tb %TY %TT %TZ'`; if ($ENV{"HTTP_IF_MODIFIED_SINCE"} eq $mtime) { print "Status: 304 Not Modified\n\n"; exit; } @F=("Tag¹", "Thema", "Form", "Idee von", "willige AutorinnEn", "Stand"); @W=( 11, 21, 11, 11, 21, 11); foreach (split ("&", $ENV{"QUERY_STRING"})) { s/[<|>"+\n]/ /g; s/%([0-9A-F]{2})/pack('H2', $1)/gie; $value{$name}= $value if ($name, $value)= split('=',$_,2); } if ($_ = $value{"del"}) { /^\w/ && rename ("./$_", "./.../$_"); } if ($value{"F1"}) { open (FILE,"> $id"); for (1..$#F) { print FILE "$value{F.$_}"; }; print FILE "[Ä]", "[L]", "[V]\n"; close FILE; print "Location: $cgi?rel=$id\n\n"; exit; } print "Content-Type: text/html\nLast-Modified: $mtime\nExpires: $mtime\n Tagesthemen-Vorschau\n

taz, die themenvorschau:

\n"; if ($_= $value{"use"}) { print "

\n"; if (open (FILE, "< $_")) { @_=split("",); close FILE; print "\n" unless $value{"del"} eq "no"; } print ""; for (1..$#F) { print ""; } print "\n"; for (1..$#F) { print ""; } print "

$F[$_]

\n"; } print "
"; for (@F) { print "$_ " }; print "[Neues]²
\n"; print `sort -f * < /dev/null`, "

¹) Erscheinungsdatum bitte im ISO-Format JJJJ-MM-TT für die Sortierung
²) Ä = Ändern, L = Löschen, V = als Vorlage verwenden