--- /dev/null
+#! /usr/bin/perl
+#
+# $Id$
+# Captive project Press page Perl template.
+# Copyright (C) 2004 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; exactly version 2 of June 1991 is required
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+
+package project::captive::Press;
+require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
+use strict;
+use warnings;
+
+BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
+use My::Web;
+Wrequire 'My::Project';
+
+
+My::Web->init(
+ "__PACKAGE__"=>__PACKAGE__,
+ "title"=>'Captive NTFS Internet Press',
+ "head_css"=>"
+.name { font-style: italic; }
+",
+ "WebConfig::heading_novskip"=>1,
+ "no_job"=>1,
+ );
+My::Web->heading();
+print My::Project->section("captive");
+
+
+print <<'HERE';
+<h1>Captive NTFS Internet Press</h1>
+
+<ul>
+HERE
+
+sub name ($;$$)
+{
+my($name,$pos,$why)=@_;
+
+ my $r="<li>";
+ $r.='<span class="name">'.$name.'</span>';
+ $r.=", $pos" if $pos;
+ $r.=" - $why" if $why;
+ $r.="</li>\n";
+ return $r;
+}
+
+my @URLs=(
+'http://www.insert.cd/'=>'INSERT CD featuring r/w NTFS',
+'http://www.bitdefender.com/bd/site/presscenter.php?menu_id=25&n_id=58'=>'LinuxDefender Live! CD - FULL NTFS write support',
+'http://arstechnica.com/etc/linux/2003/linux.ars-20040128-2.html'=>'Ars Technica /dev/random',
+'http://blog.choas.net/archives/000290.html'=>'Mit Linux auf NTFS-Partitionen schreiben',
+'http://brlinux.linuxsecurity.com.br/noticias/001283.html'=>'"Acelerador" de páginas e soluçao alternativa para NTFS',
+'http://bugs.gentoo.org/show_bug.cgi?id=32929'=>'Gentoo Bugzilla for Captive Integration',
+'http://cbbrowne.com/info/fs.html'=>"Christopher Browne's File Systems",
+'http://circle.ch/blog/p1291.html'=>'Captive - Handling NTFS on GNU/Linux',
+'http://cocaxx.linuxsys.de/?content=/Fedora/Faq'=>'Q: How do I read my NTFS drive in Fedora?',
+'http://coffeenix.net/?cata_code=53'=>'NTFS Captive (?)',
+'http://cofradia.org/modules.php?name=News&file=article&sid=7649'=>'NTFS completo para Linux',
+'http://computerbase.de/news.php?id=6718'=>'ComputerBase - Sicherer NTFS-Schreibzugriff unter Linux',
+'http://debianforum.de/forum/viewtopic.php?t=16768'=>'Thema anzeigen - NTFS schrfeibsupport für linux!',
+'http://devel.linuxwiki.de/gaga/NTFS'=>'NTFS - LinuxWiki - gaga',
+'http://developers.slashdot.org/index.pl?section=developers&issue=20040110'=>'Slashdot: Knoppix Variant Offers Full NTFS Write Support',
+'http://diariolinux.com/articulos.php?idnodo=120'=>'Captive: primer driver NTFS con soporte read/write para Linux',
+'http://dream.lv/forum/viewtopic.php?t=2198'=>'Zagolovok soobscheniya: NTFS i Linux snova',
+'http://e-noise.com.br/b2/index.php?p=241&more=1'=>'Linux já pode manusear partiçoes NTFS',
+'http://elotrolado.net/showthread.php?threadid=247770'=>'Comunidad EOL - Leer y escribir particiones NTFS',
+'http://en.wikipedia.org/wiki/NTFS'=>'NTFS - Wikipedia',
+'http://excluded.org/board/viewtopic.php?t=306'=>'Thema anzeigen - Auf NTFS-Partitionen schreiben',
+'http://fedora.artoo.net/faq/#NTFS'=>'The Unofficial #fedora FAQ',
+'http://fedora.jp/wiki/?FAQ%2FWindows%20%28NTFS%29%20%A4%CE%CE%CE%B0%E8%A4%F2%A5%DE%A5%A6%A5%F3%A5%C8%A4%B7%A4%BF%A4%A4#sda17413'=>'Fedora FAQ Wiki Japan',
+'http://foro.powers.cl/viewtopic.php?p=1044802'=>'Ver tema - Captive-NTFS',
+'http://forum-windows.dyndns.org/forum/index.php?showtopic=23306'=>'Captive : Lire/ecrire Sur Des Partitions Ntfs',
+'http://forum.deviantart.com/os/unix/135331/2163372'=>'deviantART: Proper NTFS support on Linux',
+'http://forum.gazeta.pl/forum/72,2.html?f=15430&w=9445215'=>'The first free NTFS read/write filesystem for GNU/',
+'http://forum.geizhals.at/t212265,-1.html'=>'NTFS.sys unter Linux verwendbar',
+'http://forum.hardware.no/index.php?showtopic=204153'=>'Forum.hardware.no: Skrive til NTFS',
+'http://forum.html.it/forum/showthread.php?threadid=592224'=>'Captive: qualcuno lo ha testato?',
+'http://forum.libranet.com/viewtopic.php?t=3752'=>'Captive NTFS',
+'http://forum.linux.by/viewtopic.php?t=1948'=>"Besplatnaya programma, pozvolyayuschaya montirovat' NTFS v R/W",
+'http://forum.linux.se/viewtopic.php?t=12900'=>'NTFS skrivstöd',
+'http://forum.programmer.no/index.php?showtopic=204153'=>'Skrive til NTFS',
+'http://forum.scooba.org/viewtopic.php?t=1248'=>'Voir le sujet - lire ET ecrire sur une partition ntfs sous linux',
+'http://forum.sweclockers.com/showthread.php?s=&postid=2478733'=>'SweClockers.com: NTFS Skriv / Läs stöd i Linux',
+'http://forum.windows.no/index.php?showtopic=204153'=>'Skrive til NTFS',
+'http://forum.zebulon.fr/index.php?showtopic=36148'=>'Acces complet (rw !) aux partitions NTFS',
+'http://forums.amdmb.com/showthread.php?postid=2463217'=>'New NTFS writing capability for certain Linux distros',
+'http://forums.gentoo.org/viewtopic.php?t=104968'=>'Gentoo Forums: Captive NTFS - Real NTFS Read/Write?',
+);
+
+print "<ul>\n";
+while (@URLs) {
+ my $url=shift @URLs;
+ my $name=shift @URLs;
+ print "\t<li>".a_href($url,$name)."</li>\n";
+ }
+print "\t<li>...</li>\n";
+print "</ul>\n";
+
+My::Web->footer();