poster.pl
use CGI qw/:standard -private_tempfiles/;
use CGI::Carp qw( fatalsToBrowser );
use Socket; # new for v0.3z - resolve hostname remote_addr
# resolve hostname
if ( $remote_addr ) {
$remote_addr_dns = gethostbyaddr(inet_aton($remote_addr), AF_INET);
$remote_addr_dns = $remote_addr unless $remote_addr_dns;
}
use File::Copy;
use Fcntl qw( :DEFAULT :flock ); # used at additem.pl > GetImage
use Image::Magick; # used at additem.pl > GetImage
use lib '/home/pacs/mih15/users/qtipp/doms/q-tipp.org/cgi/includes';
use RSS;
# use Apache::Htgroup;
use Htgroup; # used by check
sub Rss2Mail {
# utf-8 -> iso latin
use Unicode::String qw(utf8 latin1 utf16);
printfeed.pl
use Date::DayOfWeek?;
my @wochentag = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
my $dow = dayofweek( $date[2], $date[1], $date[0] ); # dd, mm, yyyy
my $de_date = sprintf ("%02d.%02d.%02d", $date[2],$date[1],$date[0]-2000);
print "$wochentag[$dow], $de_date";