1 |
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 |
2 |
--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-02-23 08:31:47.000000000 -0700 |
3 |
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-02-23 08:31:02.000000000 -0700 |
4 |
@@ -114,18 +114,10 @@ |
5 |
|
6 |
} |
7 |
|
8 |
-# XXX-FIXME |
9 |
-# We call dialog directly (rather than through the screen function) |
10 |
-# as we don't want the --clear parameter passed by screen(). |
11 |
-# Appropriate magic can clean this up. |
12 |
-system( |
13 |
- "/usr/bin/dialog", |
14 |
- "--backtitle", $console->backtitle, |
15 |
- "--title", gettext("Preparing for backup"), |
16 |
- "--infobox", gettext("Please standby while the system is " . |
17 |
- "prepared for backup ..."), |
18 |
- 8, esmith::console::SCREEN_COLUMNS, |
19 |
- ); |
20 |
+ $console->infobox( |
21 |
+ title => gettext("Preparing for backup"), |
22 |
+ text => gettext("Please stand by while the system is prepared for backup..."), |
23 |
+ ); |
24 |
|
25 |
my $backup_size = 0; |
26 |
system("/sbin/e-smith/signal-event", "pre-backup"); |