Add a www/en/multimedia/ collection of audio, video, podcast,
photograph gallery and other multimedia resources related to FreeBSD. The list of resources is maintained as an XML file, which is converted to the HTML pages at website build-time. We may want to convert the original Perl script which creates the pages to XSLT later on, but for now it works quite well. Submitted by: edwin
This commit is contained in:
Giorgos Keramidas
parent
bef169587d
commit
0696acfdec
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=30188
7 changed files with 3611 additions and 1 deletions
|
|
@ -1,4 +1,4 @@
|
|||
# $FreeBSD: www/en/Makefile,v 1.139 2007/03/01 08:04:23 joel Exp $
|
||||
# $FreeBSD: www/en/Makefile,v 1.140 2007/04/21 10:07:55 gabor Exp $
|
||||
|
||||
.if exists(Makefile.conf)
|
||||
.include "Makefile.conf"
|
||||
|
|
@ -61,6 +61,7 @@ SUBDIR+= internal
|
|||
SUBDIR+= java
|
||||
SUBDIR+= kse
|
||||
SUBDIR+= marketing
|
||||
SUBDIR+= multimedia
|
||||
SUBDIR+= news
|
||||
SUBDIR+= platforms
|
||||
SUBDIR+= portmgr
|
||||
|
|
|
|||
35
en/multimedia/Makefile
Normal file
35
en/multimedia/Makefile
Normal file
|
|
@ -0,0 +1,35 @@
|
|||
# $FreeBSD$
|
||||
|
||||
.if exists(../Makefile.conf)
|
||||
.include "../Makefile.conf"
|
||||
.endif
|
||||
.if exists(../Makefile.inc)
|
||||
.include "../Makefile.inc"
|
||||
.endif
|
||||
.if exists(Makefile.inc)
|
||||
.include "Makefile.inc"
|
||||
.endif
|
||||
|
||||
INDEXLINK= multimedia.html
|
||||
|
||||
FXML = multimedia-input.xml
|
||||
FHTML = \
|
||||
multimedia.html.intro \
|
||||
multimedia.html.pre \
|
||||
multimedia.html.post
|
||||
FLIST = multimedia.created
|
||||
FSCRIPT = multimedia.pl
|
||||
|
||||
DATA!= cat ${FLIST}
|
||||
|
||||
all: ${FLIST}
|
||||
|
||||
clean:
|
||||
if test -f ${FLIST} ; then \
|
||||
xargs ${RM} < ${FLIST} && ${RM} ${FLIST} ; \
|
||||
fi
|
||||
|
||||
${FLIST}: ${FSCRIPT} ${FXML} ${FHTML}
|
||||
perl -Tw ${FSCRIPT}
|
||||
|
||||
.include "${WEB_PREFIX}/share/mk/web.site.mk"
|
||||
2908
en/multimedia/multimedia-input.xml
Normal file
2908
en/multimedia/multimedia-input.xml
Normal file
File diff suppressed because it is too large
Load diff
24
en/multimedia/multimedia.html.intro
Normal file
24
en/multimedia/multimedia.html.intro
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
<h1>FreeBSD Multimedia Resources List</h1>
|
||||
<p>
|
||||
Links on this page refer to multimedia resources (podcast, vodcast,
|
||||
audio recordings, video recordings, photos) related to FreeBSD or
|
||||
of interest for FreeBSD users.
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br>
|
||||
This list is available as <a href="multimedia.html">chronological
|
||||
overview</a>, as a <a href="multimedia-tags.html">tag cloud</a> and
|
||||
via <a href="multimedia-sources.html">the sources</a>.
|
||||
|
||||
<br>
|
||||
This list is also available as RSS feed <a href="multimedia.xml"><img
|
||||
src="http://www.freebsd.org/layout/images/ico_rss.png"></a>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
If you know any resources not listed here, or notice any dead links,
|
||||
please send details to
|
||||
<a href="mailto:edwin\@FreeBSD.org">Edwin Groothuis</a> so that
|
||||
it can be included or updated.
|
||||
</p>
|
||||
5
en/multimedia/multimedia.html.post
Normal file
5
en/multimedia/multimedia.html.post
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
<!-- END -->
|
||||
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
41
en/multimedia/multimedia.html.pre
Normal file
41
en/multimedia/multimedia.html.pre
Normal file
|
|
@ -0,0 +1,41 @@
|
|||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
||||
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
||||
<html xmlns="http://www.w3.org/1999/xhtml">
|
||||
<head>
|
||||
<meta name="generator" content="HTML Tidy, see www.w3.org" />
|
||||
<title>FreeBSD Multimedia Resources</title>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
|
||||
<meta name="MSSmartTagsPreventParsing" content="TRUE" />
|
||||
<link rel="shortcut icon" href="http://www.freebsd.org/favicon.ico" type="image/x-icon" />
|
||||
<link rel="icon" href="http://www.freebsd.org/favicon.ico" type="image/x-icon" />
|
||||
<link rel="stylesheet" media="screen" href="http://www.freebsd.org/layout/css/fixed.css?20060509"
|
||||
type="text/css" title="Normal Text" />
|
||||
<link rel="alternate stylesheet" media="screen" href="http://www.freebsd.org/layout/css/fixed_large.css"
|
||||
type="text/css" title="Large Text" />
|
||||
<script type="text/javascript" src="http://www.freebsd.org/layout/js/styleswitcher.js">
|
||||
</script>
|
||||
</head>
|
||||
<body>
|
||||
<div id="containerwrap">
|
||||
<div id="container"><span class="txtoffscreen"><a href="#CONTENT"
|
||||
title="Skip site navigation" accesskey="1">Skip site navigation</a> (1)</span> <span
|
||||
class="txtoffscreen"><a href="#CONTENTWRAP" title="Skip section navigation"
|
||||
accesskey="2">Skip section navigation</a> (2)</span>
|
||||
<div id="HEADERCONTAINER">
|
||||
<div id="HEADER">
|
||||
<h2 class="blockhide">Header And Logo</h2>
|
||||
|
||||
<div id="HEADERLOGOLEFT"><a href="http://www.freebsd.org" title="FreeBSD"><img
|
||||
src="http://www.freebsd.org/layout/images/logo-red.png" width="457" height="75" alt="FreeBSD" /></a></div>
|
||||
|
||||
<div id="HEADERLOGORIGHT">
|
||||
<h2 class="blockhide">Peripheral Links</h2>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
<div id="content">
|
||||
|
||||
<!-- BEGIN -->
|
||||
596
en/multimedia/multimedia.pl
Normal file
596
en/multimedia/multimedia.pl
Normal file
|
|
@ -0,0 +1,596 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
#
|
||||
# $Id: multimedia.pl,v 1.1 2007-05-15 21:30:41 keramida Exp $
|
||||
# $FreeBSD$
|
||||
#
|
||||
|
||||
use strict;
|
||||
use XML::Parser;
|
||||
use Data::Dumper;
|
||||
use POSIX;
|
||||
|
||||
my @months=(
|
||||
"","January","February","March",
|
||||
"April","May","June","July",
|
||||
"August","September","October",
|
||||
"November","December"
|
||||
);
|
||||
|
||||
my @createdfiles=();
|
||||
|
||||
my @tree=();
|
||||
my @values=();
|
||||
my $treeindex=-1;
|
||||
|
||||
my @items;
|
||||
my $ci=-1;
|
||||
my %sources;
|
||||
my $sid="";
|
||||
my %tags;
|
||||
|
||||
sub addtags {
|
||||
my $tags=shift;
|
||||
|
||||
if ($tags) {
|
||||
my @w=split(/,/,$tags);
|
||||
foreach my $w (@w) {
|
||||
$tags{$w}=0 if (!defined $tags{$w});
|
||||
$tags{$w}++;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
my $array=shift;
|
||||
my @array=@{$array};
|
||||
foreach my $w (@array) {
|
||||
$tags{$w}=0 if (!defined $tags{$w});
|
||||
$tags{$w}++;
|
||||
}
|
||||
}
|
||||
|
||||
sub xml_start {
|
||||
my $expat=shift;
|
||||
my $element=shift;
|
||||
|
||||
$tree[++$treeindex]=$element;
|
||||
while (defined (my $attribute=shift)) {
|
||||
$values[$treeindex]{$attribute}=shift;
|
||||
}
|
||||
|
||||
if ($element eq "item"
|
||||
&& $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;
|
||||
}
|
||||
|
||||
if ($element eq "source"
|
||||
&& $treeindex==2) {
|
||||
$sid=$values[$treeindex]{id};
|
||||
$sources{$values[$treeindex]{id}}=();
|
||||
}
|
||||
}
|
||||
|
||||
sub xml_end {
|
||||
my $expat=shift;
|
||||
my $element=shift;
|
||||
|
||||
$values[$treeindex]=();
|
||||
$treeindex--;
|
||||
}
|
||||
|
||||
sub xml_char {
|
||||
my $expat=shift;
|
||||
my $value=shift;
|
||||
|
||||
if ($tree[0] eq "multimedia") {
|
||||
return if ($treeindex==0);
|
||||
|
||||
if ($tree[1] eq "items") {
|
||||
return if ($treeindex==1);
|
||||
|
||||
if ($tree[2] eq "item") {
|
||||
return if ($treeindex==2);
|
||||
|
||||
if ($tree[3] eq "title") {
|
||||
$items[$ci]{title}=$value;
|
||||
return;
|
||||
}
|
||||
if ($tree[3] eq "desc") {
|
||||
$items[$ci]{desc}="" if (!defined $items[$ci]{desc});
|
||||
$items[$ci]{desc}.=$value;
|
||||
return;
|
||||
}
|
||||
if ($tree[3] eq "overview") {
|
||||
$items[$ci]{overview}=$value;
|
||||
return;
|
||||
}
|
||||
if ($tree[3] eq "link") {
|
||||
$items[$ci]{link}=$value;
|
||||
return;
|
||||
}
|
||||
if ($tree[3] eq "tags") {
|
||||
@{$items[$ci]{tags}}=split(/,/,$value);
|
||||
addtags($value);
|
||||
return;
|
||||
}
|
||||
|
||||
if ($tree[3] eq "files") {
|
||||
return if ($treeindex==3);
|
||||
|
||||
if ($tree[4] eq "prefix") {
|
||||
$items[$ci]{prefix}="" if (!defined $items[$ci]{prefix});
|
||||
$items[$ci]{prefix}.=$value;
|
||||
return;
|
||||
}
|
||||
|
||||
if ($tree[4] eq "file") {
|
||||
return if ($treeindex==4);
|
||||
|
||||
if ($tree[5] eq "url") {
|
||||
$items[$ci]{fc}++;
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{url}=$value;
|
||||
return;
|
||||
}
|
||||
if ($tree[5] eq "size") {
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{size}=$value;
|
||||
return;
|
||||
}
|
||||
if ($tree[5] eq "length") {
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{length}=$value;
|
||||
return;
|
||||
}
|
||||
if ($tree[5] eq "desc") {
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{desc}=$value;
|
||||
return;
|
||||
}
|
||||
if ($tree[5] eq "tags") {
|
||||
@{$items[$ci]{files}{$items[$ci]{fc}}{tags}}=split(/,/,$value);
|
||||
addtags($value);
|
||||
addtags("",$items[$ci]{tags});
|
||||
return;
|
||||
}
|
||||
goto error;
|
||||
}
|
||||
goto error;
|
||||
}
|
||||
goto error;
|
||||
}
|
||||
goto error;
|
||||
}
|
||||
|
||||
if ($tree[1] eq "sources") {
|
||||
return if ($treeindex==1);
|
||||
|
||||
if ($tree[2] eq "source") {
|
||||
return if ($treeindex==2);
|
||||
|
||||
if ($tree[3] eq "name") {
|
||||
$sources{$sid}{name}=$value;
|
||||
return;
|
||||
}
|
||||
if ($tree[3] eq "url") {
|
||||
$sources{$sid}{url}=$value;
|
||||
return;
|
||||
}
|
||||
goto error;
|
||||
}
|
||||
goto error;
|
||||
}
|
||||
goto error;
|
||||
}
|
||||
|
||||
error:
|
||||
print "Unknown item at depth $treeindex: $tree[$treeindex]\n";
|
||||
}
|
||||
|
||||
my $p=new XML::Parser(
|
||||
Handlers => {
|
||||
Start => \&xml_start,
|
||||
End => \&xml_end,
|
||||
Char => \&xml_char,
|
||||
}
|
||||
);
|
||||
$p->parsefile("multimedia-input.xml");
|
||||
|
||||
my @site_order=();
|
||||
{
|
||||
sub site_sort {
|
||||
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;
|
||||
}
|
||||
|
||||
my @date_order=();
|
||||
{
|
||||
my %dates=();
|
||||
foreach my $item (@items) {
|
||||
my %item=%{$item};
|
||||
$dates{$item{ci}}=$item{added};
|
||||
}
|
||||
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};
|
||||
|
||||
print FOUT "<li><p>";
|
||||
if (defined $item{overview}) {
|
||||
print FOUT "<a href=\"$item{overview}\">$item{title}</a>\n";
|
||||
} else {
|
||||
my %media=%{$item{files}{0}};
|
||||
print FOUT "<a href=\"$media{url}\">$item{title}</a>\n";
|
||||
if (defined $media{size} || defined $media{length}) {
|
||||
my $s="";
|
||||
print FOUT "(";
|
||||
if (defined $media{size}) {
|
||||
print FOUT "$media{size}";
|
||||
$s=", ";
|
||||
}
|
||||
if (defined $media{length}) {
|
||||
print FOUT "$s$media{length}";
|
||||
$s=", ";
|
||||
}
|
||||
print FOUT ")";
|
||||
}
|
||||
}
|
||||
print FOUT "<br>Source: <a href=\"",$source{url},"\">",$source{name},"</a><br>\n";
|
||||
print FOUT "Tags: ",join(", ",@{$item{tags}}),"<br>\n";
|
||||
if (defined $item{overview} && defined $item{files}) {
|
||||
my $c=0;
|
||||
foreach my $m (keys(%{$item{files}})) {
|
||||
my %file=%{$item{files}{$m}};
|
||||
print FOUT ", " if ($c++);
|
||||
if (defined $item{prefix}) {
|
||||
print FOUT "<a href=\"$item{prefix}/$file{url}\">$file{desc}</a>";
|
||||
} else {
|
||||
print FOUT "<a href=\"$file{url}\">$file{desc}</a>";
|
||||
}
|
||||
if (defined $file{size} || defined $file{length}) {
|
||||
my $s="";
|
||||
print FOUT " (";
|
||||
if (defined $file{size}) {
|
||||
print FOUT "$file{size}";
|
||||
$s=", ";
|
||||
}
|
||||
if (defined $file{length}) {
|
||||
print FOUT "$s$file{length}";
|
||||
$s=", ";
|
||||
}
|
||||
print FOUT ")";
|
||||
}
|
||||
}
|
||||
print FOUT "<br>\n";
|
||||
}
|
||||
print FOUT "$item{desc}\n";
|
||||
}
|
||||
{
|
||||
$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>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
print FOUT "<h2 id=\"latest\">Newest resources</h2>\n";
|
||||
|
||||
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);
|
||||
}
|
||||
|
||||
print_htmlitem(\%item,\%source);
|
||||
}
|
||||
|
||||
print FOUT "</ul>\n";
|
||||
|
||||
open(FIN,"multimedia.html.post");
|
||||
@lines=<FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
|
||||
close(FOUT);
|
||||
}
|
||||
|
||||
#
|
||||
# HTML cloud output
|
||||
#
|
||||
{
|
||||
$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>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
print FOUT "<h2 id=\"latest\">Tags</h2>\n";
|
||||
|
||||
my $month="";
|
||||
|
||||
sub size {
|
||||
return $b cmp $a if ($tags{$b}==$tags{$a});
|
||||
return $tags{$b} <=> $tags{$a};
|
||||
}
|
||||
my $size=20;
|
||||
my $c=0;
|
||||
foreach my $tag (sort size(keys(%tags))) {
|
||||
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);
|
||||
}
|
||||
|
||||
open(FIN,"multimedia.html.post");
|
||||
@lines=<FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
|
||||
close(FOUT);
|
||||
}
|
||||
|
||||
#
|
||||
# HTML per-tags output
|
||||
#
|
||||
{
|
||||
foreach my $tag (keys(%tags)) {
|
||||
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>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
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 $found=0;
|
||||
|
||||
foreach my $itag (@{$item{tags}}) {
|
||||
if ($itag eq $tag) {
|
||||
$found=1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
if (!$found) {
|
||||
foreach my $file (keys(%{$item{files}})) {
|
||||
my %file=%{$item{files}{$file}};
|
||||
foreach my $itag (@{$file{tags}}) {
|
||||
if ($itag eq $tag) {
|
||||
$found=1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
print_htmlitem(\%item,\%source) if ($found);
|
||||
|
||||
}
|
||||
|
||||
print FOUT "</ul>\n";
|
||||
open(FIN,"multimedia.html.post");
|
||||
@lines=<FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
close(FOUT);
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
# HTML all-sources output
|
||||
#
|
||||
{
|
||||
$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>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
print FOUT "<h2 id=\"latest\">Sources</h2>\n";
|
||||
print FOUT "<ul>\n";
|
||||
|
||||
my $lastsource="";
|
||||
foreach my $item (@site_order) {
|
||||
my %item=%{$item};
|
||||
next if ($lastsource eq $item{source});
|
||||
$lastsource=$item{source};
|
||||
|
||||
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>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
close(FOUT);
|
||||
}
|
||||
|
||||
#
|
||||
# HTML per-source output
|
||||
#
|
||||
{
|
||||
my $lastsource="";
|
||||
foreach my $item (@site_order) {
|
||||
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>;
|
||||
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>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
open(FIN,"multimedia.html.intro");
|
||||
@lines=<FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
$lastsource=$item{source};
|
||||
print FOUT "<h2 id=\"latest\">$source{name}</h2>\n";
|
||||
print FOUT "<ul>\n";
|
||||
}
|
||||
print_htmlitem(\%item,\%source);
|
||||
|
||||
}
|
||||
print FOUT "</ul>\n";
|
||||
open(FIN,"multimedia.html.post");
|
||||
my @lines=<FIN>;
|
||||
close(FIN);
|
||||
print FOUT @lines;
|
||||
close(FOUT);
|
||||
}
|
||||
|
||||
#
|
||||
# XML output
|
||||
#
|
||||
{
|
||||
|
||||
sub htmlentities {
|
||||
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};
|
||||
|
||||
return if ($item{fc}<0);
|
||||
|
||||
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}"
|
||||
if (defined $item{prefix});
|
||||
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 $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";
|
||||
}
|
||||
|
||||
print FOUT "<item>\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 "<description>";
|
||||
print FOUT htmlentities("$item{title}<br>From: $source{name}<br>");
|
||||
print FOUT htmlentities("Tags: $tags<br>\n");
|
||||
print FOUT htmlentities("$item{desc}");
|
||||
print FOUT "</description>\n";
|
||||
print FOUT "</item>\n";
|
||||
}
|
||||
|
||||
$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]));
|
||||
|
||||
print FOUT <<EOF;
|
||||
<rss version="2.0">
|
||||
<channel>
|
||||
<title>FreeBSD Multimedia Resources List</title>
|
||||
<description>FreeBSD Multimedia Resources</description>
|
||||
<link>http://www.FreeBSD.org/docs/multimedia.html</link>
|
||||
<lastBuildDate>$date</lastBuildDate>
|
||||
EOF
|
||||
|
||||
foreach my $order (@date_order) {
|
||||
my %item=%{$items[$order]};
|
||||
my %source=%{$sources{$item{source}}};
|
||||
|
||||
if (defined $item{overview}) {
|
||||
printxml_multiple(\%item,\%source);
|
||||
} else {
|
||||
printxml_single(\%item,\%source,$item{files}{0});
|
||||
}
|
||||
}
|
||||
|
||||
print FOUT <<EOF;
|
||||
</channel>
|
||||
</rss>
|
||||
EOF
|
||||
close(FOUT);
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# Created files
|
||||
#
|
||||
{
|
||||
open(FOUT,">multimedia.created");
|
||||
foreach my $f (@createdfiles) {
|
||||
print FOUT "$f\n";
|
||||
}
|
||||
close(FOUT);
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue