"Clean up code, more style compatible (for as far as that is possible
with Perl code)" PR: www/124055 Submitted by: edwin
This commit is contained in:
Remko Lodder
parent
b8b3963f25
commit
b79cea38a1
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=32089
1 changed files with 234 additions and 198 deletions
|
|
@ -1,7 +1,7 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
#
|
||||
# $Id: multimedia.pl,v 1.1 2007-05-15 21:30:41 keramida Exp $
|
||||
# $Id: multimedia.pl,v 1.2 2008-05-30 15:22:01 remko Exp $
|
||||
# $FreeBSD$
|
||||
#
|
||||
|
||||
|
|
@ -10,148 +10,164 @@ use XML::Parser;
|
|||
use Data::Dumper;
|
||||
use POSIX;
|
||||
|
||||
my @months=(
|
||||
"","January","February","March",
|
||||
"April","May","June","July",
|
||||
"August","September","October",
|
||||
"November","December"
|
||||
my @months = (
|
||||
"", "January", "February", "March",
|
||||
"April", "May", "June", "July",
|
||||
"August", "September", "October",
|
||||
"November", "December"
|
||||
);
|
||||
|
||||
my @createdfiles=();
|
||||
my @createdfiles = ();
|
||||
|
||||
my @tree=();
|
||||
my @values=();
|
||||
my $treeindex=-1;
|
||||
my @tree = ();
|
||||
my @values = ();
|
||||
my $treeindex = -1;
|
||||
|
||||
my @items;
|
||||
my $ci=-1;
|
||||
my $ci = -1;
|
||||
my %sources;
|
||||
my $sid="";
|
||||
my $sid = "";
|
||||
my %tags;
|
||||
|
||||
sub addtags {
|
||||
my $tags=shift;
|
||||
my $tags = shift;
|
||||
|
||||
if ($tags) {
|
||||
my @w=split(/,/,$tags);
|
||||
my @w = split(/,/, $tags);
|
||||
foreach my $w (@w) {
|
||||
$tags{$w}=0 if (!defined $tags{$w});
|
||||
$tags{$w} = 0 if (!defined $tags{$w});
|
||||
$tags{$w}++;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
my $array=shift;
|
||||
my @array=@{$array};
|
||||
my $array = shift;
|
||||
my @array = @{$array};
|
||||
foreach my $w (@array) {
|
||||
$tags{$w}=0 if (!defined $tags{$w});
|
||||
$tags{$w} = 0 if (!defined $tags{$w});
|
||||
$tags{$w}++;
|
||||
}
|
||||
}
|
||||
|
||||
sub xml_start {
|
||||
my $expat=shift;
|
||||
my $element=shift;
|
||||
my $expat = shift;
|
||||
my $element = shift;
|
||||
|
||||
$tree[++$treeindex]=$element;
|
||||
while (defined (my $attribute=shift)) {
|
||||
$values[$treeindex]{$attribute}=shift;
|
||||
$tree[++$treeindex] = $element;
|
||||
while (defined (my $attribute = shift)) {
|
||||
$values[$treeindex]{$attribute} = shift;
|
||||
}
|
||||
|
||||
if ($element eq "item"
|
||||
&& $treeindex==2) {
|
||||
&& $treeindex == 2) {
|
||||
$ci++;
|
||||
$items[$ci]=();
|
||||
$items[$ci]{source}=$values[$treeindex]{source};
|
||||
$items[$ci]{added}=$values[$treeindex]{added};
|
||||
$items[$ci]{ci}=$ci;
|
||||
$items[$ci]{fc}=-1;
|
||||
$items[$ci] = ();
|
||||
$items[$ci]{source} = $values[$treeindex]{source};
|
||||
$items[$ci]{added} = $values[$treeindex]{added};
|
||||
$items[$ci]{ci} = $ci;
|
||||
$items[$ci]{fc} = -1;
|
||||
}
|
||||
|
||||
if ($element eq "source"
|
||||
&& $treeindex==2) {
|
||||
$sid=$values[$treeindex]{id};
|
||||
$sources{$values[$treeindex]{id}}=();
|
||||
&& $treeindex == 2) {
|
||||
$sid = $values[$treeindex]{id};
|
||||
$sources{$values[$treeindex]{id}} = ();
|
||||
}
|
||||
|
||||
if ($element eq "url"
|
||||
&& $treeindex == 5) {
|
||||
$items[$ci]{fc}++;
|
||||
}
|
||||
}
|
||||
|
||||
sub xml_end {
|
||||
my $expat=shift;
|
||||
my $element=shift;
|
||||
my $expat = shift;
|
||||
my $element = shift;
|
||||
|
||||
$values[$treeindex]=();
|
||||
$values[$treeindex] = ();
|
||||
$treeindex--;
|
||||
}
|
||||
|
||||
sub xml_char {
|
||||
my $expat=shift;
|
||||
my $value=shift;
|
||||
my $expat = shift;
|
||||
my $value = shift;
|
||||
|
||||
if ($tree[0] eq "multimedia") {
|
||||
return if ($treeindex==0);
|
||||
return if ($treeindex == 0);
|
||||
|
||||
if ($tree[1] eq "items") {
|
||||
return if ($treeindex==1);
|
||||
return if ($treeindex == 1);
|
||||
|
||||
if ($tree[2] eq "item") {
|
||||
return if ($treeindex==2);
|
||||
return if ($treeindex == 2);
|
||||
|
||||
if ($tree[3] eq "title") {
|
||||
$items[$ci]{title}=$value;
|
||||
$items[$ci]{title} = "" if (!defined $items[$ci]{title});
|
||||
$items[$ci]{title} .= $value;
|
||||
return;
|
||||
}
|
||||
if ($tree[3] eq "desc") {
|
||||
$items[$ci]{desc}="" if (!defined $items[$ci]{desc});
|
||||
$items[$ci]{desc}.=$value;
|
||||
$items[$ci]{desc} = "" if (!defined $items[$ci]{desc});
|
||||
$items[$ci]{desc} .= $value;
|
||||
return;
|
||||
}
|
||||
if ($tree[3] eq "overview") {
|
||||
$items[$ci]{overview}=$value;
|
||||
$items[$ci]{overview} = "" if (!defined $items[$ci]{desc});
|
||||
$items[$ci]{overview} .= $value;
|
||||
return;
|
||||
}
|
||||
if ($tree[3] eq "link") {
|
||||
$items[$ci]{link}=$value;
|
||||
$items[$ci]{link} = "" if (!defined $items[$ci]{link});
|
||||
$items[$ci]{link} .= $value;
|
||||
return;
|
||||
}
|
||||
if ($tree[3] eq "tags") {
|
||||
@{$items[$ci]{tags}}=split(/,/,$value);
|
||||
@{$items[$ci]{tags}} = split(/,/, $value);
|
||||
addtags($value);
|
||||
return;
|
||||
}
|
||||
|
||||
if ($tree[3] eq "files") {
|
||||
return if ($treeindex==3);
|
||||
return if ($treeindex == 3);
|
||||
|
||||
if ($tree[4] eq "prefix") {
|
||||
$items[$ci]{prefix}="" if (!defined $items[$ci]{prefix});
|
||||
$items[$ci]{prefix}.=$value;
|
||||
$items[$ci]{prefix} = "" if (!defined $items[$ci]{prefix});
|
||||
$items[$ci]{prefix} .= $value;
|
||||
return;
|
||||
}
|
||||
|
||||
if ($tree[4] eq "file") {
|
||||
return if ($treeindex==4);
|
||||
return if ($treeindex == 4);
|
||||
|
||||
if ($tree[5] eq "url") {
|
||||
$items[$ci]{fc}++;
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{url}=$value;
|
||||
# Note that $items[$ci]{fc} gets incremented in xml_start
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{url} = ""
|
||||
if (!defined $items[$ci]{files}{$items[$ci]{fc}}{url});
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{url} .= $value;
|
||||
return;
|
||||
}
|
||||
if ($tree[5] eq "size") {
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{size}=$value;
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{size} = ""
|
||||
if (!defined $items[$ci]{files}{$items[$ci]{fc}}{size});
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{size} .= $value;
|
||||
return;
|
||||
}
|
||||
if ($tree[5] eq "length") {
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{length}=$value;
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{length} = ""
|
||||
if (!defined $items[$ci]{files}{$items[$ci]{fc}}{length});
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{length} .= $value;
|
||||
return;
|
||||
}
|
||||
if ($tree[5] eq "desc") {
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{desc}=$value;
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{desc} = ""
|
||||
if (!defined $items[$ci]{files}{$items[$ci]{fc}}{desc});
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{desc} .= $value;
|
||||
return;
|
||||
}
|
||||
if ($tree[5] eq "tags") {
|
||||
@{$items[$ci]{files}{$items[$ci]{fc}}{tags}}=split(/,/,$value);
|
||||
@{$items[$ci]{files}{$items[$ci]{fc}}{tags}} = split(/,/, $value);
|
||||
addtags($value);
|
||||
addtags("",$items[$ci]{tags});
|
||||
addtags("", $items[$ci]{tags});
|
||||
return;
|
||||
}
|
||||
goto error;
|
||||
|
|
@ -164,17 +180,17 @@ sub xml_char {
|
|||
}
|
||||
|
||||
if ($tree[1] eq "sources") {
|
||||
return if ($treeindex==1);
|
||||
return if ($treeindex == 1);
|
||||
|
||||
if ($tree[2] eq "source") {
|
||||
return if ($treeindex==2);
|
||||
return if ($treeindex == 2);
|
||||
|
||||
if ($tree[3] eq "name") {
|
||||
$sources{$sid}{name}=$value;
|
||||
$sources{$sid}{name} = $value;
|
||||
return;
|
||||
}
|
||||
if ($tree[3] eq "url") {
|
||||
$sources{$sid}{url}=$value;
|
||||
$sources{$sid}{url} = $value;
|
||||
return;
|
||||
}
|
||||
goto error;
|
||||
|
|
@ -188,7 +204,7 @@ error:
|
|||
print "Unknown item at depth $treeindex: $tree[$treeindex]\n";
|
||||
}
|
||||
|
||||
my $p=new XML::Parser(
|
||||
my $p = new XML::Parser(
|
||||
Handlers => {
|
||||
Start => \&xml_start,
|
||||
End => \&xml_end,
|
||||
|
|
@ -197,64 +213,83 @@ my $p=new XML::Parser(
|
|||
);
|
||||
$p->parsefile("multimedia-input.xml");
|
||||
|
||||
my @site_order=();
|
||||
my @site_order = ();
|
||||
{
|
||||
sub site_sort {
|
||||
my %a=%{$a};
|
||||
my %b=%{$b};
|
||||
my %a = %{$a};
|
||||
my %b = %{$b};
|
||||
return $a{source} cmp $b{source}
|
||||
if ($a{source} ne $b{source});
|
||||
return $a{title} cmp $b{title};
|
||||
}
|
||||
@site_order=sort site_sort @items;
|
||||
@site_order = sort site_sort @items;
|
||||
}
|
||||
|
||||
my @date_order=();
|
||||
my @date_order = ();
|
||||
{
|
||||
my %dates=();
|
||||
my %dates = ();
|
||||
foreach my $item (@items) {
|
||||
my %item=%{$item};
|
||||
$dates{$item{ci}}=$item{added};
|
||||
my %item = %{$item};
|
||||
$dates{$item{ci}} = $item{added};
|
||||
}
|
||||
my @dates=keys(%dates);
|
||||
@date_order=sort { $dates{$b} cmp $dates{$a} } @dates;
|
||||
my @dates = keys(%dates);
|
||||
@date_order = sort { $dates{$b} cmp $dates{$a} } @dates;
|
||||
}
|
||||
|
||||
#
|
||||
# HTML overview output
|
||||
#
|
||||
sub print_htmlitem {
|
||||
my $item=shift;
|
||||
my %item=%{$item};
|
||||
my $source=shift;
|
||||
my %source=%{$source};
|
||||
my $item = shift;
|
||||
my %item = %{$item};
|
||||
my $source = shift;
|
||||
my %source = %{$source};
|
||||
|
||||
print FOUT "<li><p>";
|
||||
if (defined $item{overview}) {
|
||||
print FOUT "<a href=\"$item{overview}\">$item{title}</a>\n";
|
||||
} else {
|
||||
my %media=%{$item{files}{0}};
|
||||
my %media = %{$item{files}{0}};
|
||||
print FOUT "<a href=\"$media{url}\">$item{title}</a>\n";
|
||||
if (defined $media{size} || defined $media{length}) {
|
||||
my $s="";
|
||||
my $s = "";
|
||||
print FOUT "(";
|
||||
if (defined $media{size}) {
|
||||
print FOUT "$media{size}";
|
||||
$s=", ";
|
||||
$s = ", ";
|
||||
}
|
||||
if (defined $media{length}) {
|
||||
print FOUT "$s$media{length}";
|
||||
$s=", ";
|
||||
$s = ", ";
|
||||
}
|
||||
print FOUT ")";
|
||||
}
|
||||
}
|
||||
print FOUT "<br>Source: <a href=\"",$source{url},"\">",$source{name},"</a><br>\n";
|
||||
print FOUT "Tags: ",join(", ",@{$item{tags}}),"<br>\n";
|
||||
print FOUT "<br>Source: <a href=\"", $source{url}, "\">",
|
||||
$source{name}, "</a><br>\n";
|
||||
print FOUT "Added: ",
|
||||
substr($item{added}, 6, 2), " ",
|
||||
$months[substr($item{added}, 4, 2)], " ",
|
||||
substr($item{added}, 0, 4), "<br>\n";
|
||||
|
||||
print FOUT "Tags: ";
|
||||
{
|
||||
my $first = 1;
|
||||
foreach my $t (@{$item{tags}}) {
|
||||
print FOUT ", " if (!$first);
|
||||
# join(", ", @{$item{$t}}), "<br>\n";
|
||||
my $th = $t;
|
||||
$th =~ s/ /_/g;
|
||||
print FOUT "<a href=\"multimedia-tag-$th.html\">$t</a>";
|
||||
$first = 0;
|
||||
}
|
||||
}
|
||||
print FOUT "<br>\n";
|
||||
|
||||
if (defined $item{overview} && defined $item{files}) {
|
||||
my $c=0;
|
||||
my $c = 0;
|
||||
foreach my $m (keys(%{$item{files}})) {
|
||||
my %file=%{$item{files}{$m}};
|
||||
my %file = %{$item{files}{$m}};
|
||||
print FOUT ", " if ($c++);
|
||||
if (defined $item{prefix}) {
|
||||
print FOUT "<a href=\"$item{prefix}/$file{url}\">$file{desc}</a>";
|
||||
|
|
@ -262,15 +297,15 @@ sub print_htmlitem {
|
|||
print FOUT "<a href=\"$file{url}\">$file{desc}</a>";
|
||||
}
|
||||
if (defined $file{size} || defined $file{length}) {
|
||||
my $s="";
|
||||
my $s = "";
|
||||
print FOUT " (";
|
||||
if (defined $file{size}) {
|
||||
print FOUT "$file{size}";
|
||||
$s=", ";
|
||||
$s = ", ";
|
||||
}
|
||||
if (defined $file{length}) {
|
||||
print FOUT "$s$file{length}";
|
||||
$s=", ";
|
||||
$s = ", ";
|
||||
}
|
||||
print FOUT ")";
|
||||
}
|
||||
|
|
@ -280,35 +315,35 @@ sub print_htmlitem {
|
|||
print FOUT "$item{desc}\n";
|
||||
}
|
||||
{
|
||||
$createdfiles[$#createdfiles+1]="multimedia.html";
|
||||
open(FOUT,">multimedia.html");
|
||||
open(FIN,"multimedia.html.pre");
|
||||
my @lines=<FIN>;
|
||||
$createdfiles[$#createdfiles+1] = "multimedia.html";
|
||||
open(FOUT, ">multimedia.html");
|
||||
open(FIN, "multimedia.html.pre");
|
||||
my @lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
open(FIN,"multimedia.html.intro");
|
||||
@lines=<FIN>;
|
||||
open(FIN, "multimedia.html.intro");
|
||||
@lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
print FOUT "<h2 id=\"latest\">Newest resources</h2>\n";
|
||||
|
||||
my $month="";
|
||||
my $month = "";
|
||||
|
||||
foreach my $order (@date_order) {
|
||||
my %item=%{$items[$order]};
|
||||
my %source=%{$sources{$item{source}}};
|
||||
if (substr($item{added},0,6) ne $month) {
|
||||
print FOUT "</ul><h2>",$months[substr($item{added},4,2)+0]," ",substr($item{added},0,4),"</h2><ul>";
|
||||
$month=substr($item{added},0,6);
|
||||
my %item = %{$items[$order]};
|
||||
my %source = %{$sources{$item{source}}};
|
||||
if (substr($item{added}, 0, 6) ne $month) {
|
||||
print FOUT "</ul><h2>", $months[substr($item{added}, 4, 2)+0], " ", substr($item{added}, 0, 4), "</h2><ul>";
|
||||
$month = substr($item{added}, 0, 6);
|
||||
}
|
||||
|
||||
print_htmlitem(\%item,\%source);
|
||||
print_htmlitem(\%item, \%source);
|
||||
}
|
||||
|
||||
print FOUT "</ul>\n";
|
||||
|
||||
open(FIN,"multimedia.html.post");
|
||||
@lines=<FIN>;
|
||||
open(FIN, "multimedia.html.post");
|
||||
@lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
|
||||
|
|
@ -319,35 +354,35 @@ sub print_htmlitem {
|
|||
# HTML cloud output
|
||||
#
|
||||
{
|
||||
$createdfiles[$#createdfiles+1]="multimedia-tags.html";
|
||||
open(FOUT,">multimedia-tags.html");
|
||||
open(FIN,"multimedia.html.pre");
|
||||
my @lines=<FIN>;
|
||||
$createdfiles[$#createdfiles+1] = "multimedia-tags.html";
|
||||
open(FOUT, ">multimedia-tags.html");
|
||||
open(FIN, "multimedia.html.pre");
|
||||
my @lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
open(FIN,"multimedia.html.intro");
|
||||
@lines=<FIN>;
|
||||
open(FIN, "multimedia.html.intro");
|
||||
@lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
print FOUT "<h2 id=\"latest\">Tags</h2>\n";
|
||||
|
||||
my $month="";
|
||||
my $month = "";
|
||||
|
||||
sub size {
|
||||
return $b cmp $a if ($tags{$b}==$tags{$a});
|
||||
return $b cmp $a if ($tags{$b} == $tags{$a});
|
||||
return $tags{$b} <=> $tags{$a};
|
||||
}
|
||||
my $size=20;
|
||||
my $c=0;
|
||||
my $size = 20;
|
||||
my $c = 0;
|
||||
foreach my $tag (sort size(keys(%tags))) {
|
||||
my $ftag=$tag;
|
||||
$ftag=~s/ /_/g;
|
||||
my $ftag = $tag;
|
||||
$ftag =~ s/ /_/g;
|
||||
print FOUT "<font style=\"font-size:${size}pt\"><a href=\"multimedia-tag-$ftag.html\">$tag</a></font>\n";
|
||||
$size-- if ($c++%10==0 && $size>2);
|
||||
$size-- if ($c++%10 == 0 && $size > 2);
|
||||
}
|
||||
|
||||
open(FIN,"multimedia.html.post");
|
||||
@lines=<FIN>;
|
||||
open(FIN, "multimedia.html.post");
|
||||
@lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
|
||||
|
|
@ -359,54 +394,54 @@ sub print_htmlitem {
|
|||
#
|
||||
{
|
||||
foreach my $tag (keys(%tags)) {
|
||||
my $ftag=$tag;
|
||||
$ftag=~s/ /_/g;
|
||||
$createdfiles[$#createdfiles+1]="multimedia-tag-$ftag.html";
|
||||
open(FOUT,">multimedia-tag-$ftag.html");
|
||||
my $ftag = $tag;
|
||||
$ftag =~ s/ /_/g;
|
||||
$createdfiles[$#createdfiles+1] = "multimedia-tag-$ftag.html";
|
||||
open(FOUT, ">multimedia-tag-$ftag.html");
|
||||
|
||||
open(FIN,"multimedia.html.pre");
|
||||
my @lines=<FIN>;
|
||||
open(FIN, "multimedia.html.pre");
|
||||
my @lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
open(FIN,"multimedia.html.intro");
|
||||
@lines=<FIN>;
|
||||
open(FIN, "multimedia.html.intro");
|
||||
@lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
print FOUT "<h2 id=\"latest\">Tag: $tag</h2>\n";
|
||||
print FOUT "<ul>\n";
|
||||
|
||||
foreach my $item (@items) {
|
||||
my %item=%{$item};
|
||||
my %source=%{$sources{$item{source}}};
|
||||
my %item = %{$item};
|
||||
my %source = %{$sources{$item{source}}};
|
||||
|
||||
my $found=0;
|
||||
my $found = 0;
|
||||
|
||||
foreach my $itag (@{$item{tags}}) {
|
||||
if ($itag eq $tag) {
|
||||
$found=1;
|
||||
$found = 1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
if (!$found) {
|
||||
foreach my $file (keys(%{$item{files}})) {
|
||||
my %file=%{$item{files}{$file}};
|
||||
my %file = %{$item{files}{$file}};
|
||||
foreach my $itag (@{$file{tags}}) {
|
||||
if ($itag eq $tag) {
|
||||
$found=1;
|
||||
$found = 1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
print_htmlitem(\%item,\%source) if ($found);
|
||||
print_htmlitem(\%item, \%source) if ($found);
|
||||
|
||||
}
|
||||
|
||||
print FOUT "</ul>\n";
|
||||
open(FIN,"multimedia.html.post");
|
||||
@lines=<FIN>;
|
||||
open(FIN, "multimedia.html.post");
|
||||
@lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
close(FOUT);
|
||||
|
|
@ -417,31 +452,31 @@ sub print_htmlitem {
|
|||
# HTML all-sources output
|
||||
#
|
||||
{
|
||||
$createdfiles[$#createdfiles+1]="multimedia-sources.html";
|
||||
open(FOUT,">multimedia-sources.html");
|
||||
open(FIN,"multimedia.html.pre");
|
||||
my @lines=<FIN>;
|
||||
$createdfiles[$#createdfiles+1] = "multimedia-sources.html";
|
||||
open(FOUT, ">multimedia-sources.html");
|
||||
open(FIN, "multimedia.html.pre");
|
||||
my @lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
open(FIN,"multimedia.html.intro");
|
||||
@lines=<FIN>;
|
||||
open(FIN, "multimedia.html.intro");
|
||||
@lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
print FOUT "<h2 id=\"latest\">Sources</h2>\n";
|
||||
print FOUT "<ul>\n";
|
||||
|
||||
my $lastsource="";
|
||||
my $lastsource = "";
|
||||
foreach my $item (@site_order) {
|
||||
my %item=%{$item};
|
||||
my %item = %{$item};
|
||||
next if ($lastsource eq $item{source});
|
||||
$lastsource=$item{source};
|
||||
$lastsource = $item{source};
|
||||
|
||||
print FOUT "<li><a href=\"multimedia-source-$lastsource.html\">",$sources{$item{source}}{name},"</a>\n";
|
||||
print FOUT "<li><a href=\"multimedia-source-$lastsource.html\">", $sources{$item{source}}{name}, "</a>\n";
|
||||
}
|
||||
|
||||
print FOUT "</ul>\n";
|
||||
open(FIN,"multimedia.html.post");
|
||||
@lines=<FIN>;
|
||||
open(FIN, "multimedia.html.post");
|
||||
@lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
close(FOUT);
|
||||
|
|
@ -451,40 +486,40 @@ sub print_htmlitem {
|
|||
# HTML per-source output
|
||||
#
|
||||
{
|
||||
my $lastsource="";
|
||||
my $lastsource = "";
|
||||
foreach my $item (@site_order) {
|
||||
my %item=%{$item};
|
||||
my %source=%{$sources{$item{source}}};
|
||||
my %item = %{$item};
|
||||
my %source = %{$sources{$item{source}}};
|
||||
if ($lastsource ne $item{source}) {
|
||||
|
||||
if ($lastsource) {
|
||||
print FOUT "</ul>\n";
|
||||
open(FIN,"multimedia.html.post");
|
||||
my @lines=<FIN>;
|
||||
open(FIN, "multimedia.html.post");
|
||||
my @lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
close(FOUT);
|
||||
}
|
||||
$createdfiles[$#createdfiles+1]="multimedia-source-$item{source}.html";
|
||||
open(FOUT,">multimedia-source-$item{source}.html");
|
||||
open(FIN,"multimedia.html.pre");
|
||||
my @lines=<FIN>;
|
||||
$createdfiles[$#createdfiles+1] = "multimedia-source-$item{source}.html";
|
||||
open(FOUT, ">multimedia-source-$item{source}.html");
|
||||
open(FIN, "multimedia.html.pre");
|
||||
my @lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
open(FIN,"multimedia.html.intro");
|
||||
@lines=<FIN>;
|
||||
open(FIN, "multimedia.html.intro");
|
||||
@lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
$lastsource=$item{source};
|
||||
$lastsource = $item{source};
|
||||
print FOUT "<h2 id=\"latest\">$source{name}</h2>\n";
|
||||
print FOUT "<ul>\n";
|
||||
}
|
||||
print_htmlitem(\%item,\%source);
|
||||
print_htmlitem(\%item, \%source);
|
||||
|
||||
}
|
||||
print FOUT "</ul>\n";
|
||||
open(FIN,"multimedia.html.post");
|
||||
my @lines=<FIN>;
|
||||
open(FIN, "multimedia.html.post");
|
||||
my @lines = <FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
close(FOUT);
|
||||
|
|
@ -496,52 +531,53 @@ sub print_htmlitem {
|
|||
{
|
||||
|
||||
sub htmlentities {
|
||||
my $s=shift;
|
||||
$s=~s/&/&/g;
|
||||
$s=~s/</</g;
|
||||
$s=~s/>/>/g;
|
||||
my $s = shift;
|
||||
$s =~ s/&/&/g;
|
||||
$s =~ s/</</g;
|
||||
$s =~ s/>/>/g;
|
||||
return $s;;
|
||||
}
|
||||
sub printxml_multiple {
|
||||
my $item=shift;
|
||||
my %item=%{$item};
|
||||
my $source=shift;
|
||||
my %source=%{$source};
|
||||
my $item = shift;
|
||||
my %item = %{$item};
|
||||
my $source = shift;
|
||||
my %source = %{$source};
|
||||
|
||||
return if ($item{fc}<0);
|
||||
|
||||
for (my $i=0;$i<=$item{fc};$i++) {
|
||||
my %f=%{$item{files}{$i}};
|
||||
for (my $i = 0; $i <= $item{fc}; $i++) {
|
||||
my %f = %{$item{files}{$i}};
|
||||
|
||||
my %tempitem=%item;
|
||||
$tempitem{title}.=" - $f{desc}";
|
||||
$f{url}="$item{prefix}/$f{url}"
|
||||
my %tempitem = %item;
|
||||
$tempitem{title} .= " - $f{desc}";
|
||||
$f{url} = "$item{prefix}/$f{url}"
|
||||
if (defined $item{prefix});
|
||||
printxml_single(\%tempitem,\%source,\%f);
|
||||
printxml_single(\%tempitem, \%source, \%f);
|
||||
}
|
||||
}
|
||||
|
||||
sub printxml_single {
|
||||
my $item=shift;
|
||||
my %item=%{$item};
|
||||
my $source=shift;
|
||||
my %source=%{$source};
|
||||
my $file=shift;
|
||||
my %file=%{$file};
|
||||
my $item = shift;
|
||||
my %item = %{$item};
|
||||
my $source = shift;
|
||||
my %source = %{$source};
|
||||
my $file = shift;
|
||||
my %file = %{$file};
|
||||
|
||||
my $date=POSIX::strftime("%a, %d %b %Y %H:%M:%S %Z",
|
||||
0,0,0,substr($item{added},6,2),substr($item{added},4,2)-1,substr($item{added},0,4)-1900);
|
||||
my $date = POSIX::strftime("%a, %d %b %Y %H:%M:%S %Z",
|
||||
0, 0, 0, substr($item{added}, 6, 2),
|
||||
substr($item{added}, 4, 2)-1, substr($item{added}, 0, 4)-1900);
|
||||
|
||||
my $tags=join(", ",@{$item{tags}});
|
||||
for my $tag (@{$file{tags}}) {
|
||||
$tags.=", $tag";
|
||||
my $tags = join(", ", @{$item{tags}});
|
||||
foreach my $tag (@{$file{tags}}) {
|
||||
$tags .= ", $tag";
|
||||
}
|
||||
|
||||
print FOUT "<item>\n";
|
||||
print FOUT "<title>",htmlentities("$source{name} - $item{title}"),"</title>\n";
|
||||
print FOUT "<guid>",htmlentities($file{url}),"</guid>\n";
|
||||
print FOUT "<title>", htmlentities("$source{name} - $item{title}"), "</title>\n";
|
||||
print FOUT "<guid>", htmlentities($file{url}), "</guid>\n";
|
||||
print FOUT "<pubDate>$date</pubDate>\n";
|
||||
print FOUT "<enclosure url=\"",htmlentities($file{url}),"\" length=\"1\" type=\"application/octet-stream\" />\n";
|
||||
print FOUT "<enclosure url=\"", htmlentities($file{url}), "\" length=\"1\" type=\"application/octet-stream\" />\n";
|
||||
print FOUT "<description>";
|
||||
print FOUT htmlentities("$item{title}<br>From: $source{name}<br>");
|
||||
print FOUT htmlentities("Tags: $tags<br>\n");
|
||||
|
|
@ -550,11 +586,11 @@ sub print_htmlitem {
|
|||
print FOUT "</item>\n";
|
||||
}
|
||||
|
||||
$createdfiles[$#createdfiles+1]="multimedia.xml";
|
||||
open(FOUT,">multimedia.xml");
|
||||
$createdfiles[$#createdfiles+1] = "multimedia.xml";
|
||||
open(FOUT, ">multimedia.xml");
|
||||
|
||||
my @s=stat("multimedia-input.xml");
|
||||
my $date=POSIX::strftime("%a, %d %b %Y %H:%M:%S %Z",localtime($s[9]));
|
||||
my @s = stat("multimedia-input.xml");
|
||||
my $date = POSIX::strftime("%a, %d %b %Y %H:%M:%S %Z", localtime($s[9]));
|
||||
|
||||
print FOUT <<EOF;
|
||||
<rss version="2.0">
|
||||
|
|
@ -566,13 +602,13 @@ sub print_htmlitem {
|
|||
EOF
|
||||
|
||||
foreach my $order (@date_order) {
|
||||
my %item=%{$items[$order]};
|
||||
my %source=%{$sources{$item{source}}};
|
||||
my %item = %{$items[$order]};
|
||||
my %source = %{$sources{$item{source}}};
|
||||
|
||||
if (defined $item{overview}) {
|
||||
printxml_multiple(\%item,\%source);
|
||||
printxml_multiple(\%item, \%source);
|
||||
} else {
|
||||
printxml_single(\%item,\%source,$item{files}{0});
|
||||
printxml_single(\%item, \%source, $item{files}{0});
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -588,7 +624,7 @@ EOF
|
|||
# Created files
|
||||
#
|
||||
{
|
||||
open(FOUT,">multimedia.created");
|
||||
open(FOUT, ">multimedia.created");
|
||||
foreach my $f (@createdfiles) {
|
||||
print FOUT "$f\n";
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in a new issue