Changeset 75
- Timestamp:
- 08/18/06 17:07:03 (2 years ago)
- Files:
-
- trunk/stetsubs.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/stetsubs.pl
r69 r75 105 105 # username => $username, 106 106 # password => $password); 107 my $respref = $server->call('authRemoteUser',$name,$pass); 107 my $coder = Frontier::RPC2->new; 108 my $xmlpass = $coder->string($pass); 109 my $xmluser = $coder->string($name); 110 my $respref = $server->call('authRemoteUser',$xmluser,$xmlpass); 108 111 $resp = $$respref; 109 112 } … … 111 114 $resp = 0; 112 115 } 113 # print STDERR "resp to getUserwas $resp\n";116 print STDERR "resp to getUser for $name was $resp\n"; 114 117 115 118 # mangle name for testing: