#!/usr/bin/perl -w
#tv fav
#
#
#
package TV::gist;
use CGI qw(:standard :html3);
use CGI;
use XML::Parser;
use Data::Dumper;
use Date::Manip;
use XML::DOM;
#use XML::XQL;
#use XML::XQL::DOM;
$|=1;$:=1;
$Q=new CGI;
print $Q->header(-type=>'text/html',
-expires=>'-1day');
$Qself = $Q->self_url;
$Qselfs = $Q->url;
$action=$Q->param('action');
$action="show" unless ($action);
my $noti="";
my $file="";
my $ddns="kwark.penguinpowered.com";
$gistdir="/www/XML/gist";
$rssdir="/www/XML/rss";
my $furl="";
$nowso= &UnixDate('now',"%Y-%m-%d %H:%M:%S (%Z)");
$domdoc="";
$id="";
$id=$Q->param('id');
if ($id){
$file="$gistdir/$id.xml";
unless (-r $file){
$noti= "file $file created";
my $tdoc=&domdoc('/www/XML/gist.template');
$tdoc->printToFile($file);
}
if (-r $file){
$domdoc=&domdoc($file);
$furl=$file;
$furl =~ s!/www!http://$ddns!;
}else{
print "fucked up geen file";
exit 0;
}
}
print <
kwark gist $action $id
$noti
Kwark->
gist->
$action
GROK
@element_set=(
'dc.title',
'dc.creator',
'dc.subject',
'dc.description',
'dc.date',
'dc.type',
'dc.format',
'dc.indentifier',
'dc.source',
'dc.relation',
'edit-date',
'img.width',
'img.height',
'img.size',
'remote-date',
'local_file',
);
@comment_set=('name',
'email',
'url',
'date',
'remote_host',
'http_user_agent',
'text'
);
#-------------------------------------------------------------------main
if($action eq "addcomment" && $id){
print <$id)
GROK
print "you wrote:
\n";
foreach my $i (@comment_set){
my $v= $Q->param($i);
print "$i: $v
\n" if ($v);
}
if ($Q->param('text')){
my $frag=$domdoc->createElement("comment");
foreach my $i (@comment_set){
my $v= $Q->param($i);
if ($v){
my $el=$domdoc->createElement($i);
my $tn=$domdoc->createTextNode($v);
$el->appendChild($tn);
$frag->appendChild($el);
}
}
my $gist=$domdoc->getElementsByTagName("gist");
$gist->[0]->appendChild($frag);
my $nl=$domdoc->createTextNode("\n");
$gist->[0]->appendChild($nl);
print "<![CDATA[".$frag->toString."]]>will be ";
# print "<![CDATA[".$domdoc->toString."]]>";
$domdoc->printToFile("$file");
print "saved\n";
}else{
print "nothing.
geen text; geen dom: go back
";
}
#----------------------------------------show
}elsif ($action eq "show" && $id){
print "($id)\n
\n\n";
if (-r $file){
my $re = &spuidc($file);
my $redo = &spuido($file);
print <$id
edit
$re
$redo
GROK
my @comment= $domdoc->getElementsByTagName('comment');
print "
\n";
foreach my $c (@comment){
print &spuicomment($c);
}
print &spuiaddform;
print "
\n";
}else {
print "
no file fucked up
";
}
}elsif($action eq "adddc" && $id && $Q->param('createdc') eq "yes"){
print "($id)\n
\ncreate dc element";
my $local_file=$Q->param('local_file');
if ($local_file){
print " for $local_file";
print &spuidcformplus($local_file);
}else{
print "fucked up";
}
}elsif($action eq "adddc" && $id){
print "($id)\n
\n";
print &adddc;
}elsif ($action eq "edit" && $id){
print "($id)";
print "\n
\n\n";
my $r="";
# print &spuiimg($id);
print &spuidcform;
}elsif ($action){
#
#
print "all
\n
\n\n";
print &spuiall;
#
#
}else{
#
#
print "nothing to do here.
\n
\n and try a legal url.";
}
#end of action?
print <
pip\@dds.nl changed
gist.pl.