Changeset 261


Ignore:
Timestamp:
Apr 20, 2007, 6:36:47 PM (15 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:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/se/lu/thep/webservices_clients/BaseWebService.pm

    r260 r261  
    488488 
    489489 # Create the BaseWebService object
    490  my $obj = BaseWebService->new(baseUrl => 'http://base2.thep.lu.se:8080/acgt');
     490 my $obj = BaseWebService->new(baseUrl => 'http://base2.thep.lu.se:8080/demo');
    491491 my $sessionID = $obj->sessionID();
    492492 print "Session ID = $sessionID \n";
    493493 
    494494 # Login, change to fit your account
    495  $obj->login('login', 'password');
     495 $obj->login('base2', 'base2');
    496496 
    497497 # Get all the projects
  • trunk/se/lu/thep/webservices_clients/webs-test.R

    r260 r261  
    1414
    1515# Login onto the BASE server
    16 webobj <- login("http://base2.thep.lu.se:8080/acgt", "login", "passwd");
     16#webobj <- login("http://base2.thep.lu.se:8080/demo", "login", "passwd");
     17webobj <- login("http://base2.thep.lu.se:8080/demo", "base2", "base2");
    1718
    1819# The session ID
  • trunk/se/lu/thep/webservices_clients/websFunc.R

    r260 r261  
    4040{
    4141  # obj <- .PerlNew("BaseWebService", "baseUrl", "http://localhost:8080/base2")
    42   # obj <- .PerlNew("BaseWebService", "baseUrl", "http://base2.thep.lu.se:8080/acgt")
     42  # obj <- .PerlNew("BaseWebService", "baseUrl", "http://base2.thep.lu.se:8080/demo")
    4343  obj <- .PerlNew("BaseWebService", "baseUrl", url);
    4444  obj$login(login, passwd);
Note: See TracChangeset for help on using the changeset viewer.