/usr/share/perl5/WebKDC/WebResponse.pm is in libwebkdc-perl 4.1.1-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 | # An object encapsulating a response from a WebKDC.
#
# Written by Roland Schemers
# Copyright 2002, 2003, 2009
# The Board of Trustees of the Leland Stanford Junior University
#
# See LICENSE for licensing terms.
package WebKDC::WebResponse;
use strict;
use warnings;
BEGIN {
use Exporter ();
our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
# set the version for version checking
$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw();
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
# your exported package globals go here,
# as well as any optionally exported functions
@EXPORT_OK = qw();
}
our @EXPORT_OK;
sub new {
my $type = shift;
my $self = {};
bless $self, $type;
return $self;
}
sub return_url {
my $self = shift;
$self->{'return_url'} = shift if @_;
return $self->{'return_url'};
}
sub proxy_cookie {
my $self = shift;
my $type = shift;
$self->{'cookies'}{$type} = shift if @_;
return $self->{'cookies'}{$type};
}
sub proxy_cookies {
my $self = shift;
return $self->{'cookies'};
}
sub response_token {
my $self = shift;
$self->{'response_token'} = shift if @_;
return $self->{'response_token'};
}
sub response_token_type {
my $self = shift;
$self->{'response_token_type'} = shift if @_;
return $self->{'response_token_type'};
}
sub login_canceled_token {
my $self = shift;
$self->{'lc_token'} = shift if @_;
return $self->{'lc_token'};
}
sub requester_subject {
my $self = shift;
$self->{'requester_subject'} = shift if @_;
return $self->{'requester_subject'};
}
sub subject {
my $self = shift;
$self->{'subject'} = shift if @_;
return $self->{'subject'};
}
sub app_state {
my $self = shift;
$self->{'app_state'} = shift if @_;
return $self->{'app_state'};
}
sub factor_configured {
my $self = shift;
push (@{$self->{'factor_configured'}}, @_) if @_;
return $self->{'factor_configured'};
}
sub factor_needed {
my $self = shift;
push (@{$self->{'factor_needed'}}, @_) if @_;
return $self->{'factor_needed'};
}
sub login_history {
my $self = shift;
push (@{$self->{'login_history'}}, @_) if @_;
return $self->{'login_history'};
}
1;
|