project/captive/Press.html.pl

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