Finally merged the branch 'apache20'(+'apache2') back to the main trunk.
[www.jankratochvil.net.git] / project / captive / Press.pm
diff --git a/project/captive/Press.pm b/project/captive/Press.pm
new file mode 100755 (executable)
index 0000000..efc9761
--- /dev/null
@@ -0,0 +1,115 @@
+# $Id$
+# Captive project Press page Perl template.
+# Copyright (C) 2004-2005 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;
+
+use My::Web;
+Wrequire 'project::Lib';
+
+
+sub handler
+{
+My::Web->init(
+               "title"=>'Captive NTFS Internet Press',
+               "css_push"=>"./Lib.css",
+               "heading_novskip"=>1,
+               "no_job"=>1,
+               "charset"=>"utf-8",
+               );
+My::Web->heading();
+print(project::Lib->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";
+
+
+exit;
+}
+1;