e-smith-base/sme7/e-smith-base-4.18.0-consolebackup.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/usbBackup.pl mezzanine_patched_e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/usbBackup.pl
--- e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/usbBackup.pl       1969-12-31 17:00:00.000000000 -0700
+++ mezzanine_patched_e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/usbBackup.pl     2007-01-29 19:32:00.000000000 -0700
@@ -0,0 +1,3 @@
+package esmith::console::perform_backup;
+use esmith::console::perform_backup;
+return new esmith::console::perform_backup;
diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm
--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm   1969-12-31 17:00:00.000000000 -0700
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-01-29 19:32:44.000000000 -0700
@@ -0,0 +1,149 @@
+package esmith::console::perform_backup;
+use strict;
+use warnings;
+use esmith::ConfigDB;
+use esmith::console;
+use esmith::util;
+use Locale::gettext;
+use esmith::Backup;
+#use Filesys::DiskFree;
+#use Sys::Filesystem;
+
+sub new
+{
+    my $class = shift;
+    my $self = {
+                   name => "Perform backup to USB device",
+                   order => 80,
+               };
+    bless $self, $class;
+    return $self;
+}
+
+sub name
+{ 
+    return $_[0]->{name};
+}
+
+sub order
+{
+    return -1 if (defined $ARGV [0]);
+
+    return $_[0]->{order};
+}
+
+sub backup_size
+{
+    my $self = shift;
+
+}
+
+sub doit
+{
+    my ($self, $console, $db) = @_;
+    my @backup_list = esmith::Backup->restore_list;
+
+    $ENV{PATH} = "/bin:/usr/bin";
+
+    my ($rc, $choice) = $console->yesno_page
+        (
+         title   => gettext("Create Backup to USB disk"),
+        defaultno => 1,
+         text =>
+         gettext("Do you wish to create backup on USB device?"),
+        );
+    return unless $rc == 0;
+    INITIATE_BACKUP:
+    ($rc, $choice) = $console->message_page
+        (
+         title   => gettext("Insert media to use for backup"),
+         text =>
+         gettext("Insert memory stick or USB disk, then hit the enter key."),
+        );
+    sleep(3);
+    my @dirs = map { m:^(/media/usbdisk*):; $1 } glob '/media/usbdisk*';
+    unless ($dirs[0])
+    {
+       ($rc, $choice) = $console->message_page
+           (
+            title   => gettext("Backup medium not found"),
+            right => "Try again",
+            text =>
+            gettext("No removable media or device found"),
+           );
+       goto INITIATE_BACKUP;
+    }
+    my $device = $dirs[0];
+    if (defined $dirs[1])
+    {
+       my $count=1;
+       my @args = map { $count++ . '.' => $_ } @dirs;
+
+       my ($rc, $choice) = $console->menu_page
+        (
+           title => gettext("Choose device to use for backup"),
+           text  => gettext("Please select which device should be used for the backup file."),
+           argsref => \@args,
+           left => gettext("Cancel"),
+           right => gettext("OK"),
+        );
+       goto INITIATE_BACKUP unless ($rc == 0);
+        my %args_hash = ( @args );
+        $device = $args_hash{$choice};
+    }
+    system("/bin/mount", "$device");
+    use File::stat;
+    my $st = stat("$device/smeserver.tgz");
+    if ($st)
+    {
+# TODO
+# old backup exists - what do we want to do with it?
+       my $size = $st->size;
+       
+    }
+
+# XXX-FIXME
+# We call dialog directly (rather than through the screen function)
+# as we don't want the --clear parameter passed by screen().
+# Appropriate magic can clean this up.
+system(
+       "/usr/bin/dialog",
+       "--backtitle", $console->backtitle,
+       "--title", gettext("Preparing for backup"),
+       "--infobox", gettext("Please standby while the system is " .
+          "prepared for backup ..."),
+       8, esmith::console::SCREEN_COLUMNS,
+      );
+
+    my $backup_size = 0;
+    system("/sbin/e-smith/signal-event", "pre-backup");
+    unless (open(DU, "-|"))
+    {
+       open(STDERR, ">/dev/null");
+       exec qw(/usr/bin/du -sb), map { "/$_" } @backup_list;
+    }
+    while (<DU>)
+    {
+       next unless (/^(\d+)/);
+       $backup_size += $1;
+    }
+    close DU;
+
+    system("(cd / ; tar cf - " . join(' ', @backup_list) . " |
+       pv -i 0.2 -n -s $backup_size |
+       gzip -9 > /$device/smeserver.tgz ) 2>&1 |
+       dialog --backtitle 'Creating backup file' --guage 'Progress' 7 70");
+    system("/bin/umount", "$device");
+    system("/sbin/e-smith/signal-event", "post-backup");
+    ($rc, $choice) = $console->message_page
+        (
+         title   => gettext("Backup complete"),
+         text =>
+         gettext("Remove memory stick or USB disk, then hit the enter key."),
+        );
+}
+
+#use esmith::console;
+#esmith::console::perform_backup->new->doit(esmith::console->new,
+# esmith::ConfigDB->open);
+1;
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/usbBackup.pl mezzanine_patched_e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/usbBackup.pl
2			--- e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/usbBackup.pl 1969-12-31 17:00:00.000000000 -0700
3			+++ mezzanine_patched_e-smith-base-4.18.0/root/sbin/e-smith/console-menu-items/usbBackup.pl 2007-01-29 19:32:00.000000000 -0700
4			@@ -0,0 +1,3 @@
5			+package esmith::console::perform_backup;
6			+use esmith::console::perform_backup;
7			+return new esmith::console::perform_backup;
8			diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm
9			--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 1969-12-31 17:00:00.000000000 -0700
10			+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-01-29 19:32:44.000000000 -0700
11			@@ -0,0 +1,149 @@
12			+package esmith::console::perform_backup;
13			+use strict;
14			+use warnings;
15			+use esmith::ConfigDB;
16			+use esmith::console;
17			+use esmith::util;
18			+use Locale::gettext;
19			+use esmith::Backup;
20			+#use Filesys::DiskFree;
21			+#use Sys::Filesystem;
22			+
23			+sub new
24			+{
25			+ my $class = shift;
26			+ my $self = {
27			+ name => "Perform backup to USB device",
28			+ order => 80,
29			+ };
30			+ bless $self, $class;
31			+ return $self;
32			+}
33			+
34			+sub name
35			+{
36			+ return $_[0]->{name};
37			+}
38			+
39			+sub order
40			+{
41			+ return -1 if (defined $ARGV [0]);
42			+
43			+ return $_[0]->{order};
44			+}
45			+
46			+sub backup_size
47			+{
48			+ my $self = shift;
49			+
50			+}
51			+
52			+sub doit
53			+{
54			+ my ($self, $console, $db) = @_;
55			+ my @backup_list = esmith::Backup->restore_list;
56			+
57			+ $ENV{PATH} = "/bin:/usr/bin";
58			+
59			+ my ($rc, $choice) = $console->yesno_page
60			+ (
61			+ title => gettext("Create Backup to USB disk"),
62			+ defaultno => 1,
63			+ text =>
64			+ gettext("Do you wish to create backup on USB device?"),
65			+ );
66			+ return unless $rc == 0;
67			+ INITIATE_BACKUP:
68			+ ($rc, $choice) = $console->message_page
69			+ (
70			+ title => gettext("Insert media to use for backup"),
71			+ text =>
72			+ gettext("Insert memory stick or USB disk, then hit the enter key."),
73			+ );
74			+ sleep(3);
75			+ my @dirs = map { m:^(/media/usbdisk):; $1 } glob '/media/usbdisk';
76			+ unless ($dirs[0])
77			+ {
78			+ ($rc, $choice) = $console->message_page
79			+ (
80			+ title => gettext("Backup medium not found"),
81			+ right => "Try again",
82			+ text =>
83			+ gettext("No removable media or device found"),
84			+ );
85			+ goto INITIATE_BACKUP;
86			+ }
87			+ my $device = $dirs[0];
88			+ if (defined $dirs[1])
89			+ {
90			+ my $count=1;
91			+ my @args = map { $count++ . '.' => $_ } @dirs;
92			+
93			+ my ($rc, $choice) = $console->menu_page
94			+ (
95			+ title => gettext("Choose device to use for backup"),
96			+ text => gettext("Please select which device should be used for the backup file."),
97			+ argsref => \@args,
98			+ left => gettext("Cancel"),
99			+ right => gettext("OK"),
100			+ );
101			+ goto INITIATE_BACKUP unless ($rc == 0);
102			+ my %args_hash = ( @args );
103			+ $device = $args_hash{$choice};
104			+ }
105			+ system("/bin/mount", "$device");
106			+ use File::stat;
107			+ my $st = stat("$device/smeserver.tgz");
108			+ if ($st)
109			+ {
110			+# TODO
111			+# old backup exists - what do we want to do with it?
112			+ my $size = $st->size;
113			+
114			+ }
115			+
116			+# XXX-FIXME
117			+# We call dialog directly (rather than through the screen function)
118			+# as we don't want the --clear parameter passed by screen().
119			+# Appropriate magic can clean this up.
120			+system(
121			+ "/usr/bin/dialog",
122			+ "--backtitle", $console->backtitle,
123			+ "--title", gettext("Preparing for backup"),
124			+ "--infobox", gettext("Please standby while the system is " .
125			+ "prepared for backup ..."),
126			+ 8, esmith::console::SCREEN_COLUMNS,
127			+ );
128			+
129			+ my $backup_size = 0;
130			+ system("/sbin/e-smith/signal-event", "pre-backup");
131			+ unless (open(DU, "-\|"))
132			+ {
133			+ open(STDERR, ">/dev/null");
134			+ exec qw(/usr/bin/du -sb), map { "/$_" } @backup_list;
135			+ }
136			+ while (<DU>)
137			+ {
138			+ next unless (/^(\d+)/);
139			+ $backup_size += $1;
140			+ }
141			+ close DU;
142			+
143			+ system("(cd / ; tar cf - " . join(' ', @backup_list) . " \|
144			+ pv -i 0.2 -n -s $backup_size \|
145			+ gzip -9 > /$device/smeserver.tgz ) 2>&1 \|
146			+ dialog --backtitle 'Creating backup file' --guage 'Progress' 7 70");
147			+ system("/bin/umount", "$device");
148			+ system("/sbin/e-smith/signal-event", "post-backup");
149			+ ($rc, $choice) = $console->message_page
150			+ (
151			+ title => gettext("Backup complete"),
152			+ text =>
153			+ gettext("Remove memory stick or USB disk, then hit the enter key."),
154			+ );
155			+}
156			+
157			+#use esmith::console;
158			+#esmith::console::perform_backup->new->doit(esmith::console->new,
159			+# esmith::ConfigDB->open);
160			+1;