Author Topic: BASIC (Read 3440 times)

John · « **Reply #15 on:** March 11, 2023, 01:34:12 PM »

The ScriptBasic web solution is a lightweight httpd server using SB execution objects in a threaded sub-process with inter-thread variable sharing. (MT extension) It can run standalone or as a proxy.

I normally run sbhttpd as a proxy and Nginx to handle HTTPS and security. This environment can scale to whatever the demand might be required.

Gemino Smothers · « **Reply #16 on:** March 13, 2023, 11:04:18 AM »

Where is it available? The web solution.

John · « **Reply #17 on:** March 13, 2023, 11:14:48 AM »

SBHTTPD is included in the distribution for both Windows and Linux.

Gemino Smothers · « **Reply #18 on:** March 13, 2023, 03:13:47 PM »

Ok, I see the documentation chm file. At a glance, I see it works with Apache. Is that correct? In that case it's very much like PHP.

John · « **Reply #19 on:** March 13, 2023, 03:52:45 PM »

I started off using Apache mod proxy reverse but I couldn't get it to work with HTTPS. Nginx is a MUCH better proxy server front end. I only use Apache for local web applications.

Session data is maintained in memory. Shared variables between SB threads have R/W locking if desired.

All this in less than a 800 KB footprint.

John · « **Reply #20 on:** March 14, 2023, 09:55:11 PM »

Quote

In that case it's very much like PHP.

PHP is an external scripting language to Apache as is Python and others. The ScriptBasic web server is a C program that runs as a service managing threaded ScriptBasic execution objects. Session and shared variables are handled by the MT extension module. The CGI extension module supports cookies and POST/GET strings. This is an echo example that shows the CGI extension features.

CGI ECHO

Code: ScriptBasic

' CGI Echo
 
GLOBAL CONST nl = "\n"
CONST NumberOfCookies = 3
 
INCLUDE cgi.bas
 
OPTION cgi$Method cgi::Get OR cgi::Post
 
cgi::Header 200,"text/html"
 
FOR i = 1 TO NumberOfCookies
  ' cookie(i) is i, no domain is defined, path is /, expires after 10 seconds, not secure
  cgi::SetCookie "cookie" & i, i, undef, "/", gmtime() + 10, false
NEXT
 
cgi::FinishHeader
 
'-------------------------------------------------------
PRINT """
<HTML>
<HEAD>
<title>CGI Echo</title>
</HEAD>
<BODY><font face="VERDANA" size="2">
<H1>View CGI Parameters</H1>
This page shows the CGI parameters the way it was uploaded.
<!-- here is the result of the previous HTTP request -->
<FONT SIZE="3">
<PRE>
CGI system variables
--------------------
 
"""
 
PRINT "ServerSoftware  = ", cgi::ServerSoftware(), nl
PRINT "ServerName      = ", cgi::ServerName(), nl
PRINT "GatewayInterface= ", cgi::GatewayInterface(),nl
PRINT "ServerProtocol  = ", cgi::ServerProtocol(), nl
PRINT "ServerPort      = ", cgi::ServerPort(), nl
PRINT "RequestMethod   = ", cgi::RequestMethod(), nl
PRINT "PathInfo        = ", cgi::PathInfo(), nl
PRINT "PathTranslated  = ", cgi::PathTranslated(), nl
PRINT "ScriptName      = ", cgi::ScriptName(), nl
PRINT "QueryString     = ", cgi::QueryString(), nl
PRINT "RemoteHost      = ", cgi::RemoteHost(), nl
PRINT "RemoteAddress   = ", cgi::RemoteAddress(), nl
PRINT "AuthType        = ", cgi::AuthType(), nl
PRINT "RemoteUser      = ", cgi::RemoteUser(), nl
PRINT "RemoteIdent     = ", cgi::RemoteIdent(), nl
PRINT "ContentType     = ", cgi::ContentType(), nl
PRINT "ContentLength   = ", cgi::ContentLength(), nl
PRINT "UserAgent       = ", cgi::UserAgent(), nl
PRINT "Cookie          = ", cgi::RawCookie(), nl
 
PRINT "Referer         = ", cgi::Referer(), nl
PRINT "Password        = ", Environ("HTTP_PASSWORD"), nl
PRINT "Full auth string= ", Environ("HTTP_AUTHORIZATION"), nl
PRINT "\nCookies:\n"
FOR i = 1 TO NumberOfCookies
  PRINT "cookie" & i, " ", cgi::Cookie("cookie" & i), "\n"
NEXT
 
IF cgi::RequestMethod() = "GET" THEN
  PRINT "GET text field using GetParam(\"TEXT-GET\") is ", cgi::GetParam("TEXT-GET"), nl
END IF
 
IF cgi::RequestMethod() = "POST" THEN
  PRINT "POST text field using PostParam(\"TEXT-POST\") is ", cgi::PostParam("TEXT-POST"), nl
END IF
 
PRINT """
</PRE>
<TABLE>
  <TR>
    <TD BORDER=0 BGCOLOR="EEEEEE">
      <PRE>
      A simple form to POST parameters:<BR>
      <FORM METHOD="POST" ACTION="/home/qbo/echo">
        <INPUT TYPE="TEXT" VALUE="Default POST Field Text" NAME="TEXT-POST">
        <INPUT TYPE="SUBMIT" NAME="SUBMIT-BUTTON" VALUE=" POST ">
      </FORM>
      </PRE>
    </TD>
    <TD BORDER=1 width="20">&nbsp;</TD>
    <TD BORDER=0 BGCOLOR="EEEEEE">
    <PRE>
    A simple form to GET parameters:<BR>
    <FORM METHOD="GET" ACTION="/home/qbo/echo">
      <INPUT TYPE="TEXT" VALUE="Default GET Field Text" NAME="TEXT-GET">
      <INPUT TYPE="SUBMIT" NAME="SUBMIT-BUTTON" VALUE=" GET ">
    </FORM>
 
    </TD>
  </TR>
</TABLE>
</BODY>
</HTML>
"""
 

John · « **Reply #21 on:** March 19, 2023, 10:14:41 PM »

This is an example of using AJAX with the ScriptBasic application server. I'm using the MySQL Classic models DB for this demonstration. The dropdown button does an AJAX call to select the product line chosen.

AJAX Example

sbajax

Code: ScriptBasic

' ScriptBasic AJAX & MySQL
 
IMPORT cgi.bas
 
cgi::Header 200,"text/html"
cgi::FinishHeader
 
PRINT """
<html>
<head>
<script>
function showItems(str) {
  if (str == "") {
    document.getElementById("results").innerHTML = "";
    return;
  } else {
    var xmlhttp = new XMLHttpRequest();
    xmlhttp.onreadystatechange = function() {
      if (this.readyState == 4 && this.status == 200) {
        document.getElementById("results").innerHTML = this.responseText;
      }
    };
    xmlhttp.open("GET","/home/qbo/getitems.sb?q="+str,true);
    xmlhttp.send();
  }
}
</script>
</head>
<body>
 
<form>
  <select name="items" onchange="showItems(this.value)">
    <option value="">Product Line</option>
    <option value="Classic Cars">Classic Cars</option>
    <option value="Motorcycles">Motorcycles</option>
    <option value="Planes">Planes</option>
    <option value="Ships">Ships</option>
    <option value="Trains">Trains</option>
    <option value="Trucks and Buses">Trucks and Buses</option>
    <option value="Vintage Cars">Vintage Cars</option>
  </select>
</form>
<br>
<div id="results"></div>
 
</body>
</html>
"""
 

getitems.sb

Code: ScriptBasic

' AJAX - getitems.sb
 
IMPORT cgi.bas
IMPORT mysql.bas
 
cgi::Header 200,"text/html"
 
PRINT """
<!DOCTYPE html>
<html>
<head>
<style>
table {
  width: 100%;
  border-collapse: collapse;
}
 
table, td, th {
  border: 1px solid black;
  padding: 5px;
}
 
th {text-align: left;}
</style>
</head>
<body>
"""
 
product_line = cgi::GetParam("q")
 
dbh = mysql::RealConnect("localhost","USER","PASSWORD","classicmodels")
mysql::query(dbh,"SELECT * FROM products WHERE productLine = '" & product_line & "'")
 
PRINT """
<table>
  <tr>
    <th>Product Code</th>
    <th>Product Line</th>
    <th>Product Vendor</th>
    <th>Product Name</th>
    <th>In Stock</th>
    <th>Cost</th>
    <th>MSRP</th>
  </tr>
"""
 
WHILE mysql::FetchHash(dbh,column)
  PRINT "  <tr>\n"
  PRINT "    <td>", column{"productCode"}, "</td>\n"
  PRINT "    <td>", column{"productLine"}, "</td>\n"
  PRINT "    <td>", column{"productVendor"}, "</td>\n"
  PRINT "    <td>", column{"productName"}, "</td>\n"
  PRINT "    <td align=\"right\">", column{"quantityInStock"}, "</td>\n"
  PRINT "    <td align=\"right\">", FORMAT("%~$###.00~",column{"buyPrice"}), "</td>\n"
  PRINT "    <td align=\"right\">", FORMAT("%~$###.00~",column{"MSRP"}), "</td>\n"
  PRINT "  </tr>\n"
WEND
 
PRINT """
</table>
</body>
</html>
"""
 
mysql::Close(dbh)
 

John · « **Reply #22 on:** March 25, 2023, 04:56:06 PM »

I'm extending the ScriptBasic QBO SDK by adding a UI framework. I'm going to be using the Bootstrap 5 framework as its base.

QBO SDK Framework Example

Gemino Smothers · « **Reply #23 on:** April 04, 2023, 10:21:10 AM »

I must say those examples do well to demonstrate how underrated Script Basic is.
One could replace PHP entirely with it, but without having to totally reinvent the wheel.

John · « **Reply #24 on:** April 04, 2023, 04:07:51 PM »

I'm seriously thinking of renaming ScriptBasic to TGTBT BASIC.

When you run any of the examples I posted they are running as a thread process of SBHTTPD.

Converting PHP code to ScriptBasic isn't hard to do. PHP is hard to interface with custom C libraries.

SBHTTPD and Nginx is a no bloat, fast web app development solution.

AllBASIC Forum / ScriptBasic Blog

News:

Author Topic: BASIC (Read 3440 times)

John

Re: BASIC

Gemino Smothers

Re: BASIC

John

Re: BASIC

Gemino Smothers

Re: BASIC

John

Re: BASIC

John

Re: BASIC

John

Re: BASIC

John

Re: BASIC

Gemino Smothers

Re: BASIC

John

Re: BASIC