[Fai-commit] r4945 - in people/eartoast/addons: . fai-updater fai-updater/Curses fai-updater/Curses/UI fai-updater/FAI fai-updater/FAI/Updater fai-updater/FAI/Updater/Display fai-updater/libexec
glaweh-guest at alioth.debian.org
glaweh-guest at alioth.debian.org
Wed Jun 4 14:49:57 UTC 2008
Author: glaweh-guest
Date: 2008-06-04 14:49:56 +0000 (Wed, 04 Jun 2008)
New Revision: 4945
Added:
people/eartoast/addons/fai-updater/
people/eartoast/addons/fai-updater/Curses/
people/eartoast/addons/fai-updater/Curses/UI/
people/eartoast/addons/fai-updater/Curses/UI/MyListbox.pm
people/eartoast/addons/fai-updater/FAI/
people/eartoast/addons/fai-updater/FAI/Updater.pm
people/eartoast/addons/fai-updater/FAI/Updater/
people/eartoast/addons/fai-updater/FAI/Updater/Display/
people/eartoast/addons/fai-updater/FAI/Updater/Display/Curses.pm
people/eartoast/addons/fai-updater/FAI/Updater/Display/Logfile.pm
people/eartoast/addons/fai-updater/LICENSE
people/eartoast/addons/fai-updater/README
people/eartoast/addons/fai-updater/USAGE
people/eartoast/addons/fai-updater/libexec/
people/eartoast/addons/fai-updater/libexec/dryrun
people/eartoast/addons/fai-updater/libexec/faiupdate
people/eartoast/addons/fai-updater/libexec/get_hostlist
people/eartoast/addons/fai-updater/updater-curses
Log:
initial checkin: fai-updater 20060321, the version published in the wiki
Added: people/eartoast/addons/fai-updater/Curses/UI/MyListbox.pm
===================================================================
--- people/eartoast/addons/fai-updater/Curses/UI/MyListbox.pm (rev 0)
+++ people/eartoast/addons/fai-updater/Curses/UI/MyListbox.pm 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,58 @@
+package Curses::UI::MyListbox;
+#
+# MyListBox.pm -- a Curses::UI::Listbox with the capability to add and
+# remove elements at runtime
+#
+# fai-updater - start and supervise fai softupdates on many hosts
+# Copyright (C) 2004-2006 Henning Glawe <glaweh at debian.org>
+#
+# 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; either version 2 of the License, or
+# (at your option) any later version.
+#
+# 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
+#
+#
+use Curses;
+use base qw(Curses::UI::Listbox);
+
+sub new {
+ my $class = shift;
+ my $self = $class->SUPER::new(@_);
+ $self->set_routine('focus-prev',\&focus_prev);
+}
+
+sub focus_prev {
+ my $self = shift;
+ $self->loose_focus(KEY_BTAB);
+}
+
+sub append {
+ my $self = shift;
+ my $value = shift;
+ push @{$self->{-values}},$value;
+ $self->draw();
+}
+
+sub remove {
+ my $self = shift;
+ my $value = shift;
+ foreach (0 .. @{$self->{-values}}) {
+ if (defined $self->{-values}[$_] and $self->{-values}[$_] eq $value) {
+ splice(@{$self->{-values}},$_,1);
+ $self->{-ypos}-- if ($_<$self->{-ypos});
+ $self->{-selected}-- if (defined $self->{-selected} and ($_<$self->{-selected}));
+ }
+ }
+ $self->draw();
+}
+
+return 1;
Added: people/eartoast/addons/fai-updater/FAI/Updater/Display/Curses.pm
===================================================================
--- people/eartoast/addons/fai-updater/FAI/Updater/Display/Curses.pm (rev 0)
+++ people/eartoast/addons/fai-updater/FAI/Updater/Display/Curses.pm 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,90 @@
+package FAI::Updater::Display::Curses;
+#
+# FAI::Updater::Display::Curses -- Display class using Curses::UI
+#
+# fai-updater - start and supervise fai softupdates on many hosts
+# Copyright (C) 2004-2006 Henning Glawe <glaweh at debian.org>
+#
+# 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; either version 2 of the License, or
+# (at your option) any later version.
+#
+# 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
+#
+#
+use Curses;
+use Curses::UI;
+use Curses::UI::Common;
+use FAI::Updater;
+use base qw(FAI::Updater::Display);
+
+sub _init {
+ my $self=shift;
+ $self->{TITLES}=[qw(unreachable error success running waiting)];
+ $self->{COLORS}={ unreachable=>'magenta',
+ error=>'red',
+ success=>'green',
+ running=>'yellow',
+ waiting=>'blue'};
+ $self->{COLUMN}={
+ unreachable=>0,
+ error=>1,
+ unfinished=>1,
+ empty=>0,
+ success=>2,
+ running=>3,
+ started=>3,
+ waiting=>4
+ };
+ $self->SUPER::_init(@_);
+ die "I need a WIN" unless $self->{WIN};
+ my $hostwidth=POSIX::floor($self->{WIN}->width()/scalar(@{$self->{TITLES}}));
+ $self->{WIN}->{-width}=$hostwidth*scalar(@{$self->{TITLES}});
+ $self->{WIN}->layout();
+ my $sofar=0;
+ my $idx=0;
+ $self->{COL}=[];
+ foreach (@{$self->{TITLES}}) {
+ $self->{COL}->[$idx]=$self->{WIN}->add($_,'MyListbox',
+ -width=>$hostwidth,
+ -x=>$sofar,
+ -border=>1,
+ -title=>$_,
+ -bg=>$self->{COLORS}->{$_},
+ -vscrollbar=>1
+ );
+ $self->{COL}->[$idx]->onChange($self->{SELECT}) if ($self->{SELECT});
+ # change default bindings
+ $self->{COL}->[$idx]->clear_binding('option-select');
+ $self->{COL}->[$idx]->clear_binding('loose-focus');
+ $self->{COL}->[$idx]->set_binding('option-select',KEY_ENTER,KEY_SPACE);
+ $self->{COL}->[$idx]->set_binding('loose-focus',KEY_RIGHT,CUI_TAB,KEY_BTAB);
+ $self->{COL}->[$idx]->set_binding('focus-prev',KEY_LEFT);
+
+ $idx++;$sofar+=$hostwidth;
+ }
+}
+
+sub set_state {
+ my $self=shift;
+ my ($host,$state)=(shift,shift);
+ my $oldcol=(exists $self->{STATE}->{$host} ?
+ $self->{COLUMN}->{$self->{STATE}->{$host}} :
+ -1);
+ $self->SUPER::set_state($host,$state);
+ my $newcol=$self->{COLUMN}->{$state};
+ if ($oldcol!=$newcol) {
+ $self->{COL}->[$oldcol]->remove($host) unless ($oldcol<0);
+ $self->{COL}->[$newcol]->append($host);
+ }
+}
+
+1;
Added: people/eartoast/addons/fai-updater/FAI/Updater/Display/Logfile.pm
===================================================================
--- people/eartoast/addons/fai-updater/FAI/Updater/Display/Logfile.pm (rev 0)
+++ people/eartoast/addons/fai-updater/FAI/Updater/Display/Logfile.pm 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,52 @@
+package FAI::Updater::Display::Logfile;
+#
+# FAI::Updater::Display::Logfile -- Display class writing the state
+# transitions to a logfile
+#
+# fai-updater - start and supervise fai softupdates on many hosts
+# Copyright (C) 2004-2006 Henning Glawe <glaweh at debian.org>
+#
+# 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; either version 2 of the License, or
+# (at your option) any later version.
+#
+# 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
+#
+#
+use strict;
+use warnings;
+use FAI::Updater;
+use POSIX qw(strftime);
+use base qw(FAI::Updater::Display);
+
+sub _init {
+ my $self=shift;
+ $self->SUPER::_init(@_);
+ die "I need a FILENAME" unless $self->{FILENAME};
+ open $self->{FH},">".$self->{FILENAME};
+ $self->{FH}->autoflush() if $self->{AUTOFLUSH};
+}
+
+sub DESTROY {
+ my $self=shift;
+ close $self->{FH};
+}
+
+sub set_state {
+ my ($self,$host,$state)=(shift,shift,shift);
+ my $oldstate=$self->{STATE}->{$host} || 'none';
+ $self->SUPER::set_state($host,$state);
+ unless ($state eq $oldstate) {
+ print {$self->{FH}} "".strftime("%H:%M:%S",localtime)." $host $oldstate -> $state\n";
+ }
+}
+
+1;
Added: people/eartoast/addons/fai-updater/FAI/Updater.pm
===================================================================
--- people/eartoast/addons/fai-updater/FAI/Updater.pm (rev 0)
+++ people/eartoast/addons/fai-updater/FAI/Updater.pm 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,192 @@
+package FAI::Updater;
+#
+# FAI::Updater.pm -- The main class starting and supervizing the updates
+# Also an abstract display class is defined here, from
+# which the real display modules should be derived
+#
+# fai-updater - start and supervise fai softupdates on many hosts
+# Copyright (C) 2004-2006 Henning Glawe <glaweh at debian.org>
+#
+# 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; either version 2 of the License, or
+# (at your option) any later version.
+#
+# 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
+#
+#
+use strict;
+use warnings;
+use POSIX qw(:sys_wait_h);
+use IPC::Open2;
+our @states = qw(unreachable error unfinished empty success running started waiting);
+# unreachable - host didn't ping
+# error - an error occured, hav a look at the logfiles
+# unfinished - update didn't run to the end (?)
+# empty - logfile is empty
+# success - updated without errors
+# running - update is running
+# started - update has been started
+# waiting - update not yet started
+
+sub new {
+ my $class = shift;
+ my $self = {};
+ bless($self,$class);
+ $self->_init(@_);
+ return $self;
+}
+
+sub _init {
+ my $self=shift;
+ $self->{HOSTPID}={};
+ $self->{DRYRUN}=0;
+ $self->{TO_DO}=();
+ $self->{MAX_SIMULTANOUS}=4;
+ $self->{PING}=1;
+ $self->{ORDERED}=0;
+ my %dummy=(@_);
+ map { $self->{$_}=$dummy{$_} }keys %dummy;
+ die "I need a DISPLAY" unless $self->{DISPLAY};
+ die "I need a LOGDIR" unless $self->{LOGDIR};
+ die "logdir ".$self->{LOGDIR}." doesn't exist !" unless -d $self->{LOGDIR};
+ $self->{COMMAND} = ($self->{DRYRUN} ? "libexec/dryrun" : "libexec/faiupdate" );
+}
+
+sub _start_one {
+ my ($self,$host)=(shift,shift);
+
+ if ($self->{PING}) {
+ # try to ping the machine before update
+ if (my $pid=fork) {
+ waitpid($pid,0);
+ my $returncode=($? >> 8);
+ if ($returncode != 0) {
+ # host is unreachable if fping doesn't return 0
+ $self->{DISPLAY}->set_state($host,'unreachable');
+ return;
+ }
+ } else {
+ die "cannot fork: $!" unless defined $pid;
+ #don't clutter the ouput
+ open STDIN,'/dev/null'; open STDERR,'>/dev/null'; open STDOUT,'>/dev/null';
+ exec '/usr/bin/fping','-q',$host;
+ }
+ }
+
+ if (my $pid=fork) {
+ $self->{HOSTPID}->{$host} = $pid;
+ } else {
+ die "cannot fork: $!" unless defined $pid;
+ open STDIN,'/dev/null'; open STDERR,'>/dev/null';
+ open STDOUT,">".$self->{LOGDIR}."/$host";
+ exec $self->{COMMAND},$host;
+ }
+}
+
+# extract state from a complete logfile
+sub _check_logfile {
+ my ($self,$host) = (shift,shift);
+ my $logfile=$self->{LOGDIR} . "/$host";
+ open LOGFILE,$logfile;
+ my $state=(exists $self->{HOSTPID}->{$host} ? 'started' : 'empty');
+ while (<LOGFILE>) {
+ if (/Fully Automatic Installation/) {
+ $state=(exists $self->{HOSTPID}->{$host} ? 'running' : 'unfinished');
+ }
+ if (/An error occured/) {
+ $state='error';
+ last;
+ }
+ if (/Sav\S+ log files/) {
+ $state='success';
+ }
+ }
+ close LOGFILE;
+ return $state;
+}
+
+sub init_hostlist {
+ my $self=shift;
+ my @hostlist;
+
+ if ($self->{ORDERED}) {
+ @{$self->{TO_DO}}=@_;
+ } else {
+ my %weight;
+ map { $weight{$_}=rand; } @_;
+ @{$self->{TO_DO}}=sort { $weight{$a} <=> $weight{$b} } @_;
+ }
+ # set state to waiting for all
+ map { $self->{DISPLAY}->set_state($_,'waiting') } @{$self->{TO_DO}};
+}
+
+sub run {
+ my $self=shift;
+ my $running=0;
+ foreach my $name (keys %{$self->{HOSTPID}}) {
+ if ( waitpid($self->{HOSTPID}->{$name},WNOHANG)==0 ) {
+ $running++;
+ } else {
+ delete $self->{HOSTPID}->{$name};
+ }
+ $self->{DISPLAY}->set_state($name,$self->_check_logfile($name));
+ }
+
+ # fork new processes if there are less running than possible
+ while ($running<$self->{MAX_SIMULTANOUS}) {
+ last unless my $host=shift @{$self->{TO_DO}};
+ $self->_start_one($host);
+ $running++;
+ }
+ return $running;
+}
+
+sub max_simultanous {
+ my $self = shift;
+ my $neu = shift;
+ if (defined $neu) {
+ $self->{MAX_SIMULTANOUS}=$neu;
+ }
+ return $self->{MAX_SIMULTANOUS};
+}
+
+package FAI::Updater::Display;
+use strict;
+# constructor
+sub new {
+ my $class = shift;
+ my $self = {};
+ bless($self,$class);
+ $self->_init(@_);
+ return($self);
+}
+
+sub _init {
+ my $self=shift;
+ $self->{STATE}={};
+ $self->{NEXT}=undef;
+ my %dummy=(@_);
+ map { $self->{$_}=$dummy{$_} } keys %dummy;
+}
+
+sub set_state {
+ my $self=shift;
+ $self->{NEXT}->set_state(@_) if defined $self->{NEXT};
+ my ($host,$state)=(shift,shift);
+ $self->{STATE}->{$host}=$state;
+}
+
+sub append {
+ my $self=shift;
+ $self->{NEXT}->append(@_) if defined $self->{NEXT};
+ $self->{NEXT}=shift;
+}
+1; # so the require or use succeeds
Added: people/eartoast/addons/fai-updater/LICENSE
===================================================================
--- people/eartoast/addons/fai-updater/LICENSE (rev 0)
+++ people/eartoast/addons/fai-updater/LICENSE 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,340 @@
+ GNU GENERAL PUBLIC LICENSE
+ Version 2, June 1991
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+ 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+ Preamble
+
+ The licenses for most software are designed to take away your
+freedom to share and change it. By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users. This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it. (Some other Free Software Foundation software is covered by
+the GNU Library General Public License instead.) You can apply it to
+your programs, too.
+
+ When we speak of free software, we are referring to freedom, not
+price. Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+
+ To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+
+ For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have. You must make sure that they, too, receive or can get the
+source code. And you must show them these terms so they know their
+rights.
+
+ We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+
+ Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software. If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+
+ Finally, any free program is threatened constantly by software
+patents. We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary. To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+
+ The precise terms and conditions for copying, distribution and
+modification follow.
+
+ GNU GENERAL PUBLIC LICENSE
+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+ 0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License. The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language. (Hereinafter, translation is included without limitation in
+the term "modification".) Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope. The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+
+ 1. You may copy and distribute verbatim copies of the Program's
+source code as you receive it, in any medium, provided that you
+conspicuously and appropriately publish on each copy an appropriate
+copyright notice and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+
+ 2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+ a) You must cause the modified files to carry prominent notices
+ stating that you changed the files and the date of any change.
+
+ b) You must cause any work that you distribute or publish, that in
+ whole or in part contains or is derived from the Program or any
+ part thereof, to be licensed as a whole at no charge to all third
+ parties under the terms of this License.
+
+ c) If the modified program normally reads commands interactively
+ when run, you must cause it, when started running for such
+ interactive use in the most ordinary way, to print or display an
+ announcement including an appropriate copyright notice and a
+ notice that there is no warranty (or else, saying that you provide
+ a warranty) and that users may redistribute the program under
+ these conditions, and telling the user how to view a copy of this
+ License. (Exception: if the Program itself is interactive but
+ does not normally print such an announcement, your work based on
+ the Program is not required to print an announcement.)
+
+These requirements apply to the modified work as a whole. If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works. But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+ 3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+
+ a) Accompany it with the complete corresponding machine-readable
+ source code, which must be distributed under the terms of Sections
+ 1 and 2 above on a medium customarily used for software interchange; or,
+
+ b) Accompany it with a written offer, valid for at least three
+ years, to give any third party, for a charge no more than your
+ cost of physically performing source distribution, a complete
+ machine-readable copy of the corresponding source code, to be
+ distributed under the terms of Sections 1 and 2 above on a medium
+ customarily used for software interchange; or,
+
+ c) Accompany it with the information you received as to the offer
+ to distribute corresponding source code. (This alternative is
+ allowed only for noncommercial distribution and only if you
+ received the program in object code or executable form with such
+ an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for
+making modifications to it. For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable. However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+ 4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License. Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+
+ 5. You are not required to accept this License, since you have not
+signed it. However, nothing else grants you permission to modify or
+distribute the Program or its derivative works. These actions are
+prohibited by law if you do not accept this License. Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+
+ 6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions. You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+ 7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License. If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all. For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices. Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+ 8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded. In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+ 9. The Free Software Foundation may publish revised and/or new versions
+of the General Public License from time to time. Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+Each version is given a distinguishing version number. If the Program
+specifies a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation. If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+
+ 10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission. For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this. Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+
+ NO WARRANTY
+
+ 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+
+ 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+
+ END OF TERMS AND CONDITIONS
+
+ How to Apply These Terms to Your New Programs
+
+ If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+ To do so, attach the following notices to the program. It is safest
+to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+ <one line to give the program's name and a brief idea of what it does.>
+ Copyright (C) <year> <name of author>
+
+ 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; either version 2 of the License, or
+ (at your option) any later version.
+
+ 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
+
+
+Also add information on how to contact you by electronic and paper mail.
+
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+
+ Gnomovision version 69, Copyright (C) year name of author
+ Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+ This is free software, and you are welcome to redistribute it
+ under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License. Of course, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary. Here is a sample; alter the names:
+
+ Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+ `Gnomovision' (which makes passes at compilers) written by James Hacker.
+
+ <signature of Ty Coon>, 1 April 1989
+ Ty Coon, President of Vice
+
+This General Public License does not permit incorporating your program into
+proprietary programs. If your program is a subroutine library, you may
+consider it more useful to permit linking proprietary applications with the
+library. If this is what you want to do, use the GNU Library General
+Public License instead of this License.
Added: people/eartoast/addons/fai-updater/README
===================================================================
--- people/eartoast/addons/fai-updater/README (rev 0)
+++ people/eartoast/addons/fai-updater/README 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,21 @@
+First the legal stuff:
+I put this code under the GPLv2, as you can find it in the LICENSE file
+in the root directory of the distribution.
+
+Now a word to the needed packages:
+for the frontend, you need the Curses::UI perl module, in Debian you get
+it via
+
+apt-get install libcurses-ui-perl
+
+
+On the client side, fai-client is needed and of course a FAI configuration
+which is update-safe.
+
+I know the code is quite rough, as though I tried programming cleanly, a
+lot of hacks have slipped in, and I don't have the time to clean up the
+code right now due to my diploma thesis' deadline ;)
+
+If you have any questions or suggestions, feel free to write me.
+
+Henning Glawe <glaweh at debian.org>
Added: people/eartoast/addons/fai-updater/USAGE
===================================================================
--- people/eartoast/addons/fai-updater/USAGE (rev 0)
+++ people/eartoast/addons/fai-updater/USAGE 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,17 @@
+You get basic usage information running 'updater-curses --help'.
+
+Connecting to the clients:
+the script libexec/faiupdate is used to connect _non-interactively_ to the
+clients and start an update there, forwarding stdout to the fai-updater.
+
+A script using ssh is included, but of course you can edit it to match
+your own needs.
+To be able to connect to the clients using the provided libexec/faiupdate,
+you need to have some way to access them via ssh as root without entering
+a password.
+A solution for this is to install a matching file as
+/root/.ssh/authorized_keys, start ssh-agent and load the private key
+into it _before_ starting fai-updater.
+Another, but from a security point of view dangerous, possibility is to
+use a passphrase-less ssh private key into the account under which you run
+fai-updater.
Added: people/eartoast/addons/fai-updater/libexec/dryrun
===================================================================
--- people/eartoast/addons/fai-updater/libexec/dryrun (rev 0)
+++ people/eartoast/addons/fai-updater/libexec/dryrun 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,49 @@
+#! /bin/bash
+#
+# dry-run connect script -- instead of updating real clients, it outputs
+# random strings from FAI to see if the updater
+# catches the status correctly
+#
+# fai-updater - start and supervise fai softupdates on many hosts
+# Copyright (C) 2004-2006 Henning Glawe <glaweh at debian.org>
+#
+# 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; either version 2 of the License, or
+# (at your option) any later version.
+#
+# 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
+#
+#
+WAITTIME="$[ $RANDOM*10/32768 ]"
+echo $1 is waiting for $WAITTIME seconds
+sleep $WAITTIME
+#randomly fail to start
+[ "$[ $RANDOM*10/32768 ]" -lt 1 ] && exit
+cat <<-EOF
+ -----------------------------------------------------
+ FAIVERSIONSTRING
+ Fully Automatic Installation for Debian GNU/Linux
+
+ Copyright (c) 1999-2002, Thomas Lange
+ lange at informatik.uni-koeln.de
+ -----------------------------------------------------
+EOF
+
+sleep 2
+
+#randomly fail in the middle
+[ "$[ $RANDOM*10/32768 ]" -lt 1 ] && exit
+
+# randomly produce apt errors
+[ "$[ $RANDOM*10/32768 ]" -lt 1 ] && echo "An error occured"
+sleep 3
+echo "Saving log files to z1"
+sleep 2
Property changes on: people/eartoast/addons/fai-updater/libexec/dryrun
___________________________________________________________________
Name: svn:executable
+ *
Added: people/eartoast/addons/fai-updater/libexec/faiupdate
===================================================================
--- people/eartoast/addons/fai-updater/libexec/faiupdate (rev 0)
+++ people/eartoast/addons/fai-updater/libexec/faiupdate 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,30 @@
+#!/bin/bash
+#
+# faiupdate -- connect to host, start the fai update and keep stdout
+# for parsing in FAI::Updater
+#
+# fai-updater - start and supervise fai softupdates on many hosts
+# Copyright (C) 2004-2006 Henning Glawe <glaweh at debian.org>
+#
+# 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; either version 2 of the License, or
+# (at your option) any later version.
+#
+# 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
+#
+#
+if [ -z "$1" ]; then
+ echo "usage: $0 <hostname>"
+ exit 1
+fi
+
+ssh -o BatchMode\ yes -o StrictHostKeyChecking\ no -l root \
+ -q -a -x $1 /usr/sbin/fai softupdate
Property changes on: people/eartoast/addons/fai-updater/libexec/faiupdate
___________________________________________________________________
Name: svn:executable
+ *
Added: people/eartoast/addons/fai-updater/libexec/get_hostlist
===================================================================
--- people/eartoast/addons/fai-updater/libexec/get_hostlist (rev 0)
+++ people/eartoast/addons/fai-updater/libexec/get_hostlist 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,36 @@
+#! /usr/bin/perl
+#
+# get_hostlist -- get netgroup members, print the hostnames line-by-line
+#
+# fai-updater - start and supervise fai softupdates on many hosts
+# Copyright (C) 2004-2006 Henning Glawe <glaweh at debian.org>
+#
+# 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; either version 2 of the License, or
+# (at your option) any later version.
+#
+# 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
+#
+#
+
+die "usage: $0 <netgroup>" if ($#ARGV<0);
+
+# get the netgroup output
+$_=`getent netgroup $ARGV[0]`;
+chomp;
+# strip off the key (first entry)
+s/^\S+//;
+# remove brackets and commas
+s/[\(\)\,]//g;
+# remove anything after the short hostname
+ at hostlist=map {s/\..*$//; $_ } split;
+# write out newline-delimited list of hostnames
+print join("\n", @hostlist) . "\n";
Property changes on: people/eartoast/addons/fai-updater/libexec/get_hostlist
___________________________________________________________________
Name: svn:executable
+ *
Added: people/eartoast/addons/fai-updater/updater-curses
===================================================================
--- people/eartoast/addons/fai-updater/updater-curses (rev 0)
+++ people/eartoast/addons/fai-updater/updater-curses 2008-06-04 14:49:56 UTC (rev 4945)
@@ -0,0 +1,184 @@
+#! /usr/bin/perl -w
+#
+# fai-updater - start and supervise fai softupdates on many hosts
+# Copyright (C) 2004-2006 Henning Glawe <glaweh at debian.org>
+#
+# 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; either version 2 of the License, or
+# (at your option) any later version.
+#
+# 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
+#
+#
+use strict;
+use Getopt::Std;
+use FAI::Updater;
+use FAI::Updater::Display::Logfile;
+use FAI::Updater::Display::Curses;
+use POSIX qw(strftime);
+$Getopt::Std::STANDARD_HELP_VERSION=1;
+
+# options
+our ($opt_H,$opt_s,$opt_n,$opt_o);
+
+our $VERSION="0.1";
+
+my $netgroup='hand-defined';
+my $cui;
+my $updater;
+my $statusdisplay;
+my $updater_win;
+my $viewer_win;
+my $logdir;
+my $quit=0;
+
+sub HELP_MESSAGE {
+ my $FH = shift;
+ print $FH <<EOF
+
+Usage: $0 [options] <netgroup|-H host1,host2,...>
+ --help display this help message
+ --version print version
+ -o ordered mode: don't randomize order of hosts
+ -s <number> number of updates running simultanously
+ -n dryrun mode: use a dummy-script instead of really
+ contacting the clients
+EOF
+}
+
+sub updater_cb() {
+ if ($updater->run()) {
+ } elsif ($quit) {
+ exit(0);
+ } else {
+ $statusdisplay->text("idle");
+ $statusdisplay->draw();
+ }
+}
+
+sub quit() {
+ cancel_update();
+ $quit=1;
+}
+
+sub cancel_update() {
+ if ($updater->max_simultanous() > 0) {
+ $statusdisplay->text("cancelling...");
+ $statusdisplay->draw();
+ $updater->max_simultanous(0);
+ }
+}
+
+sub select_handler() {
+ my $listbox = shift;
+ my $sel = $listbox->get();
+ $listbox->clear_selection();
+ viewer_on($sel);
+}
+
+my $log;
+my $viewer;
+sub viewer_on() {
+ my $host=shift;
+ # a logviewer makes no sense without any log to look at
+ return unless -f "$logdir/$host";
+
+ # shrink the updater window
+ $updater_win->{-height}=10;
+ $updater_win->layout();
+
+ # create the textviewer
+ $viewer_win=$cui->add('ViewerWin','Window',
+ -width=>$updater_win->{-width},
+ -height=>$cui->height()-(1+$updater_win->{-height}),
+ -y=>$updater_win->{-height}
+ );
+ open $log,"$logdir/$host";
+ $viewer=$viewer_win->add('Viewer','TextViewer',
+ -vscrollbar=>1,
+ -wrapping=>1,
+ -border=>1,
+ -title=>$host,
+ -text=>join("",<$log>));
+ $viewer->focus();
+ $cui->set_timer('viewer-update',\&viewer_update);
+}
+
+sub viewer_off() {
+ $cui->delete_timer('viewer-update');
+ close $log;
+ $cui->delete("ViewerWin");
+ $updater_win->{-height}=$cui->height()-1;
+ $updater_win->layout();
+ $updater_win->focus();
+ $cui->draw();
+}
+
+sub viewer_update() {
+ my $newtext=join("",<$log>);
+ if ($newtext) {
+ $viewer->{-text}.=$newtext;
+ $viewer->draw();
+ }
+}
+
+# - - - - - - - - - - - - - - - - - - - -
+# main routine
+# - - - - - - - - - - - - - - - - - - - -
+
+getopts('hH:s:no');
+# emit help message when no hosts/no netgroup is given on the command line
+(($#ARGV<0) and ! $opt_H) and HELP_MESSAGE(*STDERR) and exit(1);
+$netgroup=$ARGV[0] if $ARGV[0];
+
+# create logdir
+$logdir="/var/log/fai-updater/".strftime("%Y-%m-%d_%H-%M-%S",localtime);
+die "can't create logdir $logdir" unless mkdir $logdir;
+
+#initialize Curses
+$cui=new Curses::UI(-color_support=>1, -clear_on_exit=>1);
+#create window for the updater display, leave space for the statusbar
+$updater_win=$cui->add('UpdateColumns','Window',-height=>$cui->height()-1);
+#create the updater display
+my $display=FAI::Updater::Display::Curses->new(WIN=>$updater_win,SELECT=>\&select_handler);
+
+# build up the statusbar. as the updater display is now correctly layouted,
+# use its width for proper alignment
+my $statusbar=$cui->add('Statusbar','Window',
+ -y=>$cui->height()-1,
+ -width=>$updater_win->width());
+# hotkey descriptions
+$statusbar->add(undef,'Label',-text=>'q:Quit c:Cancel <ENTER>:Open Viewer <ESC>:Close Viewer');
+# Status
+$statusbar->add(undef,'Label',-text=>'Status: ',
+ -x=>-21);
+$statusdisplay=$statusbar->add('statusdisplay','Label',
+ -text=>'processing',
+ -x=>-1,
+ -width=>20,
+ -paddingspaces=>1,
+ -textalignment=>'middle',
+ -sbborder=>1,
+ -bg=>'red');
+
+$updater_win->focus();
+$cui->set_binding( \&quit, "q");
+$cui->set_binding( \&cancel_update, "c");
+$cui->set_binding( \&viewer_off, "\e");
+
+$display->append(FAI::Updater::Display::Logfile->new(FILENAME=>"$logdir/FAI_UPDATER.log"));
+$updater=FAI::Updater->new(DISPLAY=>$display,PING=>0,DRYRUN=>$opt_n,ORDERED=>$opt_o,LOGDIR=>$logdir);
+$updater->max_simultanous($opt_s) if $opt_s;
+$updater->init_hostlist( $opt_H ? split(/,/,$opt_H) : split(/\s/,`libexec/get_hostlist $netgroup`));
+
+$cui->draw();
+$cui->set_timer('updater',\&updater_cb);
+$cui->mainloop;
Property changes on: people/eartoast/addons/fai-updater/updater-curses
___________________________________________________________________
Name: svn:executable
+ *
More information about the Fai-commit
mailing list