#!/usr/bin/perl -w
#rss.pl
#
#
#
package rss;
$|++;
use vars qw($ddns $ee $rr $ii $debug $mpc @text $stukjehead);
use strict;
use jip;
$ddns=ddns();
use Date::Manip;
use CGI qw(:standard :html3);
use File::Find;
my $Q = new CGI;
$debug=$Q->param('debug');
print $Q->header(-type=>'text/html',
-expires=>'-1day');
&main($Q);
sub main{
my ($Q)=shift;
$rr++;
my $id=$Q->param('id');
my $cmd=$Q->param('cmd');
$id="mom" unless $cmd;
if ($id && $id eq 'mom'){
print mom();
}else{
$id="unknown" unless($id);
$cmd="ximg" if ($cmd eq 'img');
my $doe="print $cmd(\'$id\');";
err($doe) if $debug;
my $res=eval($doe);
err($@);
print $@ if ($debug);
err($res);
print "(i:$ii e:$ee r:$rr)" if ($debug);
}
}
sub err{
my $i=shift;
print "$i
\n" if $debug;
}
sub hoofd{
my $id=shift;
my $r;
$stukjehead=`cat /www/stukjes/head` unless $stukjehead;
$r = <
|
Kwark > $id
|
$stukjehead
|
GROK
$r;
}
sub screenshots{
my @files;
my $dir="/www/gfx/screenshots/";
# @files=`find $dir -name thumb\-\*.png`;
@files=grep !/\.thumbnails\//, `find $dir -name thumb\-\*`;
chop (@files);
for my $i (@files){
$i =~ s!/www/!http://$ddns/!;
my $thumb=$i;
my $pic=$i;
$pic =~ s!thumb-!!;
print <
GROK
}
}
sub ximg{
use Image::Size;
my $id=shift;
my $i;
if ($id eq 'latest'){
$i=`find /www/gfx/ -name \*\.jpg |grep -v xvpics |tail --lines=1`;
chop ($i);
}else{
my @files=`find /www/gfx/ -name \*.jpg|grep -v xvpics`;
chop (@files);
$i=$files[rand(@files)];
}
my ($w,$h)=imgsize($i);
my $comment=jpg_comment($i);
my ($s,$mesg)=("","");
$mesg .= $w."x".$h;
if ($w > $h){
#$mesg .= " w=100%";
$s='width="100%"';
}else{
#$mesg .= " h=100%";
$s='height="90%"';
}
$i =~ s!/www/gfx/!/gfx/!;
my $title=$i;
$title =~ s!/gfx/!!;
my $tablewidth;
$tablewidth='width="100%"' unless ($id eq 'latest');
return <
GROK
}
sub mp3{
my $limit;
unless ($mpc){
$limit="15" unless $limit;
my %when=ff('mp3','nietterzake');
my @names = sort { $when{$b} <=> $when{$a}; } keys %when;
splice(@names, $limit); # discard older stuff
$mpc="";
}
print $mpc;
return "";
}
sub lastaccess{
#localhost - - [30/Mar/2000:17:39:22 +0200] "GET / HTTP/1.0" 200 28856 "-" "Mozilla/4.72 [en] (X11; I; Linux 2.2.6 i586)"
my @last=`tail --lines=3400 /var/log/apache/access_log|grep '"GET / HTTP/1.[10]"' |grep -v localhost|grep -v utr.casema.net`;
print "\n";
return '';
}
sub getmpi{
my ($file)=@_;
# use MPEG::MP3Info;
my ($des,$length);
# if $mp3desCache{$file}{
# $des=$mp3desCache{$file};
# }else{
# $des="todo$file";
# }
# my $tit=$tag->{TITLE} unless $warn;
# my $art=$tag->{ARTIST} unless $warn;
# my $minu=$info->{MM};
# my $secs=$info->{SS};
# $length="probalby prut";
# if ($minu||$secs){
# $secs="0".$secs unless($secs>9);
# $length="$minu:$secs";
# }
($des) = $file =~ m!.*/(.*)!;
$des=~ s!\.mp3$!!;
$length="";
return $des,$length;
}
sub toencode{
my($toencode) = @_;
$toencode=~s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;
return $toencode;
}
sub com{
my ($id)=shift;
my $file="/www/XML/gist/$id.xml";
err("comment $id") if $debug;
# if (-e $file){
err( "li well");
my $domdoc=&domdoc($file);
err( " d ".$domdoc);
my @comment= $domdoc->getElementsByTagName('comment');
foreach my $c (@comment){
err(" spui($c); ");
print &spuicomment($c);
}
# }else{print " no file $file ";}
}
sub domdoc{
my $file=shift;
my $parser;
if ($parser) {
err( "parserda ") if ($debug);
} else {
$parser = new XML::DOM::Parser;
err( "created domparser: ".$parser) if($debug);
}
$parser->parsefile ("$file") || die "Cant domopen file $file $!\n";
}
sub hmm{
my ($id)=@_;
my $rssfile="/www/XML/rss/$id.rss";
my $rsshtml="/www/stukjes/rss/$id";
my @fdate=stat $rssfile;
my @hdate=stat $rsshtml;
print $rsshtml,":",$hdate[9],"\n" if $debug;
print $rssfile,":",$fdate[9],"\n" if $debug;
if ($hdate[9] lt $fdate[9]){
print "html older than rss, make html from rss please" if $debug;
update_rss_stukje($rssfile,$rsshtml);
}else{
print "html up to date" if $debug;
}
open (ST,"<$rsshtml");
while (){print $_;}
close ST;
return "";
}
sub update_rss_stukje{
my ($rssfile,$rsshtml)=@_;
use XML::RSS;
my $rss=new XML::RSS;
my $content;
my $file=$rssfile;
die "File \"$file\" does't exist.\n" unless -e $file;
$rss->{'channel'}->{'title'}='';
$rss->{'channel'}->{'link'}='';
$rss->parsefile($file);
my $html = print_html($rss);
open(ST,">$rsshtml")||die "$!";
print ST $html;
close ST;
return "";
# undef($rss);
}
1;
sub IGNORE { # don't notice these files
## $_[0] is basename, $_[1] is full path
return 1 if ($_[0] !~ /\.mp3/i);
return 1 if ($_[1] =~ /incoming/);
return 0;
}
sub ff{
use vars qw(%when);
my ($ext,$HOWMANY)=@_;
err("finding files..");
my (@TOP) = qw(/fire/mp3/);
#my (%when);
find (sub {
# return $File::Find::prune = 1 if PRUNE $_, $File::Find::name;
# return if PRUNE $_, $File::Find::name;
return unless -f; # only files
return if IGNORE $_, $File::Find::name;
$when{$File::Find::name} = (stat _)[9];
}, @TOP) ;
%when;
}
sub mom{
BEGIN{
srand (time() ^ ($$+($$<<15)));
my $file = "/www/Doc/etext/momus/*";
my $text = `cat $file`;
my $i=0;
my ($stext) = $text =~ /.+left>(.*)
/;
$text = $stext;
$text =~ s/
/
/g;
my(@lines) = split /
/ , $text;
foreach my $line (@lines){
$line =~ s/puntpuntpunt/\./g;
$text[$i]= $line;
$i++;
}
}
my $zin = $text[rand @text];
$zin =~ s/^ //g;
$zin;
}
#------------ ut
sub di{
my $user=shift;
my $tagname=shift;
my $re;
my $t = $user->getElementsByTagName("$tagname");
my $ar=$t->[0];
#print "geen $tagname" unless $ar;
my $arr=$ar->getFirstChild if $ar;
$re = $arr->getData if $ar;
$re;
}
#-----------end ut
sub print_html {
my $rss = shift;
my $r = <