project/captive/Press.pm

   1 # $Id$
   2 # Captive project Press page Perl template.
   3 # Copyright (C) 2004-2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
   4 #
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; exactly version 2 of June 1991 is required
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the Free Software
  16 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17
  18
  19 package project::captive::Press;
  20 require 5.6.0;  # at least 'use warnings;' but we need some 5.6.0+ modules anyway
  21 our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
  22 our $CVS_ID=q$Id$;
  23 use strict;
  24 use warnings;
  25
  26 use My::Web;
  27 Wrequire 'project::Lib';
  28
  29
  30 sub handler
  31 {
  32 My::Web->init(
  33                 "title"=>'Captive NTFS Internet Press',
  34                 "css_push"=>"./Lib.css",
  35                 "heading_novskip"=>1,
  36                 "no_job"=>1,
  37                 "charset"=>"utf-8",
  38                 );
  39 My::Web->heading();
  40 print(project::Lib->section("captive"));
  41
  42
  43 print <<'HERE';
  44 <h1>Captive NTFS Internet Press</h1>
  45
  46 HERE
  47
  48 sub name ($;$$)
  49 {
  50 my($name,$pos,$why)=@_;
  51
  52         my $r="<li>";
  53                 $r.='<span class="name">'.$name.'</span>';
  54                 $r.=", $pos" if $pos;
  55                 $r.=" - $why" if $why;
  56         $r.="</li>\n";
  57         return $r;
  58 }
  59
  60 my @URLs=(
  61 'http://www.insert.cd/'=>'INSERT CD featuring r/w NTFS',
  62 'http://www.bitdefender.com/bd/site/presscenter.php?menu_id=25&n_id=58'=>'LinuxDefender Live! CD - FULL NTFS write support',
  63 'http://arstechnica.com/etc/linux/2003/linux.ars-20040128-2.html'=>'Ars Technica /dev/random',
  64 'http://blog.choas.net/archives/000290.html'=>'Mit Linux auf NTFS-Partitionen schreiben',
  65 'http://brlinux.linuxsecurity.com.br/noticias/001283.html'=>'"Acelerador" de páginas e soluçao alternativa para NTFS',
  66 'http://bugs.gentoo.org/show_bug.cgi?id=32929'=>'Gentoo Bugzilla for Captive Integration',
  67 'http://cbbrowne.com/info/fs.html'=>"Christopher Browne's File Systems",
  68 'http://circle.ch/blog/p1291.html'=>'Captive - Handling NTFS on GNU/Linux',
  69 'http://cocaxx.linuxsys.de/?content=/Fedora/Faq'=>'Q: How do I read my NTFS drive in Fedora?',
  70 'http://coffeenix.net/?cata_code=53'=>'NTFS Captive (?)',
  71 'http://cofradia.org/modules.php?name=News&file=article&sid=7649'=>'NTFS completo para Linux',
  72 'http://computerbase.de/news.php?id=6718'=>'ComputerBase - Sicherer NTFS-Schreibzugriff unter Linux',
  73 'http://debianforum.de/forum/viewtopic.php?t=16768'=>'Thema anzeigen - NTFS schrfeibsupport für linux!',
  74 'http://devel.linuxwiki.de/gaga/NTFS'=>'NTFS - LinuxWiki - gaga',
  75 'http://developers.slashdot.org/index.pl?section=developers&issue=20040110'=>'Slashdot: Knoppix Variant Offers Full NTFS Write Support',
  76 'http://diariolinux.com/articulos.php?idnodo=120'=>'Captive: primer driver NTFS con soporte read/write para Linux',
  77 'http://dream.lv/forum/viewtopic.php?t=2198'=>'Zagolovok soobscheniya: NTFS i Linux snova',
  78 'http://e-noise.com.br/b2/index.php?p=241&more=1'=>'Linux já pode manusear partiçoes NTFS',
  79 'http://elotrolado.net/showthread.php?threadid=247770'=>'Comunidad EOL - Leer y escribir particiones NTFS',
  80 'http://en.wikipedia.org/wiki/NTFS'=>'NTFS - Wikipedia',
  81 'http://excluded.org/board/viewtopic.php?t=306'=>'Thema anzeigen - Auf NTFS-Partitionen schreiben',
  82 'http://fedora.artoo.net/faq/#NTFS'=>'The Unofficial #fedora FAQ',
  83 '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',
  84 'http://foro.powers.cl/viewtopic.php?p=1044802'=>'Ver tema - Captive-NTFS',
  85 'http://forum-windows.dyndns.org/forum/index.php?showtopic=23306'=>'Captive : Lire/ecrire Sur Des Partitions Ntfs',
  86 'http://forum.deviantart.com/os/unix/135331/2163372'=>'deviantART: Proper NTFS support on Linux',
  87 'http://forum.gazeta.pl/forum/72,2.html?f=15430&w=9445215'=>'The first free NTFS read/write filesystem for GNU/',
  88 'http://forum.geizhals.at/t212265,-1.html'=>'NTFS.sys unter Linux verwendbar',
  89 'http://forum.hardware.no/index.php?showtopic=204153'=>'Forum.hardware.no: Skrive til NTFS',
  90 'http://forum.html.it/forum/showthread.php?threadid=592224'=>'Captive: qualcuno lo ha testato?',
  91 'http://forum.libranet.com/viewtopic.php?t=3752'=>'Captive NTFS',
  92 'http://forum.linux.by/viewtopic.php?t=1948'=>"Besplatnaya programma, pozvolyayuschaya montirovat' NTFS v R/W",
  93 'http://forum.linux.se/viewtopic.php?t=12900'=>'NTFS skrivstöd',
  94 'http://forum.programmer.no/index.php?showtopic=204153'=>'Skrive til NTFS',
  95 'http://forum.scooba.org/viewtopic.php?t=1248'=>'Voir le sujet - lire ET ecrire sur une partition ntfs sous linux',
  96 'http://forum.sweclockers.com/showthread.php?s=&postid=2478733'=>'SweClockers.com: NTFS Skriv / Läs stöd i Linux',
  97 'http://forum.windows.no/index.php?showtopic=204153'=>'Skrive til NTFS',
  98 'http://forum.zebulon.fr/index.php?showtopic=36148'=>'Acces complet (rw !) aux partitions NTFS',
  99 'http://forums.amdmb.com/showthread.php?postid=2463217'=>'New NTFS writing capability for certain Linux distros',
 100 'http://forums.gentoo.org/viewtopic.php?t=104968'=>'Gentoo Forums: Captive NTFS - Real NTFS Read/Write?',
 101 );
 102
 103 print "<ul>\n";
 104 while (@URLs) {
 105         my $url=shift @URLs;
 106         my $name=shift @URLs;
 107         print "\t<li>".a_href($url,$name)."</li>\n";
 108         }
 109 print "\t<li>...</li>\n";
 110 print "</ul>\n";
 111
 112
 113 exit;
 114 }
 115 1;