diff options
Diffstat (limited to 'pki/base/tps/lib/perl/PKI/TPS/AgentAuthPanel.pm')
-rwxr-xr-x | pki/base/tps/lib/perl/PKI/TPS/AgentAuthPanel.pm | 91 |
1 files changed, 0 insertions, 91 deletions
diff --git a/pki/base/tps/lib/perl/PKI/TPS/AgentAuthPanel.pm b/pki/base/tps/lib/perl/PKI/TPS/AgentAuthPanel.pm deleted file mode 100755 index a5130caa1..000000000 --- a/pki/base/tps/lib/perl/PKI/TPS/AgentAuthPanel.pm +++ /dev/null @@ -1,91 +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::AgentAuthPanel; -$PKI::TPS::AgentAuthPanel::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(7); - $self->{"getName"} = &PKI::TPS::Common::r("Agent Authentication"); - $self->{"vmfile"} = "agentauthenticatepanel.vm"; - $self->{"update"} = \&update; - $self->{"panelvars"} = \&display; - bless $self,$class; - return $self; -} - -sub is_sub_panel -{ - my ($q) = @_; - return 0; -} - -sub has_sub_panel -{ - my ($q) = @_; - return 0; -} - -sub validate -{ - my ($q) = @_; - &PKI::TPS::Wizard::debug_log("AgentAuthPanel: validate"); - return 1; -} - -sub update -{ - my ($q) = @_; - &PKI::TPS::Wizard::debug_log("AgentAuthPanel: update"); - $::config->put("preop.agentauth.done", "true"); - $::config->commit(); - return 1; -} - -sub display -{ - my ($q) = @_; - &PKI::TPS::Wizard::debug_log("AgentAuthPanel: display"); - return 1; -} - -sub is_panel_done -{ - return $::config->get("preop.agentauth.done"); -} - -1; |