+Bruno Santos page

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index c91dd6a..08b8d49 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -155,6 +155,18 @@ print <<"HERE";
 <a name="testimonials"><h2>Captive NTFS Testimonials</h2></a>
 
 <ul>
+       <li>Hospital of Castelo Branco - Bruno Santos
+               <p>we are preparing the machines to install another system that will allow
+               the digitalization of medical images - PACS (picture archive and
+               communication system).</p>
+
+               <p>since the computers that are need are about 100 and we need to install
+               windows in all of them (even we have an almost automated instalation - but
+               requires some administrator interaction). So, we want to install
+               windows2000 without pressing a key.</p>
+
+               <p>@{[ a_href 'TestimonialBrunoSantos.html.pl','<span style="font-style: italic;">[ whole mail ]</span>' ]}</p>
+       </li>
        <li>@{[ a_href 'http://www.amunra.co.uk/','Dave &quot;AmunRa&quot; Rigby' ]}
                <p>Ok, I'm impressed (@{[ a_href 'http://www.amunra.co.uk/archives/000028.php','Captive Review' ]})</p>
                <p>Linux software generally has a reputation for having some great, novell

diff --git a/project/captive/TestimonialBrunoSantos.html.pl b/project/captive/TestimonialBrunoSantos.html.pl
new file mode 100755 (executable)
index 0000000..1521798
--- /dev/null
+++ b/project/captive/TestimonialBrunoSantos.html.pl
@@ -0,0 +1,102 @@
+#! /usr/bin/perl
+# 
+# $Id$
+# Captive project TestimonialBrunoSantos 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::TestimonialBrunoSantos;
+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 - Hospital of Castelo Branco',
+               "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 - Hospital of Castelo Branco</h1>
+
+<p>Hello Lace,</p>
+
+<p>Let me explain this NFS.</p>
+
+<p>I'm working on Hospital of Castelo Branco, Portugal, in the computers
+division.</p>
+
+<p>The Hospital is big (about 1000 workers), and we have a lot of machines,
+since P II to P IV, everyone working with windows2000. (except 45 that are
+working with ltsp).</p>
+
+<p>we are preparing the machines to install another system that will allow the
+digitalization of medical images - PACS (picture archive and communication
+system).</p>
+
+<p>since the computers that are need are about 100 and we need to install
+windows in all of them (even we have an almost automated instalation - but
+requires some administrator interaction). So, we want to install windows2000
+without pressing a key.</p>
+
+<p>So, the computers boot with PXE, and, run the minimal Fedora instalation,
+that is provided by the NFS. before going to shell, it runs a script that erase
+all the disk, creates a partition, restores a previous image of windows2000,
+and thanks to captive-ntfs, mounts the ntfs partition and replaces several
+lines on a configuration file. (the windows on the images is in a "unattented
+instalation". means that only asks for the computer name when it boots for the
+first time).  since the computer (alredy registered in dhcp), as a hostname
+during the boot of fedora, i take that name and insert it in the configuration
+file of windows 2000. umount the windows partition, reboot the machine and when
+is boots again, windows is ready (after another reboot) to work !!!  Is nice,
+since the machines are a lot and our time is short !!!</p>
+
+<p>Well, this is why the captive-ntfs !! the error i report the other day, is
+because on exports is the NFS is exported as: (ro,no_root_squash,sync). i guess
+is because of this why we need to do the chmod -t / for captive to work !!</p>
+
+<p>We have no lack of security, since this is only to install  windows and is
+for a small number of machines (everyone as a MAC address that is very similar
+and only those are allowed to boot with PXE that installs windows).</p>
+
+<p>Well, after the history of my life (just kidding), you know why we use
+captive-ntfs !! By the way, if you want to put our use of captive in the web
+page, go for it (i tell u this, cause i've seen some testimonials) !!!</p>
+
+<p>best regards !!!</p>
+
+<p>Bruno Santos</p>
+<p>Divisao de Informatica e Telecomunicacoes<br />
+Hospital Amato Lusitano<br />
+Av. Pedro Alvares Cabral<br />
+6000-085 Castelo Branco</p>
+HERE
+
+My::Web->footer();