Changeset 261 for trunk/se/lu/thep/webservices_clients

Timestamp:

Apr 20, 2007, 6:36:47 PM (16 years ago)

Author:

Jari Häkkinen

Message:

Changed samples and code to refer to the demo server.

Location:

trunk/se/lu/thep/webservices_clients

Files:

• BaseWebService.pm (modified) (1 diff)
• webs-test.R (modified) (1 diff)
• websFunc.R (modified) (1 diff)

trunk/se/lu/thep/webservices_clients/BaseWebService.pm

@@ -488 +488 @@
  
  # 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('base2', 'base2');
  
  # Get all the projects

trunk/se/lu/thep/webservices_clients/webs-test.R

@@ -14 +14 @@
 
 # Login onto the BASE server
-webobj <- login("http://base2.thep.lu.se:8080/acgt", "login", "passwd");
+#webobj <- login("http://base2.thep.lu.se:8080/demo", "login", "passwd");
+webobj <- login("http://base2.thep.lu.se:8080/demo", "base2", "base2");
 
 # The session ID

trunk/se/lu/thep/webservices_clients/websFunc.R

@@ -40 +40 @@
 {
   # obj <- .PerlNew("BaseWebService", "baseUrl", "http://localhost:8080/base2")
-  # obj <- .PerlNew("BaseWebService", "baseUrl", "http://base2.thep.lu.se:8080/acgt")
+  # obj <- .PerlNew("BaseWebService", "baseUrl", "http://base2.thep.lu.se:8080/demo")
   obj <- .PerlNew("BaseWebService", "baseUrl", url);
   obj$login(login, passwd);