Attachment #87786 for bug #124447

View | Details | Raw Unified | Return to bug 124447
Collapse All | Expand All




.include "Makefile.inc"
.endif

#all: build
all: build
	cd output && make all DIRPRFX=multimedia/output/

install:
	cd output && make install DIRPRFX=multimedia/output/

TEMPLATES=	multimedia.sgml.intro \
		multimedia.sgml.post \
		multimedia.sgml.pre \
		multimedia.html.intro \
		multimedia.html.post \
		multimedia.html.pre \
		multimedia-input.xml
.endif

all: ${FLIST}

clean:
	-${RM} output/*
		xargs ${RM} < ${FLIST} && ${RM} ${FLIST} ; \
	fi

build:
	(test -d output || ${MKDIR} output ) && \
	cd output && \
	${LN} -fs ../Makefile.output Makefile && \
	( for f in ${TEMPLATES}; do ${LN} -fs ../$$f $$f; done ) && \
	${PERL} -Tw ../multimedia.pl && \
	${RM} -f *.html

.include "${WEB_PREFIX}/share/mk/web.site.mk"

Added Link Here

(-)Makefile.inc (+4 lines)
1	# $FreeBSD$
2
3	WEBBASE?= /data/multimedia
4	WEB_PREFIX?= ${.CURDIR}/../../..




.if exists(../../Makefile.conf)
.include "../../Makefile.conf"
.endif
.if exists(../../Makefile.inc)
.include "../../Makefile.inc"
.endif

DOCS!=		cat multimedia.sgml.created
DATA=		multimedia.xml

WEBDIR=		multimedia

WEB_PREFIX:=	${WEB_PREFIX}/../

.include "${WEB_PREFIX}/share/mk/web.site.mk"




		Certification.
		</p><p>
		See the following links for more information:
		</p>
		<ul>
		<li>https://register.bsdcertification.org/register/get-a-bsdcg-id</li>
		<li>http://reedmedia.net/books/freebsd-basics</li>
		<li>http://www.osbr.ca</li>
		</ul>
		</p>
	    ]]></desc>
	    <overview>http://bsdtalk.blogspot.com/2008/01/bsdtalk139-dru-lavigne.html</overview>
	    <tags>bsdtalk,interview,dru lavigne,the best of freebsd basics</tags>

	<item source="bsdtalk" added="20080125">
	    <title>Central Syslog</title>
	    <desc><![CDATA[
		<p>
		Setting up a central syslog server.
		</p>
		<ul>
		<li>If you are concerned about the security of your logs, use a dedicated machine and lock it down.</li>
		<li>Keep clocks in sync.</li>
		<li>You may need to change log rotation schedule in /etc/newsyslog.conf. You can rotate based in size and/or time. This can be as much a policy decision as a hardware decision.</li>
		<li>On central log host, change syslogd flags to listen to network. Each BSD does this differently, so check the man pages. Also, check out the -n flag for busy environments.</li>
		<li>Make sure host firewall allows syslog traffic through.</li>
		<li>Be careful to limit syslog traffic to just the trusted network or hosts. FreeBSD man page refers to syslogd as a "remote disk filling service".</li>
		<li>For heavy logging environments, it is important to have a dedicated network. A down syslogd server can create a lot of "ARP who-has" broadcasts.</li>
		<li>Most network devices such as printers and commercial firewalls support sending to a central syslog server. Take a look at "Snare" for Windows hosts.</li>
		<li>To send messages from a Unix host, specify the host name prepended with @ instead of a file for logging in /etc/syslog.conf. For example, change /var/log/xferlog to @loghost.mydomain.biz. You can also copy and edit the line to have it log to both a local file and a remote host.</li>
		</ul>
	    ]]></desc>
	    <overview>http://bsdtalk.blogspot.com/2008/01/bsdtalk138-central-syslog.html</overview>

	<item source="bsdtalk" added="20070901">
	    <title>Why I like the CLI</title>
	    <desc><![CDATA[
		<p>
		Why I like the CLI:
		</p>
		<ul>
		<li>Uses minimal resources. Less space, less memory, fewer dependencies.</li>
		<li>Transparency. GUI hides internals, limits options.</li>
		<li>Similar between Unix-like systems. GUI tools seem to change every week.</li>
		<li>Remote management. SSH rocks.</li>
		<li>Everything is text. Configs, devices, output. CLI is natural complement.</li>
		<li>Pipes and scripts. One time is hard, a thousand times is easy.</li>
		<li>Only need a few tools. Grep, sed, awk, vi, cron.</li>
		<li>Text config files. Easy to version, share, and comment.</li>
		<li>Requires reading skills instead of clicking skills.</li>
		<li>Much faster when you know what you are doing.</li>
		</ul>
	    ]]></desc>
	    <overview>http://bsdtalk.blogspot.com/2007/08/bsdtalk127-why-i-like-cli.html</overview>

	    <title>One Time Passwords</title>
	    <desc><![CDATA[
		<ul>
		<li> Important when you don't trust the computer you are using, such as a library computer or internet kiosk.</li>
		<li> Available by default in Free/Net/Open BSD.</li>
		<li> FreeBSD uses OPIE, Net/Open use S/Key.</li>
		<li> One time passwords are based on your pass phrase, a non-repeating sequence number, and a seed.</li>
		<li> Initial setup should be done directly on the server.</li>
		<li> "skeyinit" for Net/Open, "opiepasswd -c" for FreeBSD.</li>
		<li> Enter a pass phrase that is not your regular account password.</li>
		<li> Find your current sequence number and seed with "opieinfo" or "skeyinfo", for example: "497 pc5246".</li>
		<li> Generate a list of the next 10 passwords and write them down, using "opiekey -n 10 497 pc5246" or "skey -n 10 497 pc5246".</li>
		<li> When you log in from a remote machine that might have a keystroke logger, you can now use a one time password instead of your regular password.</li>
		<li> For OpenBSD, log in as account:skey, for example "bob:skey", which will cause the system to present the s/key challenge.</li>
		<li> For NetBSD, the system will always present you with the s/key challenge if it is configured for your account, although you can still use your regular password.</li>
		<li> FreeBSD by default will force you to use a one time password if it is configured for your account.</li>
		<li> If you want both OPIE and password authentication, FreeBSD allows you to list trusted networks or hosts in /etc/opieaccess.</li>
		<li> Instead of carrying a list of passwords around, you can use s/key generators on a portable device that you trust, such as a palm pilot.</li>
		<li> For more info, check the man pages.</li>
		</ul>
	    ]]></desc>
	    <overview>http://bsdtalk.blogspot.com/2007/06/bsdtalk117-one-time-passwords.html</overview>

	    <title>Getting to know X</title>
	    <desc><![CDATA[
		<p>
		Getting to know the X Window System.<br />
		Make sure you are in a text only mode. You might
		need to change how the system boots, or boot into
		single user mode.
		</p>
		<ul>
		<li>"startx" to make sure X is working right.</li>
		<li>"X" by itself gives the basic grey screen.</li>
		<li>"ctrl" and "alt" and "backspace" keys at the same time will zap X.</li>
		<li>"X &amp; xterm -display :0"</li>
		<li>"xterm -geometry +300+300"</li>
		<li>"twm" or "metacity"</li>
		</ul>
		</p>
	    ]]></desc>
	    <overview>http://bsdtalk.blogspot.com/2007/03/bsdtalk104-getting-to-know-x.html</overview>
	    <tags>bsdtalk,X</tags>

		UKUUG LISA 2006 took place in Durham, UK in March,
		2006. On this page, you can find my slides from
		this conference.
		<br />
		OpenBSM is a BSD-licensed implementation of Sun's
		Basic Security Module (BSM) API and file format,
		and is the foundation of the TrustedBSD audit

		spanning the BSD's. On this page, you can find my
		slides from the FreeBSD developer summit and full
		conference.
		<br />
		Status report on the TrustedBSD Project: introduction
		and status regarding Audit, plus a TODO list;
		introduction to the priv(9) work recently merged
		to 7.x.
		<br />
		The FreeBSD Project is one of the oldest and most
		successful open source operating system projects,
		seeing wide deployment across the IT industry. From

		to attend the conference itself, and my talks were
		presented in absentia by Poul-Henning Kamp and Ed
		Maste, who have my greatest appreciation!
		<br />
		The FreeBSD SMPng Project has spent the past five
		years redesigning and reimplementing SMP support
		for the FreeBSD operating system, moving from a

		BSDCan 2004 took place at the University of Ottawa
		in Ottawa, Canada. On this page, you can find my
		slides from the conference.
		<br />
		Robert Watson will describe a variety of pieces of
		work done as part of the TrustedBSD Project, including
		the TrustedBSD MAC Framework, Audit facilities for

		as an IPv6 router and tunneling system will also
		be covered.
		</p><p>
		<b>Bio</b><br />
		Gene Cronk, CISSP-ISSAP, NSA-IAM is a freelance
		network security consultant, specializing in *NIX
		solutions. He has been working with computers for

		beat the price.
		</p><p>
		We plan on covering the following topics:
		</p>
		<ul>
		<li>what it is</li>
		<li>how it works</li>
		<li>where to get it</li>
		<li>how to install it</li>
		<li>how to configure it</li>
		<li>how to customize it for your environment</li>
		<li>where the data is stored</li>
		<li>how to write a basic plug-in</li>
		</ul>
		</p>
		<p>
		<b>About the Speaker</b><br />
		Marc Spitzer started as a VAX/VMS operator who
		taught himself some basic scripting in DCL to help
		me remember how to do procedures that did not come

		surprisingly useful (and fun)- for developers,
		sysadmins, and anyone working with BSD systems.
		</p><p>
		About the speaker<br />
		Isaac Levy, (ike) is a freelance BSD hadker based
		in NYC. He runs Diversaform Inc. as an engine to
		make his hacking feed itself, (and ike). Diversaform

		of such attacks on servers designed to provide
		network intensive services such as HTTP or routing.
		</p><p>
		About the speaker<br />
		Steven Kreuzer is currently employed by Right Media
		as a Systems Administrator focusing on building and
		managing high transaction infrastructures around

		the global policy. Our goal is a coherent,
		enterprise-wide response to any network threat.
		</p><p>
		<b>Biography</b><br />
		Matthew Burnside is a Ph.D. student in the Computer
		Science department at Columbia University, in New
		York. He works for Professor Angelos Keromytis in

	    <title>New York City BSD Con 2006: BSD is Dying - A Cautionary Tale of Sex and Greed</title>
	    <desc><![CDATA[
		<p>
		<b>BSD is Dying</b><br />
		<b>A Cautionary Tale of Sex and Greed</b><br />
		<b>Jason Dixon</b><br />
		<b>October 28, 2006</b>
		</p><p>
		First and foremost, I would like to thank the unique

		understandable by everyone, (even techs without
		UNIX knowledge), and the gear is cheap - this saves
		time and money.
		<br />
		In the meantime, the features of your average Linksys
		or Netgear router often leave MUCH to be desired,
		(https auth management, for one simple example).
		<br />
		Enter m0n0wall and PFSense, 2 BSD based packaged
		router/firewall solutions that are as solid and
		full featured as you`d expect from any BSD system-
		PLUS THEY HAVE HTML WEB INTERFACES FOR MANAGEMENT!
		<br />
		m0n0wall and PFSense become an easy sell in any
		small professional enviornment, any competent tech
		can manage the network within minutes... At home,
		in every hackers home network, they free the hacker
		to have trusted tools available, but are as time-saving
		as using any Linksys router.
		<br />
		m0n0wall and PFSense are both light and clean,
		designed to run on embedded systems- (Soekris,
		WRAP), but are monsters when unleashed on even

		to manage the router for your DSL when you get home?
		But then doesn`t it bug you to use a chincey Linksys
		box?
		<br />
		Ike has been a member of NYC*BUG since we first
		launched in January 2004. He is a long-time member
		of the Lower East Side Mac Unix User Group. He has

		 millions of messages to OKCupid`s subscribers.
		 Topics covered will be system tuning and sendmail
		 hacks used in house to achieve massive throughput.
		 <br />
		 Alfred Perlstein is the CTO of OKcupid.com, the
		 largest free online dating site. He has been a
		 FreeBSD hacker for five years, he`s worked on NFS,

	    <title>Episode 06 of "FreeBSD for all" uploaded</title>
	    <desc><![CDATA[
		<p>
		This week we talk about
		</p>
		<ul>
		<li>Macromedia plugin</li>
		<li>FreeBSD-Linux differences part 2</li>
		<li>John Baldwin Introduction</li>
		<li>Podcast anouncement - call for co-hosts!</li>
		</ul>
		</p>
	    ]]></desc>
	    <overview>http://freebsdforall.blogspot.com/2006/06/episode-06.html</overview>
	    <tags>freebsd for all,talk,john baldwin,freebsd vs linux</tags>

	    <desc><![CDATA[
		<b>Our Topic:</b>
		FreeBSD's ACPI implementation: The details.
		<br />
		<b>Our Speaker:</b>
		Nate Lawson, FreeBSD Committer.
		<br />
		<b>Our Topic:</b>
		FreeBSD's ACPI implementation is based on code for ACPI released
		by Intel. Nate and others wrote the glue code to make this code

	    <desc><![CDATA[
		<b>Our Topic:</b>
		Network Protocol Development Tools and Techniques for FreeBSD
		<br />
		<b>Our Speaker:</b>
		George Neville-Neil, co-author of the "Design and
		Implementation of the FreeBSD Operating System"
		"daemon" book.
		<br />
		<b>Our Topic:</b>
		While computers have gotten faster and more powerful
		the tools we use to develop network protocols, such

		developing a library for use in protocol testing.
		This talk will cover three topics:
		<ol>
		<li>Developing and testing kernel code with Virtual Machines</li>
		<li>Finding good tests for networking code</li>
		<li>Packet Construction Set (PCS) a new library for
		    writing protocol tests</li>
		</ol>
		]]></desc>
	    <tags>bafug,presentation,freebsd,packet construction set,george neville-neil</tags>

		    <tags>slides</tags>
		</file>
		<file>
		    <url><![CDATA[http://vp.video.google.com/videodownload?version=0&amp;secureurl=uAAAANDveMbSROZ54T6ovHpX7U46rpfxARh9qN1NEemo6WM7qeDBk-8GxxtGIXTqDRuaHnUUJVcUs0bf539CXM4fqBp6xeb9INr7CRp9JPcKZeT9UsSqDsvdYZhiN7xnPzju7rN379RkfS47rjI8TnCJ1iQdrEqhd8Okw_KJcO7O3Iq00GUYYZaedmq5jrmy1ezFXGAG6KURgb8RV19cCaui1U0zVEKd2ApjzlxRHSi89QBih_VSyFE64p3haNyy76qCVQ&amp;sigh=GK-OoKkmqQWNalgoUzB4HmzA3EI&amp;begin=0&amp;len=3967520&amp;amp;docid=-2979502732836620391]]></url>
		    <length>1:06:07</length>
		    <desc>Google Video</desc>
		    <tags>mp4</tags>

		 </p>
	    ]]></desc>
	    <overview><![CDATA[
		http://video.google.com/videoplay?docid=-4400856579609253323&amp;total=1&amp;start=0&amp;num=10&amp;so=1&amp;type=search&amp;plindex=0
		]]></overview>
	    <tags>google,presentation,freebsd,freebsd project,robert watson</tags>
	    <files>
		<file>
		    <url><![CDATA[
			http://vp.video.google.com/videodownload?version=0&amp;secureurl=uAAAAMnsi51RXPgEl7zGKAWEdrKWWWjUJ5q602Nvd2V5YwaDTyCIRM5k8Rq4nUZipL4tHODLiuiSxq34qoHi8TiEyXrdjKI8_WN0fXSKQYyrrlrWKMWd5Vw7AuXiu_B0uHEadc-fR6np2MP0ItJbT-Zx-J0-GCx0Mya2fQLoLG2pb55veUzTepcJz2RsKjNaGM-XUHpxqTZoIh0rggQIkNp-vZzghRb_8JQanc00ChX2CYB3LogDCHj1hpnFFmFd-2sEEg&amp;sigh=ZrfuqGS7FqWRpFYVklZH1V4LRj4&amp;begin=0&amp;len=3053322&amp;docid=-4400856579609253323
		    ]]></url>
		    <size>321 Mb</size>
		    <length>51 minutes</length>

		category in the FreeBSD ports tree</a> and has
		become the maintainer of over 20 of the hamradio
		ports.  She also contributed to the <a
		href="http://www.hamsexy.com/wiki/index.php?title=FreeBSD&amp;redirect=no">FreeBSD
		entry at Hampedia</a>, the Wikipedia for ham
		operators.
		</p><p>

	    <tags>bsdcan,bsdcan2008,devsummit,devsummit2008,freebsd,embedded,rafal jaworowski</tags>
	    <files>
		<file>
		    <url><![CDATA[http://wiki.freebsd.org/200805DevSummit?action=AttachFile&amp;do=get&amp;target=devsummit-200805-embedded_summary.pdf]]></url>
		    <length>6 pages</length>
		    <size>58 Kb</size>
		    <desc>PDF file</desc>

	    <tags>bsdcan,bsdcan2008,devsummit,devsummit2008,freebsd,smp,robert watson</tags>
	    <files>
		<file>
		    <url><![CDATA[http://wiki.freebsd.org/200805DevSummit?action=AttachFile&amp;do=get&amp;target=20080515-stack-parallelism.pdf]]></url>
		    <length>8 pages</length>
		    <size>70 Kb</size>
		    <desc>PDF file</desc>

	    <tags>bsdcan,bsdcan2008,devsummit,devsummit2008,freebsd,portmgr,erwin lansing</tags>
	    <files>
		<file>
		    <url><![CDATA[http://wiki.freebsd.org/200805DevSummit?action=AttachFile&amp;do=get&amp;target=portmgr-BSDCan2008.pdf]]></url>
		    <length>14 pages</length>
		    <size>146 Kb</size>
		    <desc>PDF file</desc>

		PBI installer for PC-BSD desktops.
		</p><p>
		The presentation will be divided into two main sections:
		<br />
		The Push Button Installer (PBI) Format
		</p>
		<ul>
		<li>The basics of the PBI format</li>
		<li>The PBI format construction</li>
		<li>Add &amp; Remove scripting support within PBI</li>
		</ul>
		<p>
		Building PBIs from Ports "Auto-magically"
		</p>
		<ul>
		<li>The PBI build server &amp; standalone software</li>
		<li>Module creation &amp; configuration</li>
		<li>Converting messy ports into PBIs</li>
		</ul>
		</p>
	    ]]></desc>
	    <tags>bsdcan,bsdcan2008,slides,pc-bsd,ports,pbi,kris moore</tags>
	    <files>

		<i>Beer, prizes, secrets, Works In Progress</i>
		<p>
		The traditional closing...
		<br />
		with some new and interesting twists. Sleep in if
		you must, but don't miss this session.
		</p>

		cover the in-kernel debugger DDB and the external
		debugger kgdb which is used to perform post-mortem
		analysis on kernel crash dumps.
		</p>
		<h2>Introduction to Debugging the FreeBSD Kernel</h2>
		<ul>
		<li>Basic crash messages, what a crash looks like
		    <ul>
		    <li>typical panic() invocation</li>
		    <li>page fault example</li>
		    </ul></li>
		<li>"live" debugging with DDB
		    <ul>
		    <li>stack traces</li>
		    <li>ps</li>
		    <li>deadlock examples</li>
		    <li>show lockchain</li>
		    <li>show sleepchain</li>
		    <li>Adding new DDB commands</li>
		    </ul></li>
		<li>KGDB
		    <ul>
		    <li>inspecting processes and threads</li>
		    <li>working with kernel modules</li>
		    <li>using scripts to extend</li>
		    </ul></li>
		<li>examining crashdumps using utilities
		    <ul>
		    <li>ps, netstat, etc.</li>
		    </ul></li>
		<li>debugging strategies
		    <ul>
		    <li>kernel crashes</li>
		    <li>system hangs</li>
		    </ul></li>
		</ul>
		</p>
	    ]]></desc>
	    <tags>bsdcan,bsdcan2008,slides,paper,debugging,freebsd,john baldwin</tags>
	    <files>

		This talk discusses the port of the DTrace facility
		to FreeBSD and demonstrates examples on a live
		FreeBSD system.
		</p>
		<ul>
		<li>Introduction to the D language - probes, predicates and actions.</li>
		<li>dtrace(8) and libdtrace - the userland side of the DTrace story.</li>
		<li>The DTrace kernel module, it's ioctl interface to userland and the provider infrastructure in the kernel.</li>
		<li>DTrace kernel hooks and the problem of code licensed under Sun's CDDL.</li>
		<li>What does a DTrace probe actually do?</li>
		<li>DTrace safety and how it is implemented.</li>
		<li>Build system changes to add CTF (Compact C Type Format) data to objects, shared libraries and executables.</li>
		<li>The DTrace test suite.</li>
		<li>A brief list of things to do to port the DTrace facility to other BSD-derived operating systems.</li>
		</ul>
		</p>
	    ]]></desc>
	    <tags>bsdcan,bsdcan2008,slides,dtrace,freebsd,john birrell</tags>
	    <files>

		to the user. Then we will shift gears and discuss
		the extended socket API that is available to SCTP
		users and will cover such items as:
		</p>
		<ul>
		<li>The two socket programming models</li>
		<li>Extended system calls that support the SCTP feature set.</li>
		<li>What model may fit you best</li>
		</ul>
		</p>
	    ]]></desc>
	    <tags>bsdcan,bsdcan2008,abstract,freebsd,sctp,randall stewart</tags>
	    <files>

	    <desc><![CDATA[
		<h1>Opening session</h1>
		Welcome to BSDCan 2008
		<br />
		Traditional greetings
	    ]]></desc>
	    <tags>bsdcan,bsdcan2008,slides,dan langille</tags>

	    <title>BSDCan-2007 - Videos</title>
	    <overview>http://people.freebsd.org/~julian/BSDCan-2007/</overview>
	    <desc><![CDATA[
		The 2007 BSDCan conference<br />
		Kirk McKusick - Code Reading of Locally-Connected Sockets<br />
	    ]]></desc>
	    <tags>bsdcan,bsdcan2007,talks,kirk mckusick</tags>
	    <files>

	    <title>BSDCan-2007 - Videos</title>
	    <overview>http://people.freebsd.org/~julian/BSDCan-2007/</overview>
	    <desc><![CDATA[
		The 2007 BSDCan conference<br />
		Erwin Lansing - The state of the FreeBSD Ports Tree<br />
	    ]]></desc>
	    <tags>bsdcan,bsdcan2007,talks,erwin lansing,ports</tags>
	    <files>

	    <title>BSDCan-2007 - Videos</title>
	    <overview>http://people.freebsd.org/~julian/BSDCan-2007/</overview>
	    <desc><![CDATA[
		The 2007 BSDCan conference<br />
		Kris Kennaway - Scalability Update 2007<br />
		Progress on FreeBSD SMP performance and scalablity
		since BSDCan Dev Summit 2006
	    ]]></desc>

	    <title>BSDCan-2007 - Videos</title>
	    <overview>http://people.freebsd.org/~julian/BSDCan-2007/</overview>
	    <desc><![CDATA[
		The 2007 BSDCan conference<br />
		Qing Li - Routing, ARP and ND6
	    ]]></desc>
	    <tags>bsdcan,bsdcan2007,talks,qing li,routing arp and nd6</tags>

	    <title>BSDCan-2007 - Videos</title>
	    <overview>http://people.freebsd.org/~julian/BSDCan-2007/</overview>
	    <desc><![CDATA[
		The 2007 BSDCan conference<br />
		Marko Zec explains the vimage architecture
	    ]]></desc>
	    <tags>bsdcan,bsdcan2007,talks,marko zec,vimage</tags>

	    <title>BSDCan-2007 - Videos</title>
	    <overview>http://people.freebsd.org/~julian/BSDCan-2007/</overview>
	    <desc><![CDATA[
		The 2007 BSDCan conference<br />
		Max Laier - PFIL, firewalls and locking
	    ]]></desc>
	    <tags>bsdcan,bsdcan2007,talks,max laier,ipf</tags>

	    <desc><![CDATA[
		"FreeBSD Portsnap - 
		What (it is), Why (it was written), and How (it works)"
		by Colin Percival (cperciva@FreeBSD.org)<br />
		(Note: use ^L to get back in non-fullscreen mode)
	    ]]></desc>
	    <tags>bsdcan,bsdcan2007,pdf,portsnap,freebsd,colin percival</tags>

Lines 2-14 Link Here

(-)multimedia.pl (-83 / +239 lines)
2		2
3	#	3	#
4	# $Id$	4	# $Id$
5	# $FreeBSD: www/en/multimedia/multimedia.pl,v 1.2 2008/05/30 15:22:01 remko Exp $	5	# $FreeBSD$
6	#	6	#
7		7
8	use strict;	8	use strict;
9	use XML::Parser;	9	use XML::Parser;
10	use Data::Dumper;	10	use Data::Dumper;
11	use POSIX;	11	use POSIX;
		12	use IO::File;
12		13
13	my @months = (	14	my @months = (
14	"", "January", "February", "March",	15	"", "January", "February", "March",
Lines 17-23 Link Here
17	"November", "December"	18	"November", "December"
18	);	19	);
19		20
20	my @createdfiles = ();	21	my @createdhtml = ();
		22	my @createdsgml = ();
		23	my @createdxml = ();
21		24
22	my @tree = ();	25	my @tree = ();
23	my @values = ();	26	my @values = ();
Lines 28-33 Link Here
28	my %sources;	31	my %sources;
29	my $sid = "";	32	my $sid = "";
30	my %tags;	33	my %tags;
		34	my $tag = "";
31		35
32	sub addtags {	36	sub addtags {
33	my $tags = shift;	37	my $tags = shift;
Lines 78-89 Link Here
78	&& $treeindex == 5) {	82	&& $treeindex == 5) {
79	$items[$ci]{fc}++;	83	$items[$ci]{fc}++;
80	}	84	}
		85
		86	if ($treeindex == 3 &&
		87	$element eq "tags") {
		88	$tag = "";
		89	}
81	}	90	}
82		91
83	sub xml_end {	92	sub xml_end {
84	my $expat = shift;	93	my $expat = shift;
85	my $element = shift;	94	my $element = shift;
86		95
		96	if ($treeindex == 3 &&
		97	$element eq "tags") {
		98	@{$items[$ci]{tags}} = split(/,/, $tag);
		99	addtags($tag);
		100	}
		101
87	$values[$treeindex] = ();	102	$values[$treeindex] = ();
88	$treeindex--;	103	$treeindex--;
89	}	104	}
Lines 122-129 Link Here
122	return;	137	return;
123	}	138	}
124	if ($tree[3] eq "tags") {	139	if ($tree[3] eq "tags") {
125	@{$items[$ci]{tags}} = split(/,/, $value);	140	$tag .= $value;
126	addtags($value);
127	return;	141	return;
128	}	142	}
129		143
Lines 240-331 Link Here
240	# HTML overview output	254	# HTML overview output
241	#	255	#
242	sub print_htmlitem {	256	sub print_htmlitem {
		257	my $fhandle = shift;
243	my $item = shift;	258	my $item = shift;
244	my %item = %{$item};	259	my %item = %{$item};
245	my $source = shift;	260	my $source = shift;
246	my %source = %{$source};	261	my %source = %{$source};
247		262
248	print FOUT "<li><p>";	263	print $fhandle "<li><p>";
249	if (defined $item{overview}) {	264	if (defined $item{overview}) {
250	print FOUT "<a href=\"$item{overview}\">$item{title}</a>\n";	265	print $fhandle "<a href=\"$item{overview}\">$item{title}</a>\n";
251	} else {	266	} else {
252	my %media = %{$item{files}{0}};	267	my %media = %{$item{files}{0}};
253	print FOUT "<a href=\"$media{url}\">$item{title}</a>\n";	268	print $fhandle "<a href=\"$media{url}\">$item{title}</a>\n";
254	if (defined $media{size} \|\| defined $media{length}) {	269	if (defined $media{size} \|\| defined $media{length}) {
255	my $s = "";	270	my $s = "";
256	print FOUT "(";	271	print $fhandle "(";
257	if (defined $media{size}) {	272	if (defined $media{size}) {
258	print FOUT "$media{size}";	273	print $fhandle "$media{size}";
259	$s = ", ";	274	$s = ", ";
260	}	275	}
261	if (defined $media{length}) {	276	if (defined $media{length}) {
262	print FOUT "$s$media{length}";	277	print $fhandle "$s$media{length}";
263	$s = ", ";	278	$s = ", ";
264	}	279	}
265	print FOUT ")";	280	print $fhandle ")";
266	}	281	}
267	}	282	}
268	print FOUT "<br>Source: <a href=\"", $source{url}, "\">",	283	print $fhandle "<br>Source: <a href=\"", $source{url}, "\">",
269	$source{name}, "</a><br>\n";	284	$source{name}, "</a><br>\n";
270	print FOUT "Added: ",	285	print $fhandle "Added: ",
271	substr($item{added}, 6, 2), " ",	286	substr($item{added}, 6, 2), " ",
272	$months[substr($item{added}, 4, 2)], " ",	287	$months[substr($item{added}, 4, 2)], " ",
273	substr($item{added}, 0, 4), "<br>\n";	288	substr($item{added}, 0, 4), "<br>\n";
274		289
275	print FOUT "Tags: ";	290	print $fhandle "Tags: ";
276	{	291	{
277	my $first = 1;	292	my $first = 1;
278	foreach my $t (@{$item{tags}}) {	293	foreach my $t (@{$item{tags}}) {
279	print FOUT ", " if (!$first);	294	print $fhandle ", " if (!$first);
280	# join(", ", @{$item{$t}}), "<br>\n";	295	# join(", ", @{$item{$t}}), "<br>\n";
281	my $th = $t;	296	my $th = $t;
282	$th =~ s/ /_/g;	297	$th =~ s/ /_/g;
283	print FOUT "<a href=\"multimedia-tag-$th.html\">$t</a>";	298	print $fhandle "<a href=\"tag-$th.html\">$t</a>";
284	$first = 0;	299	$first = 0;
285	}	300	}
286	}	301	}
287	print FOUT "<br>\n";	302	print $fhandle "<br>\n";
288		303
289	if (defined $item{overview} && defined $item{files}) {	304	if (defined $item{overview} && defined $item{files}) {
290	my $c = 0;	305	my $c = 0;
291	foreach my $m (keys(%{$item{files}})) {	306	foreach my $m (keys(%{$item{files}})) {
292	my %file = %{$item{files}{$m}};	307	my %file = %{$item{files}{$m}};
293	print FOUT ", " if ($c++);	308	print $fhandle ", " if ($c++);
294	if (defined $item{prefix}) {	309	if (defined $item{prefix}) {
295	print FOUT "<a href=\"$item{prefix}/$file{url}\">$file{desc}</a>";	310	print $fhandle "<a href=\"$item{prefix}/$file{url}\">$file{desc}</a>";
296	} else {	311	} else {
297	print FOUT "<a href=\"$file{url}\">$file{desc}</a>";	312	print $fhandle "<a href=\"$file{url}\">$file{desc}</a>";
298	}	313	}
299	if (defined $file{size} \|\| defined $file{length}) {	314	if (defined $file{size} \|\| defined $file{length}) {
300	my $s = "";	315	my $s = "";
301	print FOUT " (";	316	print $fhandle " (";
302	if (defined $file{size}) {	317	if (defined $file{size}) {
303	print FOUT "$file{size}";	318	print $fhandle "$file{size}";
304	$s = ", ";	319	$s = ", ";
305	}	320	}
306	if (defined $file{length}) {	321	if (defined $file{length}) {
307	print FOUT "$s$file{length}";	322	print $fhandle "$s$file{length}";
308	$s = ", ";	323	$s = ", ";
309	}	324	}
310	print FOUT ")";	325	print $fhandle ")";
311	}	326	}
312	}	327	}
313	print FOUT "<br>\n";	328	print $fhandle "<br>\n";
314	}	329	}
315	print FOUT "$item{desc}\n";	330	print $fhandle "</p>\n";
		331	print $fhandle "$item{desc}\n";
		332	print $fhandle "</li>\n";
316	}	333	}
317	{	334	{
318	$createdfiles[$#createdfiles+1] = "multimedia.html";	335	$createdhtml[$#createdhtml+1] = "multimedia.html";
319	open(FOUT, ">multimedia.html");	336	$createdsgml[$#createdsgml+1] = "multimedia.sgml";
		337	my $fhtml = new IO::File;
		338	my $fsgml = new IO::File;
		339
		340	open($fhtml, ">multimedia.html");
320	open(FIN, "multimedia.html.pre");	341	open(FIN, "multimedia.html.pre");
321	my @lines = <FIN>;	342	my @lines = <FIN>;
322	close(FIN);	343	close(FIN);
323	print FOUT @lines;	344	print $fhtml @lines;
324	open(FIN, "multimedia.html.intro");	345	open(FIN, "multimedia.html.intro");
325	@lines = <FIN>;	346	@lines = <FIN>;
326	close(FIN);	347	close(FIN);
327	print FOUT @lines;	348	print $fhtml @lines;
328	print FOUT "<h2 id=\"latest\">Newest resources</h2>\n";	349	print $fhtml "<h2 id=\"latest\">Newest resources</h2>\n";
		350
		351	open($fsgml, ">multimedia.sgml");
		352	open(FIN, "multimedia.sgml.pre");
		353	@lines = <FIN>;
		354	close(FIN);
		355	print $fsgml @lines;
		356	open(FIN, "multimedia.sgml.intro");
		357	@lines = <FIN>;
		358	close(FIN);
		359	print $fsgml @lines;
		360	print $fsgml "<h2 id=\"latest\">Newest resources</h2>\n";
329		361
330	my $month = "";	362	my $month = "";
331		363
Lines 333-370 Link Here
333	my %item = %{$items[$order]};	365	my %item = %{$items[$order]};
334	my %source = %{$sources{$item{source}}};	366	my %source = %{$sources{$item{source}}};
335	if (substr($item{added}, 0, 6) ne $month) {	367	if (substr($item{added}, 0, 6) ne $month) {
336	print FOUT "</ul><h2>", $months[substr($item{added}, 4, 2)+0], " ", substr($item{added}, 0, 4), "</h2><ul>";	368	if ($month ne "") {
		369	print $fhtml "</ul>\n";
		370	print $fsgml "</ul>\n";
		371	}
		372	print $fhtml "<h2>", $months[substr($item{added}, 4, 2)+0], " ", substr($item{added}, 0, 4), "</h2><ul>";
		373	print $fsgml "<h2>", $months[substr($item{added}, 4, 2)+0], " ", substr($item{added}, 0, 4), "</h2><ul>";
337	$month = substr($item{added}, 0, 6);	374	$month = substr($item{added}, 0, 6);
338	}	375	}
339		376
340	print_htmlitem(\%item, \%source);	377	print_htmlitem($fhtml, \%item, \%source);
		378	print_htmlitem($fsgml, \%item, \%source);
341	}	379	}
342		380
343	print FOUT "</ul>\n";	381	print $fhtml "</ul>\n";
344
345	open(FIN, "multimedia.html.post");	382	open(FIN, "multimedia.html.post");
346	@lines = <FIN>;	383	@lines = <FIN>;
347	close(FIN);	384	close(FIN);
348	print FOUT @lines;	385	print $fhtml @lines;
		386	close($fhtml);
349		387
350	close(FOUT);	388	print $fsgml "</ul>\n";
		389	open(FIN, "multimedia.sgml.post");
		390	@lines = <FIN>;
		391	close(FIN);
		392	print $fsgml @lines;
		393	close($fsgml);
351	}	394	}
352		395
353	#	396	#
354	# HTML cloud output	397	# HTML cloud output
355	#	398	#
356	{	399	{
357	$createdfiles[$#createdfiles+1] = "multimedia-tags.html";	400	$createdhtml[$#createdhtml+1] = "tags.html";
358	open(FOUT, ">multimedia-tags.html");	401	$createdsgml[$#createdsgml+1] = "tags.sgml";
		402	my $fhtml = new IO::File;
		403	my $fsgml = new IO::File;
		404	open($fhtml, ">tags.html");
		405	open($fsgml, ">tags.sgml");
		406
359	open(FIN, "multimedia.html.pre");	407	open(FIN, "multimedia.html.pre");
360	my @lines = <FIN>;	408	my @lines = <FIN>;
361	close(FIN);	409	close(FIN);
362	print FOUT @lines;	410	print $fhtml @lines;
363	open(FIN, "multimedia.html.intro");	411	open(FIN, "multimedia.html.intro");
364	@lines = <FIN>;	412	@lines = <FIN>;
365	close(FIN);	413	close(FIN);
366	print FOUT @lines;	414	print $fhtml @lines;
367	print FOUT "<h2 id=\"latest\">Tags</h2>\n";	415	print $fhtml "<h2 id=\"latest\">Tags</h2>\n";
		416
		417	open(FIN, "multimedia.sgml.pre");
		418	@lines = <FIN>;
		419	close(FIN);
		420	print $fsgml @lines;
		421	open(FIN, "multimedia.sgml.intro");
		422	@lines = <FIN>;
		423	close(FIN);
		424	print $fsgml @lines;
		425	print $fsgml "<h2 id=\"latest\">Tags</h2>\n";
368		426
369	my $month = "";	427	my $month = "";
370		428
Lines 377-392 Link Here
377	foreach my $tag (sort size(keys(%tags))) {	435	foreach my $tag (sort size(keys(%tags))) {
378	my $ftag = $tag;	436	my $ftag = $tag;
379	$ftag =~ s/ /_/g;	437	$ftag =~ s/ /_/g;
380	print FOUT "<font style=\"font-size:${size}pt\"><a href=\"multimedia-tag-$ftag.html\">$tag</a></font>\n";	438	print $fhtml "<font style=\"font-size:${size}pt\"><a href=\"tag-$ftag.html\">$tag</a></font>\n";
		439	print $fsgml "<font style=\"font-size:${size}pt\"><a href=\"tag-$ftag.html\">$tag</a></font>\n";
381	$size-- if ($c++%10 == 0 && $size > 2);	440	$size-- if ($c++%10 == 0 && $size > 2);
382	}	441	}
383		442
384	open(FIN, "multimedia.html.post");	443	open(FIN, "multimedia.html.post");
385	@lines = <FIN>;	444	@lines = <FIN>;
386	close(FIN);	445	close(FIN);
387	print FOUT @lines;	446	print $fhtml @lines;
388		447
389	close(FOUT);	448	open(FIN, "multimedia.sgml.post");
		449	@lines = <FIN>;
		450	close(FIN);
		451	print $fsgml @lines;
		452
		453	close($fhtml);
		454	close($fsgml);
390	}	455	}
391		456
392	#	457	#
Lines 394-414 Link Here
394	#	459	#
395	{	460	{
396	foreach my $tag (keys(%tags)) {	461	foreach my $tag (keys(%tags)) {
		462	my $fhtml = new IO::File;
		463	my $fsgml = new IO::File;
		464
397	my $ftag = $tag;	465	my $ftag = $tag;
398	$ftag =~ s/ /_/g;	466	$ftag =~ s/ /_/g;
399	$createdfiles[$#createdfiles+1] = "multimedia-tag-$ftag.html";	467	$createdhtml[$#createdhtml+1] = "tag-$ftag.html";
400	open(FOUT, ">multimedia-tag-$ftag.html");	468	$createdsgml[$#createdsgml+1] = "tag-$ftag.sgml";
		469	open($fhtml, ">tag-$ftag.html");
		470	open($fsgml, ">tag-$ftag.sgml");
401		471
402	open(FIN, "multimedia.html.pre");	472	open(FIN, "multimedia.html.pre");
403	my @lines = <FIN>;	473	my @lines = <FIN>;
404	close(FIN);	474	close(FIN);
405	print FOUT @lines;	475	print $fhtml @lines;
406	open(FIN, "multimedia.html.intro");	476	open(FIN, "multimedia.html.intro");
407	@lines = <FIN>;	477	@lines = <FIN>;
408	close(FIN);	478	close(FIN);
409	print FOUT @lines;	479	print $fhtml @lines;
410	print FOUT "<h2 id=\"latest\">Tag: $tag</h2>\n";	480	print $fhtml "<h2 id=\"latest\">Tag: $tag</h2>\n";
411	print FOUT "<ul>\n";	481	print $fhtml "<ul>\n";
		482
		483	open(FIN, "multimedia.sgml.pre");
		484	@lines = <FIN>;
		485	close(FIN);
		486	print $fsgml @lines;
		487	open(FIN, "multimedia.sgml.intro");
		488	@lines = <FIN>;
		489	close(FIN);
		490	print $fsgml @lines;
		491	print $fsgml "<h2 id=\"latest\">Tag: $tag</h2>\n";
		492	print $fsgml "<ul>\n";
412		493
413	foreach my $item (@items) {	494	foreach my $item (@items) {
414	my %item = %{$item};	495	my %item = %{$item};
Lines 435-450 Link Here
435	}	516	}
436	}	517	}
437		518
438	print_htmlitem(\%item, \%source) if ($found);	519	print_htmlitem($fhtml, \%item, \%source) if ($found);
		520	print_htmlitem($fsgml, \%item, \%source) if ($found);
439		521
440	}	522	}
441		523
442	print FOUT "</ul>\n";	524	print $fhtml "</ul>\n";
443	open(FIN, "multimedia.html.post");	525	open(FIN, "multimedia.html.post");
444	@lines = <FIN>;	526	@lines = <FIN>;
445	close(FIN);	527	close(FIN);
446	print FOUT @lines;	528	print $fhtml @lines;
447	close(FOUT);	529	close($fhtml);
		530
		531	print $fsgml "</ul>\n";
		532	open(FIN, "multimedia.sgml.post");
		533	@lines = <FIN>;
		534	close(FIN);
		535	print $fsgml @lines;
		536	close($fsgml);
		537
448	}	538	}
449	}	539	}
450		540
Lines 452-469 Link Here
452	# HTML all-sources output	542	# HTML all-sources output
453	#	543	#
454	{	544	{
455	$createdfiles[$#createdfiles+1] = "multimedia-sources.html";	545	my $fhtml = new IO::File;
456	open(FOUT, ">multimedia-sources.html");	546	my $fsgml = new IO::File;
		547
		548	$createdhtml[$#createdhtml+1] = "sources.html";
		549	$createdsgml[$#createdsgml+1] = "sources.sgml";
		550	open($fhtml, ">sources.html");
		551	open($fsgml, ">sources.sgml");
		552
457	open(FIN, "multimedia.html.pre");	553	open(FIN, "multimedia.html.pre");
458	my @lines = <FIN>;	554	my @lines = <FIN>;
459	close(FIN);	555	close(FIN);
460	print FOUT @lines;	556	print $fhtml @lines;
461	open(FIN, "multimedia.html.intro");	557	open(FIN, "multimedia.html.intro");
462	@lines = <FIN>;	558	@lines = <FIN>;
463	close(FIN);	559	close(FIN);
464	print FOUT @lines;	560	print $fhtml @lines;
465	print FOUT "<h2 id=\"latest\">Sources</h2>\n";	561	print $fhtml "<h2 id=\"latest\">Sources</h2>\n";
466	print FOUT "<ul>\n";	562	print $fhtml "<ul>\n";
		563
		564	open(FIN, "multimedia.sgml.pre");
		565	@lines = <FIN>;
		566	close(FIN);
		567	print $fsgml @lines;
		568	open(FIN, "multimedia.sgml.intro");
		569	@lines = <FIN>;
		570	close(FIN);
		571	print $fsgml @lines;
		572	print $fsgml "<h2 id=\"latest\">Sources</h2>\n";
		573	print $fsgml "<ul>\n";
467		574
468	my $lastsource = "";	575	my $lastsource = "";
469	foreach my $item (@site_order) {	576	foreach my $item (@site_order) {
Lines 471-491 Link Here
471	next if ($lastsource eq $item{source});	578	next if ($lastsource eq $item{source});
472	$lastsource = $item{source};	579	$lastsource = $item{source};
473		580
474	print FOUT "<li><a href=\"multimedia-source-$lastsource.html\">", $sources{$item{source}}{name}, "</a>\n";	581	print $fhtml "<li><a href=\"source-$lastsource.html\">", $sources{$item{source}}{name}, "</a>\n";
		582	print $fsgml "<li><a href=\"source-$lastsource.html\">", $sources{$item{source}}{name}, "</a>\n";
475	}	583	}
476		584
477	print FOUT "</ul>\n";	585	print $fhtml "</ul>\n";
478	open(FIN, "multimedia.html.post");	586	open(FIN, "multimedia.html.post");
479	@lines = <FIN>;	587	@lines = <FIN>;
480	close(FIN);	588	close(FIN);
481	print FOUT @lines;	589	print $fhtml @lines;
482	close(FOUT);	590	close($fhtml);
		591
		592	print $fsgml "</ul>\n";
		593	open(FIN, "multimedia.sgml.post");
		594	@lines = <FIN>;
		595	close(FIN);
		596	print $fsgml @lines;
		597	close($fsgml);
		598
483	}	599	}
484		600
485	#	601	#
486	# HTML per-source output	602	# HTML per-source output
487	#	603	#
488	{	604	{
		605	my $fhtml = new IO::File;
		606	my $fsgml = new IO::File;
		607
489	my $lastsource = "";	608	my $lastsource = "";
490	foreach my $item (@site_order) {	609	foreach my $item (@site_order) {
491	my %item = %{$item};	610	my %item = %{$item};
Lines 493-528 Link Here
493	if ($lastsource ne $item{source}) {	612	if ($lastsource ne $item{source}) {
494		613
495	if ($lastsource) {	614	if ($lastsource) {
496	print FOUT "</ul>\n";	615	print $fhtml "</ul>\n";
		616	print $fsgml "</ul>\n";
		617
497	open(FIN, "multimedia.html.post");	618	open(FIN, "multimedia.html.post");
498	my @lines = <FIN>;	619	my @lines = <FIN>;
499	close(FIN);	620	close(FIN);
500	print FOUT @lines;	621	print $fhtml @lines;
501	close(FOUT);	622	close($fhtml);
		623
		624	open(FIN, "multimedia.sgml.post");
		625	@lines = <FIN>;
		626	close(FIN);
		627	print $fsgml @lines;
		628	close($fsgml);
		629
502	}	630	}
503	$createdfiles[$#createdfiles+1] = "multimedia-source-$item{source}.html";	631	$createdhtml[$#createdhtml+1] = "source-$item{source}.html";
504	open(FOUT, ">multimedia-source-$item{source}.html");	632	$createdsgml[$#createdsgml+1] = "source-$item{source}.sgml";
		633	open($fhtml, ">source-$item{source}.html");
		634	open($fsgml, ">source-$item{source}.sgml");
		635
505	open(FIN, "multimedia.html.pre");	636	open(FIN, "multimedia.html.pre");
506	my @lines = <FIN>;	637	my @lines = <FIN>;
507	close(FIN);	638	close(FIN);
508	print FOUT @lines;	639	print $fhtml @lines;
509	open(FIN, "multimedia.html.intro");	640	open(FIN, "multimedia.html.intro");
510	@lines = <FIN>;	641	@lines = <FIN>;
511	close(FIN);	642	close(FIN);
512	print FOUT @lines;	643	print $fhtml @lines;
		644
		645	open(FIN, "multimedia.sgml.pre");
		646	@lines = <FIN>;
		647	close(FIN);
		648	print $fsgml @lines;
		649	open(FIN, "multimedia.sgml.intro");
		650	@lines = <FIN>;
		651	close(FIN);
		652	print $fsgml @lines;
		653
513	$lastsource = $item{source};	654	$lastsource = $item{source};
514	print FOUT "<h2 id=\"latest\">$source{name}</h2>\n";	655	print $fhtml "<h2 id=\"latest\">$source{name}</h2>\n<ul>\n";
515	print FOUT "<ul>\n";	656	print $fsgml "<h2 id=\"latest\">$source{name}</h2>\n<ul>\n";
516	}	657	}
517	print_htmlitem(\%item, \%source);	658	print_htmlitem($fhtml, \%item, \%source);
		659	print_htmlitem($fsgml, \%item, \%source);
518		660
519	}	661	}
520	print FOUT "</ul>\n";	662	print $fhtml "</ul>\n";
		663	print $fsgml "</ul>\n";
		664
521	open(FIN, "multimedia.html.post");	665	open(FIN, "multimedia.html.post");
522	my @lines = <FIN>;	666	my @lines = <FIN>;
523	close(FIN);	667	close(FIN);
524	print FOUT @lines;	668	print $fhtml @lines;
525	close(FOUT);	669	close($fhtml);
		670
		671	open(FIN, "multimedia.sgml.post");
		672	@lines = <FIN>;
		673	close(FIN);
		674	print $fsgml @lines;
		675	close($fsgml);
526	}	676	}
527		677
528	#	678	#
Lines 579-592 Link Here
579	print FOUT "<pubDate>$date</pubDate>\n";	729	print FOUT "<pubDate>$date</pubDate>\n";
580	print FOUT "<enclosure url=\"", htmlentities($file{url}), "\" length=\"1\" type=\"application/octet-stream\" />\n";	730	print FOUT "<enclosure url=\"", htmlentities($file{url}), "\" length=\"1\" type=\"application/octet-stream\" />\n";
581	print FOUT "<description>";	731	print FOUT "<description>";
582	print FOUT htmlentities("$item{title}<br>From: $source{name}<br>");	732	print FOUT htmlentities("$item{title}<br/>From: $source{name}<br/>");
583	print FOUT htmlentities("Tags: $tags<br>\n");	733	print FOUT htmlentities("Tags: $tags<br/>\n");
584	print FOUT htmlentities("$item{desc}");	734	print FOUT htmlentities("$item{desc}");
585	print FOUT "</description>\n";	735	print FOUT "</description>\n";
586	print FOUT "</item>\n";	736	print FOUT "</item>\n";
587	}	737	}
588		738
589	$createdfiles[$#createdfiles+1] = "multimedia.xml";	739	$createdxml[$#createdxml+1] = "multimedia.xml";
590	open(FOUT, ">multimedia.xml");	740	open(FOUT, ">multimedia.xml");
591		741
592	my @s = stat("multimedia-input.xml");	742	my @s = stat("multimedia-input.xml");
Lines 624-631 Link Here
624	# Created files	774	# Created files
625	#	775	#
626	{	776	{
627	open(FOUT, ">multimedia.created");	777	open(FOUT, ">multimedia.html.created");
628	foreach my $f (@createdfiles) {	778	foreach my $f (@createdhtml) {
		779	print FOUT "$f\n";
		780	}
		781	close(FOUT);
		782
		783	open(FOUT, ">multimedia.sgml.created");
		784	foreach my $f (@createdsgml) {
629	print FOUT "$f\n";	785	print FOUT "$f\n";
630	}	786	}
631	close(FOUT);	787	close(FOUT);




<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>
This list is available as <a href="multimedia.html">chronological
overview</a>, as a <a href="tags.html">tag cloud</a> and
via <a href="sources.html">the sources</a>.
</p>

<p>
This list is also available as RSS feed <a href="multimedia.xml"><img
src="http://www.freebsd.org/layout/images/ico_rss.png" alt="RSS Feed"></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>

Added Link Here

(-)multimedia.sgml.post (+4 lines)
1	&footer;
2	</body>
3	</html>
4

Added Link Here

(-)multimedia.sgml.pre (+8 lines)
1	<!DOCTYPE HTML PUBLIC "-//FreeBSD//DTD HTML 4.01 Transitional-Based Extension//EN" [
2	<!ENTITY date "$FreeBSD$">
3	<!ENTITY title "FreeBSD Multimedia">
4	<!ENTITY % navinclude.about "INCLUDE">
5	<!ENTITY base "..">
6	]>
7	<html>
8	&header;

Return to bug 124447

Lines 10-39 Link Here

(-)Makefile (-22 / +22 lines)
10	.include "Makefile.inc"	10	.include "Makefile.inc"
11	.endif	11	.endif
12		12
13	INDEXLINK= multimedia.html	13	#all: build
14		14	all: build
15	FXML = multimedia-input.xml	15	cd output && make all DIRPRFX=multimedia/output/
16	FHTML = \	16
17	multimedia.html.intro \	17	install:
18	multimedia.html.pre \	18	cd output && make install DIRPRFX=multimedia/output/
19	multimedia.html.post	19
20	FLIST = multimedia.created	20	TEMPLATES= multimedia.sgml.intro \
21	FSCRIPT = multimedia.pl	21	multimedia.sgml.post \
22		22	multimedia.sgml.pre \
23	.if exists(${FLIST})	23	multimedia.html.intro \
24	DATA!= cat ${FLIST}	24	multimedia.html.post \
25	.else	25	multimedia.html.pre \
26	DATA= ${INDEXLINK}	26	multimedia-input.xml
27	.endif
28
29	all: ${FLIST}
30		27
31	clean:	28	clean:
32	if test -f ${FLIST} ; then \	29	-${RM} output/*
33	xargs ${RM} < ${FLIST} && ${RM} ${FLIST} ; \
34	fi
35		30
36	${FLIST}: ${FSCRIPT} ${FXML} ${FHTML}	31	build:
37	perl -Tw ${FSCRIPT}	32	(test -d output \|\| ${MKDIR} output ) && \
		33	cd output && \
		34	${LN} -fs ../Makefile.output Makefile && \
		35	( for f in ${TEMPLATES}; do ${LN} -fs ../$$f $$f; done ) && \
		36	${PERL} -Tw ../multimedia.pl && \
		37	${RM} -f *.html
38		38
39	.include "${WEB_PREFIX}/share/mk/web.site.mk"	39	.include "${WEB_PREFIX}/share/mk/web.site.mk"

Added Link Here

(-)Makefile.output (+15 lines)
1	.if exists(../../Makefile.conf)
2	.include "../../Makefile.conf"
3	.endif
4	.if exists(../../Makefile.inc)
5	.include "../../Makefile.inc"
6	.endif
7
8	DOCS!= cat multimedia.sgml.created
9	DATA= multimedia.xml
10
11	WEBDIR= multimedia
12
13	WEB_PREFIX:= ${WEB_PREFIX}/../
14
15	.include "${WEB_PREFIX}/share/mk/web.site.mk"

Added Link Here

(-)multimedia.sgml.intro (+24 lines)
1	<h1>FreeBSD Multimedia Resources List</h1>
2	<p>
3	Links on this page refer to multimedia resources (podcast, vodcast,
4	audio recordings, video recordings, photos) related to FreeBSD or
5	of interest for FreeBSD users.
6	</p>
7
8	<p>
9	This list is available as <a href="multimedia.html">chronological
10	overview</a>, as a <a href="tags.html">tag cloud</a> and
11	via <a href="sources.html">the sources</a>.
12	</p>
13
14	<p>
15	This list is also available as RSS feed <a href="multimedia.xml"><img
16	src="http://www.freebsd.org/layout/images/ico_rss.png" alt="RSS Feed"></a>
17	</p>
18
19	<p>
20	If you know any resources not listed here, or notice any dead links,
21	please send details to
22	<a href="mailto:edwin\@FreeBSD.org">Edwin Groothuis</a> so that
23	it can be included or updated.
24	</p>