1 files changed, 0 insertions, 112 deletions
diff --git a/pki/base/tps/lib/perl/PKI/TPS/ConfigHSMLoginPanel.pm b/pki/base/tps/lib/perl/PKI/TPS/ConfigHSMLoginPanel.pm
deleted file mode 100755
index 5d36d3da3..000000000
--- a/pki/base/tps/lib/perl/PKI/TPS/ConfigHSMLoginPanel.pm
+++ /dev/null
@@ -1,112 +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::ConfigHSMLoginPanel;
-$PKI::TPS::ConfigHSMLoginPanel::VERSION = '1.00';
-
-use PKI::TPS::BasePanel;
-our @ISA = qw(PKI::TPS::BasePanel);
-
-sub new { 
-    my $class = shift;
-    my $self = {}; 
-
-    $self->{"isSubPanel"} = \&is_sub_panel;
-    $self->{"hasSubPanel"} = \&has_sub_panel;
-    $self->{"isPanelDone"} = \&is_panel_done;
-    $self->{"getPanelNo"} = &PKI::TPS::Common::r(9);
-    $self->{"getName"} = &PKI::TPS::Common::r("Security Modules Login");
-    $self->{"vmfile"} = "config_hsmloginpanel.vm";
-    $self->{"update"} = \&update;
-    $self->{"panelvars"} = \&display;
-    bless $self,$class; 
-    return $self; 
-}
-
-sub is_sub_panel
-{
-    my ($q) = @_;
-    return 1;
-}
-
-sub has_sub_panel
-{
-    my ($q) = @_;
-    return 0;
-}
-
-sub validate
-{
-    my ($q) = @_;
-    &PKI::TPS::Wizard::debug_log("ConfigHSMLoginPanel: validate");
-    return 1;
-}
-
-sub update
-{
-    my ($q) = @_;
-    &PKI::TPS::Wizard::debug_log("ConfigHSMLoginPanel: update");
-    my $uTokName = $q->param('uTokName');
-    my $uPasswd = $q->param('__uPasswd');
-
-#    &PKI::TPS::Wizard::debug_log("ConfigHSMLoginPanel: update tokname= $uTokName pwd =$uPasswd");
-
-    $::pwdconf->put($uTokName, $uPasswd);
-    $::pwdconf->commit();
-
-    $::config->put("preop.confighsmlogin.done", "true");
-    $::config->commit();
-
-    return 1;
-}
-
-sub display
-{
-    my ($q) = @_;
-    use Data::Dumper;
-    $Data::Dumper::Indent = 1;
-#    &PKI::TPS::Wizard::debug_log("ConfigHSMLoginPanel -> dump of q=  ". Dumper($q));
-    $::symbol{SecToken} = $q->param('SecToken');
-#   &PKI::TPS::Wizard::debug_log("ConfigHSMLoginPanel -> display has ".$q->param('SecToken'));
-
-    &PKI::TPS::Wizard::debug_log("ConfigHSMLoginPanel -> display retrieving $q->param('SecToken') ");
-    my $pwd = $::pwdconf->get( $q->param('SecToken'));
-    if ($pwd ne "") {
-        &PKI::TPS::Wizard::debug_log("ConfigHSMLoginPanel -> display retrieved pwd from pwdconf");
-    }
-
-    return 1;
-}
-
-sub is_panel_done
-{
-   return $::config->get("preop.confighsmlogin.done");
-}
-
-
-1;