in reply to Re^3: send windowmessage from cgi back to form that called the cgi
in thread send windowmessage from cgi back to form that called the cgi
Hi:
Don't want to do anything on load.
Go here http://www.jala-mi.org/httpsdocs/jala_AdminCore.htm
at bottom are two buttons. Click Get File Load Status to load the iframe with the results (nothing because the part did not run that produces results). The other button clears the iframe.
I want to execute these funtions from the cgi script on the server. The first one loading results when the actual process is complete and the clear function from the close button on the response form in the iframe.
Again the perl code (more of it) updating tables disabled
if ($action eq "updatetable_3") { # warn("Entered update_tables.cgi with action = UpdateTable_3"); # UpdateUserTable($dbh); # $message = "Update User Data Table"; # $filemessage = "User Data Table Update Complete"; } elsif ($action eq "updatetable_4") { # warn("Entered update_tables.cgi with action = UpdateTable_4"); # UpdateTenantTable($dbh); # $message = "Update Tenant Data Table"; # $filemessage = "Tenant Data Table Update Complete"; } elsif ($action eq "updatetable_5") { # warn("Entered update_tables.cgi with action = UpdateTable_5"); # UpdatePropertyTable($dbh); # $message = "Update Property Data Table"; # $filemessage = "Property Data Table Update Complete"; } elsif ($action eq "updatetable_6") { # warn("Entered update_tables.cgi with action = UpdateTable_6"); # DownloadUserTable($dbh); # $message = "Download User Data Table"; # $filemessage = "Download of File Completed: '$count'"; } else { # print p (escapeHTML ("Impossible Error: selected action is unknow +n: $action")); $message = "Database Failure"; $filemessage = "File Load Falure. Impossible Error: selected action +is unknown: $action"; } warn("Just before close connection"); manageusers::CloseConnection(); #window.parent.postMessage({ # 'func': 'GetFileLoadStatus', # 'message': 'Message text from iframe.' #}, "*"); if ($action eq "updatereport"){ warn("In updatereport before CreateFataFeedbackForm"); CreateDataFeedbackForm($message, $filemessage); }
|
|---|