From 520e1053df266b30198944284011c4fa24030aca Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Tue, 31 Jul 2001 05:18:53 +0000
Subject: [PATCH] Now in BootRoot::Error

---
 Error.pm | 184 -------------------------------------------------------
 1 file changed, 184 deletions(-)
 delete mode 100644 Error.pm

diff --git a/Error.pm b/Error.pm
deleted file mode 100644
index 9ba9003..0000000
--- a/Error.pm
+++ /dev/null
@@ -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;