WebService::UMLSKS::ConnectUMLS - Authenticate the user before accessing UMLSKS with valid username and password.
use WebService::UMLSKS::ConnectUMLS; print "Enter username to connect to UMLSKS:"; my $username = <>; print "Enter password:"; ReadMode 'noecho'; my $pwd = ReadLine 0; ReadMode 'normal'; my $c = new Connect; my $service = $c->connect_umls( $username, $pwd );
This module has package ConnectUMLS which has three subroutines 'new', 'get_pt' and 'connect_umls'. This module takes the username and password from getUserDetails module and connects to the authentication server. It returns a valid proxy ticket if the user is valid or returns an invalid service object if UMLS sends an invalid proxy ticket.
The subroutines are as follows:
This sub creates a new object of ConnectUMLS.
This sub takes username and password as arguments and returns a proxy ticket object after it authenticates the user.
This sub returns a proxy ticket.
ValidateTerm.pm GetUserData.pm Query.pm ws-getUMLSInfo.pl
Mugdha Choudhari, University of Minnesota Duluth <chou0130 at d.umn.edu>
Ted Pedersen, University of Minnesota Duluth <tpederse at d.umn.edu>
Copyright (C) 2011, Mugdha Choudhari, Ted Pedersen
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This program 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 General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, write to The Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.