mirror of https://github.com/fspc/gbootroot.git
freesource
24 years ago
1 changed files with 0 additions and 184 deletions
@ -1,184 +0,0 @@ |
|||
############################################################################ |
|||
## |
|||
## Error.pm |
|||
## Copyright (C) 2000 Modifications by the gBootRoot Project |
|||
## Copyright (C) 2000 by Jonathan Rosenbaum |
|||
## |
|||
## This program is free software; you may 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., 675 Mass Ave, Cambridge, MA 02139, USA. |
|||
## |
|||
############################################################################## |
|||
|
|||
package Error; |
|||
use vars qw(@ISA @EXPORT %EXPORT_TAGS); |
|||
use Exporter; |
|||
@ISA = qw(Exporter); |
|||
@EXPORT = qw(error_window errmk errcp errum errm errrm err err_custom |
|||
err_custom_perl destroy_window); |
|||
|
|||
use strict; |
|||
use Yard; |
|||
|
|||
my $true = 1; |
|||
my $false = 0; |
|||
my $error_window; |
|||
my $verbosity_window; |
|||
|
|||
|
|||
############### |
|||
# Error Section |
|||
############### |
|||
# The biggest problem here is that err? are hardwired, perhaps one |
|||
# could be used and message could just be $!, err_custom is nice. |
|||
# All err? report errors if $? > 0. |
|||
|
|||
sub error_window { |
|||
my (@error) = @_; |
|||
my $output = join("",@error); |
|||
|
|||
if (not defined $error_window) { |
|||
$error_window = new Gtk::Dialog; |
|||
$error_window->signal_connect("destroy", \&destroy_window, |
|||
\$error_window); |
|||
$error_window->signal_connect("delete_event", \&destroy_window, |
|||
\$error_window); |
|||
$error_window->set_title("gBootRoot ERROR"); |
|||
$error_window->border_width(15); |
|||
my $label = new Gtk::Label($output); |
|||
#$label->set_justify("left") if $_[1]; |
|||
$error_window->vbox->pack_start( $label, $true, $true, 15 ); |
|||
$label->show(); |
|||
my $button = new Gtk::Button("OK"); |
|||
$button->signal_connect("clicked", sub {destroy $error_window}); |
|||
$button->can_default(1); |
|||
$error_window->action_area->pack_start($button, $false, $false,0); |
|||
$button->grab_default; |
|||
$button->show; |
|||
} |
|||
if (!visible $error_window) { |
|||
show $error_window; |
|||
} |
|||
else { |
|||
destroy $error_window; |
|||
} |
|||
|
|||
} # end sub error_window |
|||
|
|||
sub errmk { |
|||
error_window("gBootRoot: ERROR: Could not make important directories") if $? != 0; |
|||
if (defined $error_window) { |
|||
if ($error_window->visible) { |
|||
return 2; |
|||
} |
|||
} |
|||
} |
|||
|
|||
sub errcp { |
|||
error_window("gBootRoot: ERROR: Could not copy over important stuff") if $? != 0; |
|||
if (defined $error_window) { |
|||
if ($error_window->visible) { |
|||
return 2; |
|||
} |
|||
} |
|||
} |
|||
|
|||
|
|||
sub errum { |
|||
error_window("gBootRoot: ERROR: Could not umount the device") if $? != 0; |
|||
if (defined $error_window) { |
|||
if ($error_window->visible) { |
|||
return 2; |
|||
} |
|||
} |
|||
} |
|||
|
|||
sub errm { |
|||
error_window("gBootRoot: ERROR: Could not mount device") if $? != 0; |
|||
if (defined $error_window) { |
|||
if ($error_window->visible) { |
|||
return 2; |
|||
} |
|||
} |
|||
} |
|||
|
|||
sub errrm { |
|||
error_window("gBootRoot: ERROR: Could not remove a directory or file") |
|||
if $? != 0; |
|||
if (defined $error_window) { |
|||
if ($error_window->visible) { |
|||
return 2; |
|||
} |
|||
} |
|||
} |
|||
|
|||
sub err { |
|||
error_window("gBootRoot: ERROR: Not enough space after all") if ($? > 0); |
|||
if (defined $error_window) { |
|||
if ($error_window->visible) { |
|||
return 2; |
|||
} |
|||
} |
|||
} |
|||
|
|||
sub err_custom { |
|||
|
|||
if (defined $_[2]) { |
|||
system("$_[0] > /dev/null 2>&1"); |
|||
} |
|||
else { |
|||
# Yard::sys .. this seems to be necessary for my flakey floppy drive |
|||
# which doesn't even support 1722. |
|||
Yard::sys("$_[0]"); |
|||
} |
|||
error_window($_[1]) if ($? != 0); |
|||
if (defined $error_window) { |
|||
if ($error_window->visible) { |
|||
return 2; |
|||
} |
|||
} |
|||
} |
|||
|
|||
sub err_custom_perl { |
|||
|
|||
if ((split(/ /, $_[0]))[0] eq "mkdir") { |
|||
my $two = (split(/ /, $_[0]))[1]; |
|||
mkdir($two,0755); # Anyone allowed in |
|||
} |
|||
error_window($_[1]) if ($? != 0); |
|||
if (defined $error_window) { |
|||
if ($error_window->visible) { |
|||
return 2; |
|||
} |
|||
} |
|||
} |
|||
|
|||
################### |
|||
# End Error Section |
|||
################### |
|||
|
|||
################ |
|||
# MISC FUNCTIONS |
|||
################ |
|||
# Can be relocated |
|||
|
|||
# pulled from test.pl |
|||
sub destroy_window { |
|||
my($widget, $windowref, $w2) = @_; |
|||
$$windowref = undef; |
|||
$w2 = undef if defined $w2; |
|||
0; |
|||
} |
|||
|
|||
|
|||
1; |
Loading…
Reference in new issue