[Fai-commit] r4649 - in people/kugg: . faimond faimond/debian faimond/icons
kugg-guest at alioth.debian.org
kugg-guest at alioth.debian.org
Tue Oct 30 22:00:01 UTC 2007
Author: kugg-guest
Date: 2007-10-30 22:00:01 +0000 (Tue, 30 Oct 2007)
New Revision: 4649
Added:
people/kugg/faimond/
people/kugg/faimond/README
people/kugg/faimond/debian/
people/kugg/faimond/debian/Changelog
people/kugg/faimond/faimond-gui
people/kugg/faimond/faimond.log
people/kugg/faimond/icons/
people/kugg/faimond/icons/allbuttons.gif
people/kugg/faimond/icons/bar.gif
people/kugg/faimond/icons/beg3d.gif
people/kugg/faimond/icons/confdir.gif
people/kugg/faimond/icons/configure.gif
people/kugg/faimond/icons/copyright
people/kugg/faimond/icons/create.sh
people/kugg/faimond/icons/debconf.gif
people/kugg/faimond/icons/defclass.gif
people/kugg/faimond/icons/extrbase.gif
people/kugg/faimond/icons/faiend.gif
people/kugg/faimond/icons/fail3d.gif
people/kugg/faimond/icons/hostname.gif
people/kugg/faimond/icons/instsoft.gif
people/kugg/faimond/icons/ok3d.gif
people/kugg/faimond/icons/partition.gif
people/kugg/faimond/icons/savelog.gif
people/kugg/faimond/send
Log:
Added faimond-gui experimental to svn repository.
Added: people/kugg/faimond/README
===================================================================
--- people/kugg/faimond/README (rev 0)
+++ people/kugg/faimond/README 2007-10-30 22:00:01 UTC (rev 4649)
@@ -0,0 +1 @@
+This folder contains kugg's experimental workspace for faimond-gui.
Added: people/kugg/faimond/debian/Changelog
===================================================================
--- people/kugg/faimond/debian/Changelog (rev 0)
+++ people/kugg/faimond/debian/Changelog 2007-10-30 22:00:01 UTC (rev 4649)
@@ -0,0 +1,2 @@
+301007
+ * Added faimond-gui experimental to svn repository on svn.deboan.org
Added: people/kugg/faimond/faimond-gui
===================================================================
--- people/kugg/faimond/faimond-gui (rev 0)
+++ people/kugg/faimond/faimond-gui 2007-10-30 22:00:01 UTC (rev 4649)
@@ -0,0 +1,161 @@
+#! /usr/bin/perl
+
+# faimond-gui: graphical FAI monitor daemon
+#
+# This script is part of FAI (Fully Automatic Installation)
+# Copyright (C) 2007 Thomas Lange, lange at informatik.uni-koeln.de
+# Universitaet zu Koeln
+
+use Tk;
+use Tk::HList;
+use Tk::ItemStyle;
+use Tk::Balloon;
+
+open(INP, "<$ARGV[0]") or die "Ooops::";
+
+
+#@tasklist = qw/hostname confdir defclass action partition mountdisks extrbase mirror debconf prepareapt instsoft configure chboot savelog faiend/;
+
+ at tasklist = qw/hostname confdir defclass partition extrbase debconf instsoft configure savelog faiend/;
+
+$tasklist[0] = 'hostname';
+$rowcount = 0;
+%message = ( 'TASKBEGIN' => 'BEG', 'TASKEND' => 'END');
+
+sub xgetinp {
+ $line = <INP>;
+# warn "INPUT received $line";
+ hostentry($line);
+ return 0;
+}
+
+sub hostentry {
+
+ my $str = shift(@_);
+ my ($host,$startstop,$task,$code) = split(/\s+/,$str);
+
+
+#Style entries
+#
+
+# $backcolor="#d6e3e9";
+# $forecolor="#FFFFFF";
+# $headercolor="#000000";
+# $regularcolor="#3c97cc";
+# $failcolor="#942a2a";
+# $successcolor="#6cb85a";
+# $font="Sans 15";
+
+
+ $backcolor="#76716f";
+ $forecolor="#ffffff";
+ $headercolor="#ffffff";
+ $regularcolor=$backcolor;
+ $failcolor=$backcolor;
+ $successcolor=$backcolor;
+ $font="Sans 15";
+
+
+ $imgsuccess = $top->Photo(-file=>"icons/ok3d.gif");
+ $imgfail = $top->Photo(-file=>"icons/fail3d.gif");
+ $imgbegin = $top->Photo(-file=>"icons/beg3d.gif");
+ $imghost = $top->Photo(-file=>"icons/bar.gif");
+ my $fail = $hlist->ItemStyle("imagetext",
+ -foreground => $forecolor,
+ -background => $failcolor,
+ -font => $font,
+ );
+
+ my $success = $hlist->ItemStyle("imagetext",
+ -foreground => $forecolor,
+ -background => $successcolor,
+ -font => $font,
+ );
+
+ my $regular = $hlist->ItemStyle("imagetext",
+ -foreground => $forecolor,
+ -background => $regularcolor,
+ -font => $font,
+ );
+ my $headerstyle = $hlist->ItemStyle("imagetext",
+ -bg=>$backcolor,
+ -fg=>$headercolor,
+ -font=>$font
+ );
+# $balloonstatus = $top->Balloon();
+# $balloonstatus->attach($top,-msg=>"status",-balloonposition=>"mouse");
+
+
+# warn "hostentry: $host $startstop $task $code\n";
+
+ unless (exists $row{$host}) {
+ # add host, first column
+ $row{$host} = $rowcount++;
+
+ $hlist->add($row{$host},-state=>"disabled");
+ $hlist->itemCreate($row{$host}, 0, -itemtype => "imagetext" , -text => $host , -style=>$headerstyle, -image=>$imghost);
+# return;
+ }
+
+ # remove old information when doing an reinstallation
+ if ($startstop eq 'check') {
+ foreach (1 .. $#tasklist) {
+# warn "XXX $row{$host} X $_\n";
+ $hlist->itemCreate($row{$host}, $_, -text => '');
+ }
+ return;
+ }
+
+# warn "create: $row{$host} X $task{$task} X $startstop $message{$startstop} $code\n";
+ unless (exists $task{$task}) {
+ # do not show unknown tasks
+ return;
+ }
+
+ $message = ($startstop =~ /TASKEND/) ? $message="$message{$startstop} $code": $message{$startstop};
+
+ if ($message eq 'END 0') {
+# $hlist->itemCreate($row{$host}, $task{$task}, -text => $message ,-itemtype=>"imagetext",-image=>$imgsuccess);
+ $hlist->itemCreate($row{$host}, $task{$task}, -text=>'' ,-itemtype=>"imagetext",-image=>$imgsuccess);
+ $hlist->itemConfigure($row{$host}, $task{$task}, -itemtype=>"imagetext",-style=>$success);
+
+ } elsif ($message eq 'BEG') {
+# $hlist->itemCreate($row{$host}, $task{$task}, -text => $message ,-itemtype=>"imagetext",-image=>$imgbegin);
+ $hlist->itemCreate($row{$host}, $task{$task}, -text => '' ,-itemtype=>"imagetext",-image=>$imgbegin);
+ $hlist->itemConfigure($row{$host}, $task{$task}, -itemtype=>"imagetext",-style=>$regular);
+ } else {
+# $hlist->itemCreate($row{$host}, $task{$task}, -text => $message ,-itemtype=>"imagetext",-image=>$imgfail);
+ $hlist->itemCreate($row{$host}, $task{$task}, -text => '' ,-itemtype=>"imagetext",-image=>$imgfail);
+ $hlist->itemConfigure($row{$host}, $task{$task}, -itemtype=>"imagetext",-style=>$fail);
+ }
+
+}
+
+$top = new MainWindow;
+$top->configure(-background=>"#76716f");
+$hlist = $top->Scrolled("HList",
+ -header => 1,
+ -columns => $#tasklist+1,
+ -scrollbars => 'oe',
+ -width => 94,
+ -selectbackground => '#76716f',
+ -background=>'#76716f',
+ -selectborderwidth=>0,
+ -selectmode=>'single',
+ -highlightthickness=>0,
+ -relief=>'flat',
+ -borderwidth=>0,
+ )->pack(-expand => 1, -fill => 'both');
+$top->fileevent(INP,'readable', [\&xgetinp]);
+foreach (@tasklist) {
+#-text => $_
+ $headline = $top->Photo(-file=>"icons/" . $_ . ".gif");
+ $hlist->header('create', $n++, -itemtype=>"imagetext" ,-headerbackground=>"#76716f",-borderwidth=>0,-relief=>"flat",-image=>$headline );
+# $hlist->header('configure', $b++ , -bitmap=>$imghost);
+ $task{$_} = $tcounter++;
+}
+
+
+
+
+MainLoop();
Property changes on: people/kugg/faimond/faimond-gui
___________________________________________________________________
Name: svn:executable
+ *
Added: people/kugg/faimond/faimond.log
===================================================================
--- people/kugg/faimond/faimond.log (rev 0)
+++ people/kugg/faimond/faimond.log 2007-10-30 22:00:01 UTC (rev 4649)
@@ -0,0 +1,49 @@
+demohost TASKEND xx 0
+demohost TASKEND xxx 0
+demohost check
+demohost TASKEND confdir 0
+demohost TASKBEGIN defclass
+demohost TASKEND defclass 0
+gnomehost TASKBEGIN confdir
+gnomehost TASKBEGIN defclass
+gnomehost TASKEND defclass 1
+demohost check
+demohost TASKEND confdir 0
+demohost TASKBEGIN setup
+demohost TASKBEGIN defclass
+myhost TASKBEGIN confdir 0
+demohost TASKEND defclass 0
+myhost TASKEND confdir 0
+demohost TASKBEGIN partition
+myhost TASKBEGIN defclass 0
+demohost TASKEND partition 0
+myhost TASKEND defclass 0
+demohost TASKBEGIN extrbase
+myhost TASKBEGIN partition 0
+demohost TASKEND extrbase 3
+myhost TASKEND partition 0
+demohost TASKBEGIN debconf
+verylongnamehosttest TASKBEGIN debconf 0
+myhost TASKBEGIN extrbase 0
+demohost TASKEND debconf 1
+myhost TASKEND extrbase 0
+gnomehost TASKBEGIN extrbase
+myhost TASKBEGIN debconf 0
+gnomehost TASKEND extrbase 3
+myhost TASKEND debconf 0
+myhost TASKBEGIN instsoft 0
+gnomehost TASKBEGIN debconf
+gnomehost TASKEND debconf 2
+gnomehost TASKEND updatebase 0
+myhost TASKEND instsoft 3
+gnomehost HOOK instsoft.FAIBASE
+demohost TASKBEGIN instsoft
+demohost TASKEND instsoft 7
+demohost TASKBEGIN configure
+demohost TASKEND configure 8
+demohost TASKBEGIN savelog
+demohost TASKEND savelog 0
+demohost TASKEND install 0
+demohost TASKBEGIN faiend
+demohost TASKEND install 0
+gnomehost TASKBEGIN faiend
Added: people/kugg/faimond/icons/allbuttons.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/allbuttons.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/bar.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/bar.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/beg3d.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/beg3d.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/confdir.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/confdir.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/configure.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/configure.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/copyright
===================================================================
--- people/kugg/faimond/icons/copyright (rev 0)
+++ people/kugg/faimond/icons/copyright 2007-10-30 22:00:01 UTC (rev 4649)
@@ -0,0 +1 @@
+All images/graphics in this folder are licensed under the terms of GNU/GPL.
Added: people/kugg/faimond/icons/create.sh
===================================================================
--- people/kugg/faimond/icons/create.sh (rev 0)
+++ people/kugg/faimond/icons/create.sh 2007-10-30 22:00:01 UTC (rev 4649)
@@ -0,0 +1,5 @@
+#!/bin/sh
+files="confdir.gif defclass.gif partition.gif extrbase.gif debconf.gif instsoft.gif configure.gif savelog.gif faiend.gif"
+for file in $files;
+do cp $1 $file;
+done
Property changes on: people/kugg/faimond/icons/create.sh
___________________________________________________________________
Name: svn:executable
+ *
Added: people/kugg/faimond/icons/debconf.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/debconf.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/defclass.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/defclass.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/extrbase.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/extrbase.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/faiend.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/faiend.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/fail3d.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/fail3d.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/hostname.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/hostname.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/instsoft.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/instsoft.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/ok3d.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/ok3d.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/partition.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/partition.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/icons/savelog.gif
===================================================================
(Binary files differ)
Property changes on: people/kugg/faimond/icons/savelog.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: people/kugg/faimond/send
===================================================================
--- people/kugg/faimond/send (rev 0)
+++ people/kugg/faimond/send 2007-10-30 22:00:01 UTC (rev 4649)
@@ -0,0 +1,11 @@
+#! /usr/bin/perl
+
+$|=1;
+
+while ($f=<>) {
+# open (O, ">>g");
+# print O $f;
+ print $f;
+# close G;
+ sleep 1
+}
Property changes on: people/kugg/faimond/send
___________________________________________________________________
Name: svn:executable
+ *
More information about the Fai-commit
mailing list