Messages

1

Web Server - Ask For Help / Re: Beginner's question: "Error in site JavaScript"

« on: March 23, 2014, 10:38:55 AM »

Tglomb: Yes, I've found some interesting things NOT to change in the RED file myself.  My favorite was adding an entry for EXP files... after that, added procedures and changes to parameters were not recognized by my programs.  It took WAY too long to figure out what That problem was. 

Olu:  Updating to the current versions of the various Capesoft products seems to have fixed things.

Thanks guys.
Kraig

2

Web Server - Ask For Help / Beginner's question: "Error in site JavaScript"

« on: March 23, 2014, 09:15:48 AM »

Using NetTalk 8.01 and C9.0.10376, when compiling/running the example files I consistently have a problem returning from an edit form where it seems like my server app has "forgotten" about the CSS.  I get fairly plain text with a message that says "Error in site JavaScript".  Refreshing the browser window has no effect.  If I close my browser, reopen it and go back to the same page, I get the same display error.  But if I close the server app and restart it, everything is back to normal.

I can even keep the browser open, close the server app / restart it, then refresh the window in the browser and all displays properly again.

Until I visit a form.

This is happening in every demo app as well as the very small programs I have created using different themes.  

What could be causing this?

Update:  I tried Bruce J's suggestion about deleting the GZip files from the Basic Browse and Form scripts folder, but that broke the app.



[attachment deleted by admin]

3

E-Mail - Ask For Help / "working" code doesn't send email

« on: July 24, 2013, 01:10:27 PM »

I'm experimenting with NetTalk to create and send emails.  From the example code I have built a short test routine and I have successfully called the routine and sent email from an embed of a button on a window.

But copying the same code into a Process procedure in the last INIT embed does not work.  But No compile errors.

It sure looks like the extensions are set up the same way in both procedures.  My code is below.  Am I missing something?


         
         ThisEmailSend.Server              = 'smtpout.secureserver.net'   
         ThisEmailSend.Port                = 80 ! 25
         ThisEmailSend.ToList              = 'kraigwhiting@gmail.com'
         ThisEmailSend.ccList              = ''
         ThisEmailSend.bccList             = ''
         ThisEmailSend.From                = 'kraig@commandelectronics.com'
         ThisEmailSend.Subject             = 'test email' !MySubject
         ThisEmailSend.Helo                =  'commandelectronics.com'
         ThisEmailSend.AttachmentList      = ''
         ThisEmailSend.SSL                 = 0 
         ThisEmailSend.SecureEmailStartTLS = 0
     
         if ThisEmailSend.SSL or ThisEmailSend.SecureEmailStartTLS
            ThisEmailSend.SSLCertificateOptions.CertificateFile = ''
            ThisEmailSend.SSLCertificateOptions.PrivateKeyFile = ''
            ThisEmailSend.SSLCertificateOptions.DontVerifyRemoteCertificateWithCARoot = 0
            ThisEmailSend.SSLCertificateOptions.DontVerifyRemoteCertificateCommonName = 0
            ThisEmailSend.SSLCertificateOptions.CARootFile = '.\caroot.pem'
         end
       
         if ThisEmailSend.SecureEmailStartTLS
            ThisEmailSend.SSLCertificateOptions.DontVerifyRemoteCertificateCommonName = 1
            ! Fudge this for now, as the certificate is not known
            ! when NetSimple does the CommonName check
         end
     
         ThisEmailSend.SetRequiredMessageSize (0,len(clip('this looks very promising')),len(clip('This looks <b>very</b> promising.')))
            !You must call this function
            !before populating self.MesageText
     
         Thisemailsend.AuthUser     = 'kraig@commandelectronics.com'
         thisemailsend.AuthPassword = 'NotMyRealPassword'
     
         if ThisEmailSend.Error = 0 ! Check for error         
                   
             
            if len(clip('this looks very promising')) > 0
               ThisEmailSend.MessageText = clip ('this looks very promising')
            end
     
            if len(clip('This looks <b>very</b> promising.')) > 0
               ThisEmailSend.MessageHTML = clip ('This looks <b>very</b> promising.')
            end
             
            setcursor (CURSOR:WAIT)
            display()
            ThisEmailSend.SendMail(NET:EMailMadeFromPartsMode)
            ! Put email in queue and start sending it
            setcursor
            display()     
          ELSE
            message('ThisEmailSend.Error > 0',Thisemailsend.Error)
         end