Commit 0cca85aa authored by marcus-tun's avatar marcus-tun
Browse files

minor code cleaning

parent 79fe1881
......@@ -26,9 +26,6 @@ use Term::ReadKey;
use Term::ReadLine;
use MIME::Base64 qw( encode_base64 );
# Just for debugging:
use Data::Dumper;
# Handle <Ctrl>+C to reset the terminal to non-bold text
$SIG{INT} = \&resetTerm;
......@@ -44,7 +41,6 @@ my $headers='';
# DEFAULTS
my $idpname = 'Test KIT IdP';
my $idplisturl = 'http://saml-delegation.data.kit.edu/sd/idplist.txt';
#my $idpurl = 'https://idptest.scc.kit.edu/idp/profile/SAML2/SOAP/ECP';
my $idpurl = '';
my $idpuser = '';
my $idppass = '';
......@@ -239,8 +235,7 @@ if ($response->is_success) {
warn("Error: No valid IdP URL specified\n");
exit 1;
}
# Finally create the session cookie... (the lengthy code is in the
# subroutine
# Create the session cookie... (the lengthy code is in the subroutine)
create_valid_session_via_idp($idpurl, $idpuser, $idppass, $ua);
# Reset the cookie to prevent CSRF
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment