#! /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>

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();
