[HolyGeek] start-chat

[Sam]

Yosy gave mea quick link for the chat but I got this message again...Sam Yahoo! Groups Sponsor ADVERTISEMENT Yahoo! Groups Links To visit your group on the web, go to: http://groups.yahoo.com/group/HolyGeek/   To unsubscribe from this group, send an email to: [EMAIL PROTECTED]   Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

{curl 3.0 applet}

{applet resync-as-of = {utc-date-time "2006-01-01"}}

{persistent-data "User information"}

{import * from CURL.LANGUAGE.REGEXP}

{let this-applet:Applet = {get-the-applet}}

{let query:String = this-applet.url.query}

{let user:String = ""}

{do
    {let ignore:#String, nuser:#String
    }
    {regexp-match? |"\?(.*&)?user=([^&]*)(&.*)?"|, query, ignore, nuser}

    {if-non-null u  = nuser then
        set user = u
    }
}

{include "RandomMessage.scurl"} || Calls a random Greet + random Bim Info/Nonsense 

{if not user.empty? then
    {text Hi {value user}!}
 else
    ""
}
{image
        source={url "images/bim.jpg"},
           }
{bold {random-message 0}}

{random-message 1}

{italic Keep your mind blank (that was quick!) . . . whilst CurlChat windows pop up - 
Welcome}

{bold Here is the CURLCHAT News . . .}

{italic We are always glad to meet new people

Regular chats are at

Monday 1200 GMT 

Wednesday 1200 GMT, 1700 GMT

Friday 1200 GMT

1200 GMT = 1300 UK summer time
1200 GMT =  0800 EDT, 0500 US Pacific 

CurlChat will develop quite soon to include new features

Regular users can provide a small avatar (character)
and log straight in . . . more news as it arrives . . .

}
{{get-the-applet}.flush}

{import * from ORG.CURLCHAT.DATA,
    location = "curlchat.scurl",
    location = "get-file.php?project_id=2&file_id=33"    
}

{if user == "" then
    {if-non-null new-name = {get-persistent-data "username", error-if-missing? = 
false} then
        set user = new-name
    else
        
        {if-non-null new-name = {popup-text-query 
                                    title = "Login",
                                    "Enter your name: "} then
            set user = new-name
        }
    }
}

{if user != "" then
    {set-persistent-data "username", user}
    {commit-persistent-data}
}

|| Become a client.
{initialize 0}
{connect-to-server
    standard-host,
    standard-port,        
    user, ""
}

{CommandButton label = "restart with latest changes",
    {on Action do
        {request-resync-on-reload {get-the-applet}.url}
        {{get-the-applet}.browse-url {get-the-applet}.url}
    }
}

{CommandButton label = "next time login with other username",
    {on Action do
        {set-persistent-data "username", null}
        {commit-persistent-data}
    }
}