Show Posts

136

General Discussions / ScriptBasic application server on Win2003

« on: October 01, 2007, 05:52:25 PM »

SBHTTPD Users,

I'm having a issue with virtual directories under Windows 2003 server using Apache as the front end web server.

Under XP SP2 it works great. I proxy a directory and call it home in the scriba.conf file and define the sub-directories as virtual directories. Under Win2003, SB complains that it can't find code in the virtual directories.

Has anyone else seen this problem running under Win2003 server?

John

137

Debugger / ScriptBasic 2.1 Debug Option

« on: July 08, 2007, 02:09:28 AM »

If you have installed ScriptBasic 2.1 from the setup.exe distribution you may have noticed that Peter added a debug internal preprocessor and a standalone remote debugger. (more on the remote debugger in another post)

To debug a ScriptBasic program, use the '-i dbg' option to start your program.

scriba -i dbg mypgm.sb

Note: The ScriptBasic Windows install defines the .sb file attribute as being a ScriptBasic program. This will allow to run the program by using it's name only without the 'scriba' prefix.

John

138

General Discussions / ScriptBasic 2.1 Application Server Testing

« on: June 06, 2007, 02:38:45 AM »

I'm testing the ScriptBasic 2.1 application server under CentOS. (Red Hat recompile) I have already tested it under Windows without any issues.

As soon as I get a the application I'm working on in ScriptBasic completed and MT and MySQL are fully tested, I'll post the source and binaries.

I've started a page on the wiki for the MT module and will clean it up in the next few days. I also plan on documenting how to bring up the application server on multiple virtual hosts.

Stay Tuned !

John

139

ScriptBasic Examples w/source / PostgreSQL Example

« on: May 21, 2006, 02:55:09 PM »

http://www.scriptbasic.org/cgi-bin/pgsqltest.bas

I would like to thank Peter Szabo (pgsql extension module author) for updating his work to the current version of the RedHat LAMP stack.

Code: [Select]


#!/usr/bin/scriba -c

INCLUDE cgi.bas
INCLUDE pgsql.bas

OPTION cgi$Method cgi::Post or cgi::Get

cgi::Header 200,"text/html"

cgi::FinishHeader

PRINT """
<html>
<head>
<title>PostgreSQL</title>
</head>
<body>
<font face="Verdana, Arial, Helvetica, sans-serif">
<table border="1" cellpadding="3">
"""

c = PGSQL::PGopen("dbname='database' user='user' password='password'")
IF ISSTRING(c) THEN
  PRINT "Connect Error: (", RTRIM(c), ")\n"
  END
END IF

r = PGSQL::PGexec(c, "SELECT * FROM contact")
IF ISSTRING(r) THEN
  PRINT "Query Error: (", RTRIM(r), ")\n"
  END
END IF

PRINT "<b>PGSQL Handle: </b>" & c & "<br>"
PRINT "<b>Command Status: </b>" & PGSQL::PGcmdStatus(r) & "<br>"
PRINT "<b>Command Tuples: </b>" & PGSQL::PGcmdTuples(r) & "<br>"
PRINT "<br>"

' Column Names
PRINT "<tr>"
nf=PGSQL::PGncols(r)
FOR i=0 TO nf-1
  PRINT "<td>" & PGSQL::PGcol(r,i) & "</td>"
NEXT
PRINT "</tr>"

' Data 
nrows=PGSQL::PGnrows(r)
FOR row=0 TO nrows-1
  PRINT "<tr>"
  FOR col=0 TO nf-1
    IF PGSQL::PGgetisnull(r,row,col) THEN
      PRINT "<td>NULL</td>"
    ELSE
      PRINT "<td>" & PGSQL::PGgetvalue(r,row,col) & "</td>"
    END IF
  NEXT
  PRINT "</tr>" 
NEXT

PRINT """
</table>
</body>
</html>
"""

PGSQL::PGclose(r)
PGSQL::PGclose(c)

END

140

ScriptBasic Examples w/source / WEBGET - Browser based Curl Example

« on: May 17, 2006, 04:14:30 PM »

This example Curl program will retrieve the source HTML of the URL you submit. IE doesn't work with default security settings and the 'MIME Sniffing" feature needs to be disabled so the file attribute is used for MIME determination like the other browsers. MSDN Reference

http://www.scriptbasic.org/curl.html

Code: [Select]


*** getweb.bas ***

#!/usr/bin/scriba -c

INCLUDE cgi.bas
INCLUDE curl.bas

OPTION cgi$Method cgi::Post or cgi::Get

this_url = cgi::PostParam("geturl")

CURL = curl::init()
curl::option CURL,"URL",this_url
curl::option CURL,"FILE","/var/www/vhosts/scriptbasic.org/httpdocs/pagedump.txt"
curl::perform CURL
curl::finish CURL

cgi::Header 302,""
PRINT "Location: /pagedump.txt\n"
cgi::FinishHeader

END


*** curl.html ***

<html>
<head>
<title>ScriptBasic WebGet</title>
</head>
<body>
<h1>Curl Example</h1>

Enter URL to retrieve:

<form method="post" action="/cgi-bin/getweb.bas">
  <input type="text" name="geturl" size=40>
  <input type="submit" value="Get Page">
</form>
</body>
</html>