project/captive/TestimonialBrunoSantos.pm

   1 # $Id$
   2 # Captive project TestimonialBrunoSantos 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::TestimonialBrunoSantos;
  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 - Hospital of Castelo Branco',
  34                 "head"=><<"HERE",
  35 <link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "./Lib.css") ]}" />
  36 HERE
  37                 "heading_novskip"=>1,
  38                 "no_job"=>1,
  39                 );
  40 My::Web->heading();
  41 print project::Lib->section("captive");
  42
  43
  44 print <<'HERE';
  45 <h1>Captive NTFS - Hospital of Castelo Branco</h1>
  46
  47 <p>Hello Lace,</p>
  48
  49 <p>Let me explain this NFS.</p>
  50
  51 <p>I'm working on Hospital of Castelo Branco, Portugal, in the computers
  52 division.</p>
  53
  54 <p>The Hospital is big (about 1000 workers), and we have a lot of machines,
  55 since P II to P IV, everyone working with windows2000. (except 45 that are
  56 working with ltsp).</p>
  57
  58 <p>we are preparing the machines to install another system that will allow the
  59 digitalization of medical images - PACS (picture archive and communication
  60 system).</p>
  61
  62 <p>since the computers that are need are about 100 and we need to install
  63 windows in all of them (even we have an almost automated instalation - but
  64 requires some administrator interaction). So, we want to install windows2000
  65 without pressing a key.</p>
  66
  67 <p>So, the computers boot with PXE, and, run the minimal Fedora instalation,
  68 that is provided by the NFS. before going to shell, it runs a script that erase
  69 all the disk, creates a partition, restores a previous image of windows2000,
  70 and thanks to captive-ntfs, mounts the ntfs partition and replaces several
  71 lines on a configuration file. (the windows on the images is in a "unattented
  72 instalation". means that only asks for the computer name when it boots for the
  73 first time).  since the computer (alredy registered in dhcp), as a hostname
  74 during the boot of fedora, i take that name and insert it in the configuration
  75 file of windows 2000. umount the windows partition, reboot the machine and when
  76 is boots again, windows is ready (after another reboot) to work !!!  Is nice,
  77 since the machines are a lot and our time is short !!!</p>
  78
  79 <p>Well, this is why the captive-ntfs !! the error i report the other day, is
  80 because on exports is the NFS is exported as: (ro,no_root_squash,sync). i guess
  81 is because of this why we need to do the chmod -t / for captive to work !!</p>
  82
  83 <p>We have no lack of security, since this is only to install  windows and is
  84 for a small number of machines (everyone as a MAC address that is very similar
  85 and only those are allowed to boot with PXE that installs windows).</p>
  86
  87 <p>Well, after the history of my life (just kidding), you know why we use
  88 captive-ntfs !! By the way, if you want to put our use of captive in the web
  89 page, go for it (i tell u this, cause i've seen some testimonials) !!!</p>
  90
  91 <p>best regards !!!</p>
  92
  93 <p>Bruno Santos</p>
  94 <p>Divisao de Informatica e Telecomunicacoes<br />
  95 Hospital Amato Lusitano<br />
  96 Av. Pedro Alvares Cabral<br />
  97 6000-085 Castelo Branco</p>
  98 HERE
  99
 100
 101 My::Web->footer();
 102 }
 103 1;