Changeset 258

Timestamp:

Apr 20, 2007, 6:27:54 PM (16 years ago)

Author:

Jari Häkkinen

Message:

Changed default server to the demo server, default user to base2.

File:

• trunk/se/lu/thep/webservices_clients/test.pl (modified) (2 diffs)

trunk/se/lu/thep/webservices_clients/test.pl

@@ -1 +1 @@
 #! /usr/bin/perl -w
+
+# $Id$
 
 use BaseWebService;
@@ -12 +14 @@
 
 # Create the BaseWebService object
-my $obj = BaseWebService->new(baseUrl => 'http://base2.thep.lu.se:8080/acgt');
+my $obj = BaseWebService->new(baseUrl => 'http://base2.thep.lu.se:8080/demo');
 my $sessionID = $obj->sessionID();
 print "Session ID = $sessionID \n";
 
 # Login, change to fit your account
-$obj->login('login', 'password');
+#$obj->login('userid', 'password');
+$obj->login('base2', 'base2');
 
 # Get all the projects