[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Mar  1 13:06:54 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv13765/MOBY/Client

Modified Files:
	Service.pm 
Log Message:
added basic HTTP authentication into Service.pm.  It will now prompt you for a username and password if you are attempting to access a service from a site that requires authentication.  This will have to be overloaded for GUI clients, since it requests it from a command-ine prompt, but at least we know it can be done, and it is dead easy to do.
moby-live/Perl/MOBY/Client Service.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2003/02/20 02:23:33	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2003/03/01 18:06:54	1.3
@@ -210,6 +210,16 @@
 
 sub DESTROY {}
 
+
+sub SOAP::Transport::HTTP::Client::get_basic_credentials {
+	my ($username, $password);
+	print "ENTER USERNAME: "; $username=<STDIN>; chomp $username;
+	print "ENTER PASSWORD: "; $password=<STDIN>; chomp $password;
+	
+    return $username => $password;
+}
+
+
 sub _LOG {
 	return unless $debug;
 	open LOG, ">>/tmp/ServiceCallLogOut.txt" or die "can't open logfile $!\n";