This is my caller file. It is a .mm file not a .m file so I can micx C++ and Objective C. Sorry for my newbieness.
\nThis is SakaiServer.mm – look in the doLogin method.
\nAgain, Creative Commons Public Domain blah blah.<\/p>\n
This is my caller file. It is a .mm file not a .m file so I can micx C++ and Objective C. Sorry for my newbieness. This is SakaiServer.mm – look in the doLogin method. Again, Creative Commons Public Domain blah blah.<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-113","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts\/113","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/comments?post=113"}],"version-history":[{"count":1,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts\/113\/revisions"}],"predecessor-version":[{"id":2205,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts\/113\/revisions\/2205"}],"wp:attachment":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/media?parent=113"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/categories?post=113"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/tags?post=113"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\n\/\/
\n\/\/ SakaiServer.m
\n\/\/ SakaiDesktop
\n\/\/
\n\/\/ Created by Charles Severance on 12\/29\/05.
\n\/\/ Copyright 2005 __MyCompanyName__. All rights reserved.
\n\/\/
\n\/\/ Needed for SoapUtils
\n#include
\n#import “SakaiServer.h”
\n#import “SoapUtils.h”;
\n#define checkErr(err) \\
\nwhile (err != noErr) { fprintf(stderr, “Failed at line %d, error %d\\n”, __LINE__, err); exit(-1); }
\n@implementation SakaiServer
\n– (void) init
\n{
\nhost = nil;
\ntitle = nil;
\nxmlDoc = nil;
\naccount = nil;
\npassword = nil;
\nsession = nil;
\n\/\/ Initially we allow logins, and have neither tried, nor failed logging in
\nsuppressLogin = NO;
\ngoodLogin = NO;
\ntriedLogin = NO;
\n}
\n– (IBAction) setHost:(NSString *) theHost
\n{
\nhost = [theHost retain];
\n}
\n– (IBAction) setTitle:(NSString *) theTitle
\n{
\ntitle = [theTitle retain];
\n}
\n– (IBAction) setAccount:(NSString *) theAccount
\n{
\naccount = theAccount;
\n}
\n– (IBAction) setPassword:(NSString *) thePassword
\n{
\npassword = thePassword;
\n}
\n– (IBAction) setSuppressLogin:(BOOL) theValue
\n{
\nsuppressLogin = theValue;
\n}
\n– (NSString *)title
\n{
\nreturn title;
\n}
\n– (NSString *)host
\n{
\nreturn host;
\n}
\n– (NSString *)account
\n{
\nreturn account;
\n}
\n\/\/ Instead of handing back the password, we simply allow our caller
\n\/\/ to know if it is nil
\n– (BOOL) passwordIsNil
\n{
\nif ( password == nil ) return YES;
\nreturn NO;
\n}
\n– (BOOL) suppressLogin
\n{
\nreturn suppressLogin;
\n}
\n– (BOOL) goodLogin
\n{
\nreturn goodLogin;
\n}
\n– (BOOL) triedLogin
\n{
\nreturn triedLogin;
\n}
\n\/\/ Log in to a Sakai Server
\n– (BOOL) doLogin :(NSTextField *) statusField
\n{
\nif ( triedLogin == YES ) {
\n[statusField setStringValue:@”Prior login failed…”];
\nreturn goodLogin;
\n}
\ntriedLogin = YES;
\ngoodLogin = NO;
\nOSErr err;
\nAEDesc soapParms;
\nerr = createSoapParameters(&soapParms);
\ncheckErr(err);
\n\/\/ Build up Soap Parameters – Ignore Errors while building up parameters
\nerr = addSoapParameter(&soapParms, “id”, typeChar, [account cString]);
\nerr = addSoapParameter(&soapParms, “pw”, typeChar, [password cString]);
\nchar newSession[1024];
\nchar errorMessage[1024];
\n[statusField setStringValue:@”Making web service call for login…”];
\nerr = makeSoapCall([[host stringByAppendingString:@”\/sakai-axis\/SakaiLogin.jws”] cString],
\n“login”, &soapParms, newSession, sizeof(newSession), errorMessage, sizeof(errorMessage), false, true);
\nAEDisposeDesc(&soapParms);
\nif ( err == noErr ) {
\nfprintf(stderr,”Success String = %s!\\n\\n”, newSession);
\n} else {
\nfprintf(stderr,”Error String = %s!\\n\\n”, errorMessage);
\n[statusField setStringValue:[NSString stringWithUTF8String:errorMessage]];
\nreturn NO;
\n}
\n\/\/ Retrieve the sites
\nerr = createSoapParameters(&soapParms);
\ncheckErr(err);
\nerr = addSoapParameter(&soapParms, “session”, typeChar, newSession);
\nerr = addSoapParameter(&soapParms, “search”, typeChar, “”);
\nint i = 1;
\nerr = addSoapParameter(&soapParms, “first”, typeSInt32, &i);
\ni = 999;
\nerr = addSoapParameter(&soapParms, “last”, typeSInt32, &i);
\n\/\/ fullString = [string stringByAppendingString:@”Extra Text”];
\nchar sitesDom[100000];
\n[statusField setStringValue:@”Making web service call retrieving sites…”];
\nerr = makeSoapCall([[host stringByAppendingString:@”\/sakai-axis\/SakaiSite.jws”] cString],
\n“getToolsDom”, &soapParms, sitesDom, sizeof(sitesDom), errorMessage, sizeof(errorMessage), false, true);
\nAEDisposeDesc(&soapParms);
\nif ( err == noErr ) {
\nfprintf(stderr,”Success String = %s!\\n\\n”, sitesDom);
\n} else {
\nfprintf(stderr,”Error String = %s!\\n\\n”, errorMessage);
\n[statusField setStringValue:[NSString stringWithUTF8String:errorMessage]];
\nreturn NO;
\n}
\n\/\/ Parse it all
\n\/\/ Release if this has been done before
\nif ( xmlDoc != nil ) {
\n[xmlDoc release];
\nxmlDoc = nil;
\n}
\n\/\/ NSXMLDocument *xmlDoc;
\nNSString *bar;
\nNSError *nsErr = nil;
\nbar = [NSString stringWithUTF8String:sitesDom];
\nNSLog(bar);
\nxmlDoc = [ [ [ NSXMLDocument alloc] initWithXMLString:bar options:0 error:&nsErr ] retain ] ;
\nif ( xmlDoc == nil ) {
\n[statusField setStringValue:@”Unable to parse returned XML from web Service”];
\nreturn NO;
\n}
\n[statusField setStringValue:@”Web Service Login Successful”];
\ngoodLogin = YES;
\nreturn goodLogin;
\n}
\n@end<\/p>\n","protected":false},"excerpt":{"rendered":"