1 files changed, 0 insertions, 78 deletions
diff --git a/base/tps/lib/perl/PKI/TPS/ConfigHSMPanel.pm b/base/tps/lib/perl/PKI/TPS/ConfigHSMPanel.pm
deleted file mode 100755
index 06697a8c7..000000000
--- a/base/tps/lib/perl/PKI/TPS/ConfigHSMPanel.pm
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/usr/bin/perl
-#
-# --- BEGIN COPYRIGHT BLOCK ---
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Lesser General Public
-# License as published by the Free Software Foundation;
-# version 2.1 of the License.
-# 
-# This library 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
-# Lesser General Public License for more details.
-# 
-# You should have received a copy of the GNU Lesser General Public
-# License along with this library; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor,
-# Boston, MA  02110-1301  USA 
-# 
-# Copyright (C) 2007 Red Hat, Inc.
-# All rights reserved.
-# --- END COPYRIGHT BLOCK ---
-#
-
-use strict;
-use warnings;
-use PKI::TPS::GlobalVar;
-use PKI::TPS::Common;
-
-package PKI::TPS::ConfigHSMPanel;
-$PKI::TPS::ConfigHSMPanel::VERSION = '1.00';
-
-use PKI::TPS::BasePanel;
-our @ISA = qw(PKI::TPS::BasePanel);
-
-sub new { 
-    my $class = shift;
-    my $self = {}; 
-
-    $self->{"isSubPanel"} = \&PKI::TPS::Common::no;
-    $self->{"isPanelDone"} = \&is_panel_done;
-    $self->{"getPanelNo"} = &PKI::TPS::Common::r(12);
-    $self->{"getName"} = &PKI::TPS::Common::r("ConfigHSMLogin");
-    $self->{"vmfile"} = "config_hsm.vm";
-    $self->{"update"} = \&update;
-    $self->{"panelvars"} = \&display;
-    bless $self,$class; 
-    return $self; 
-}
-
-sub validate
-{
-    my ($q) = @_;
-    &PKI::TPS::Wizard::debug_log("ConfigHSMPanel: validate");
-    return 1;
-}
-
-sub update
-{
-    my ($q) = @_;
-    &PKI::TPS::Wizard::debug_log("ConfigHSMPanel: update");
-    $::config->put("preop.confighsm.done", "true");
-    $::config->commit();
-    return 1;
-}
-
-sub display
-{
-    my ($q) = @_;
-    &PKI::TPS::Wizard::debug_log("ConfigHSMPanel: display");
-    return 1;
-}
-
-sub is_panel_done
-{
-   return $::config->get("preop.confighsm.done");
-}
-
-1;