Scratch

sparks wrote:

Hi guys,

I'm working on a program at the moment in Panther that, during startup attempts a ping connection with my website to see if the connection is working (ready for later use). However, I am experiencing some minor problems with that and I was wondering if anyone could suggest improvements?

here is my script:

//^^^more setup scripts^^^
if  <(connect to internet?) = [true]>
if <not <<contents of file at url [accidentalgames.com/ping.php?ping=test]> = [1]>>//returns 1 for a success
set [connect to internet v] to [false]
end
end
//vvv more setup scripts vvv

Amazing. The adopted this new block thing and it can't even handle booleans.... I actually had to make the (contents of url []) reporter a boolean just so that it would let me nest that many blocks together and still offer space for a string argument...

anyway, if there is a sound internet connection, everything works fine. However, if there is no internet, the user gets a message that appears by their mouse saying "trouble resolving server name" with the options "give up" or "keep trying". Give up will allow the script to set the connect variable to false, and continue as normal.

HOWEVER, why must it ask this? It's clear there was an error in connecting and the user is informed of this by my program anyway, why should they get this unattractive message pop up? Is there a way around this?

Furthermore, on networks that require additional login information (such as the one at my University or my favourite cafe, the script simply stopped there if I hadn't yet entered these connection details.

I am unaware of how you do it in Panther

but doing it with length_of(response) > 0

would be a much failsafe solution . further it sounds that its inside panther "trouble resolving server name" , its a morphic message in smalltalk aye ?

Last edited by fanofcena (2012-02-09 10:38:21)

sparks wrote:

fanofcena wrote:

I am unaware of how you do it in Panther

but doing it with length_of(response) > 0

would be a much failsafe solution . further it sounds that its inside panther "trouble resolving server name" , its a morphic message in smalltalk aye ?

I disagree that length_of(response) > 0? would be a better way to do this. That would mean if the site was down and displayed a 404 message it would register as a successful connection. Furthermore, if the page is accessed but has failed to receive the url package "ping=test" it returns 2.

EDIT: I probably should have explained the return values of the server side PHP script in the first post, sorry if that was unclear

It is a morphic smalltalk message, yes 

[slightly off topic]MRN hasn't been online in a good two months, hasn't she?[/slightly off topic]

@Spark oh now i see but still due to implict type conversions i am quite scared of using "1" as a value check , aslo is the server side responce only 1 , no headers ???!??!?!?

and if thats a morphic message then I doubt there can be a work arround , because i dont think there is a mechanism like

try{

}catch(E){

}

in panther ? is it ??


[re_open_off_topic]

Yes she has , but i am sure shes working on something awesome and enjoying her timeout   
[/re_open_off_topic]

Last edited by fanofcena (2012-02-09 10:56:47)

What exactly happens when there it no internet connection?

EDIT: Looks like there is a squeak error.

Use this

[
    "Connection code here"
] onError: [   "connection failed code here"   ].

I think that is right...

Last edited by MathWizz (2012-02-09 11:11:12)

ping     r

|t1|
[ t1_'http://www.accidentalgames.com/ping.php?ping=test'.
^ self readFromUrl:  t1. ] onError: [ ^'error'  ].

Doesn't work. Reports error.

@fanofecta, oh! Thanks for contacting her, I was just a bit worried something had happened to her, so that's cool    Tell her I look forward to her return. Also, you're right, some servers do automatically generate header code, such as site11, and those appear in Panther block reads, but for some reason my site is happy to not add things to my HTML for me, possibly because I paid for the site....

Last edited by sparks (2012-02-09 11:24:08)

sparks wrote:

ping     r

Code:

|t1|
[ t1_'http://www.accidentalgames.com/ping.php?ping=test'.
^ self readFromUrl:  t1. ] onError: [ ^'error'  ].

Doesn't work. Reports error.

@fanofecta, oh! Thanks for contacting her, I was just a bit worried something had happened to her, so that's cool    Tell her I look forward to her return. Also, you're right, some servers do automatically generate header code, such as site11, and those appear in Panther block reads, but for some reason my site is happy to not add things to my HTML for me, possibly because I paid for the site....

@sparks no problem    , and well i have my bad-expereinces with PHP , you can open a C socket to a PHP server sometime and see what output any page puts its usually a couple of HTTP headers and then the messages , i think Squeak has pretty higher level sockets or HTTP communication and hence it parses them out  [ Keep me updated on ur project seems like something intresting to me ... I look forward to see it in action ]   

The method causing the problem is Network-Protocols > HTTPSocket > get the page > httpGetDocument:args:accept:request:.   

sparks wrote:

There's no way to solve this problem without editing the smalltalk code, then? I may need to move Panther copies later :S

Or you can let me edit the Smalltalk code for you 

Add this method to Network-Protocols > HTTPSocket > get the page:

noFailGetHTTPDoc: t1 args: t2 accept: t3 request: t4 
    | t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17 t18 t19 t20 |
    Socket initializeNetwork.
    t11 _ (t1 asLowercase beginsWith: 'http://')
                ifTrue: [t1 copyFrom: 8 to: t1 size]
                ifFalse: [t1].
    t11 _ t11 copyUpTo: $#.
    t5 _ t11 copyUpTo: $/.
    t12 _ t11 copyFrom: t5 size + 1 to: t11 size.
    (t5 includes: $:)
        ifTrue: 
            [t16 _ t5 indexOf: $:.
            t7 _ (t5 copyFrom: t16 + 1 to: t5 size) asNumber.
            t5 _ t5 copyFrom: 1 to: t16 - 1]
        ifFalse: [t7 _ self defaultPort].
    t12 size = 0 ifTrue: [t12 _ '/'].
    t2 ifNotNil: [t12 _ t12 , (self argString: t2)].
    HTTPProxyServer isNil
        ifTrue: 
            [t17 _ t5.
            t18 _ t7]
        ifFalse: 
            [t12 _ 'http://' , t5 , ':' , t7 printString , t12.
            t17 _ HTTPProxyServer.
            t18 _ HTTPProxyPort].
    self flag: #XXX.
    t6 _ NetNameResolver addressForName: t17 timeout: 20.
    3
        timesRepeat: 
            [t8 _ HTTPSocket new.
            t8 connectTo: t6 port: t18.
            (t8 waitForConnectionUntil: (self deadlineSecs: 30))
                ifFalse: 
                    [t8 destroy.
                    ^ 'Server ' , t17 , ' is not responding'].
            Transcript cr; cr; show: t1; cr.
            t8 sendCommand: 'GET ' , t12 , ' HTTP/1.0' , CrLf , (t3 ifNil: ['']
                        ifNotNil: ['ACCEPT: ' , t3 , CrLf]) , 'ACCEPT: text/html' , CrLf , HTTPBlabEmail , t4 , 'User-Agent: Squeak 1.31' , CrLf , 'Host: ' , t5 , ':' , t7 printString , CrLf.
            t13 _ t8 getResponseUpTo: CrLf , CrLf ignoring: (String with: CR).
            t9 _ t13 at: 1.
            t14 _ t13 at: 3.
            t9 isEmpty
                ifTrue: [t15 _ 'server aborted early']
                ifFalse: 
                    [t8 header: t9.
                    t10 _ t8 getHeader: 'content-length'.
                    t10 ifNotNil: [t10 _ t10 asNumber].
                    t19 _ t8 getHeader: 'content-type'.
                    t8 responseCode first = $3
                        ifTrue: 
                            [t20 _ t8 getHeader: 'location'.
                            t20
                                ifNotNil: 
                                    [Transcript show: 'redirecting to ' , t20;
                                     cr.
                                    t8 destroy.
                                    ^ self
                                        httpGetDocument: t20
                                        args: t2
                                        accept: t3]].
                    t15 _ t8 getRestOfBuffer: t14 totalLength: t10.
                    t8 responseCode = '401' ifTrue: [^ t9 , t15 contents].
                    nil].
            t8 destroy.
            t15 class ~~ String ifTrue: [^ MIMEDocument
                    contentType: t19
                    content: t15 contents
                    url: t1].
            t15 = 'server aborted early' ifTrue: []]

Then use this code for the block (assumin t1 = the URL):

|t2 |
t2 _ (HTTPSocket noFailGetHTTPDoc: t1 args: nil accept: 'application/octet-stream' request: '') content.
(t1 isKindOf: String)
        ifTrue: [^ t1].
    ^ (RWBinaryOrTextStream with: t1 content) reset

Let me know if you have any problems.   

Thanks for watching! ... it is using HTML5, its not like I can use any other...

Last edited by sparks (2012-02-11 02:40:57)