GeezerVison is showing github.com — smallbasic.github.io/samples/node/1055.bas at master · smallbasic/smallbasic.github.io

Expand file tree

1055.bas

Copy path

More file actions

30 lines (24 loc) · 654 Bytes

Copy path

30 lines (24 loc) · 654 Bytes

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

'' This is the famous "CGI Counter" in the SmallBasic version

'' treat it as any Perl or Shell script used for CGI

'' don't forget about the user rights and to rename file to .cgi or add .bas to allowed cgi

'' if you have added SSI support to your http server you can include

'' the counter on a page with this:

#!/usr/bin/sbasic -q

print "Content-type: text/html"

file$="counter.dat"

counter=""

if exist(file$) then

open file$ for input as #1

lineinput #1,counter

close #1

counter=val(counter)+1

open file$ for output as #1

print #1,counter

close #1

else

open file$ for output as #1

print #1,"0"

endif

print counter