project/captive/TestimonialBrunoSantos.html.pl

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