|
|
Post by turbov21 on Oct 16, 2007 23:03:14 GMT -5
I don't have Liberty BASIC yet, but by-gum I'm going to get it with my next paycheck. However, I do have Just BASIC, and have been wanting to combine the desktop power of Liberty/Just BASIC with the web enabling power of Run BASIC. (Could that sound more buzz-wordy?) And this is what I came up with: Bitter. The "server" code that you're seeing up there, looks like this: Bitter' Bitter, micro-blogging with Run BASIC
'''''
' Variable settings
bitDir$ = "C:\RBP\bits\"
bitExt$ = ".txt"
bitMax = 10
bitStart = 0
rssYes = 1
[start]
cls
html "<h2>Bitter, micro-blogging with <a href=""http://runbasic.com/"">Run BASIC</a></h2>"
' Links to the RSS feed
if rssYes = 1 then
run "BitRss", #Rss
render #Rss
end if
html "<hr/>"
' If your max is more than your bits
if FileCount(bitDir$ + "*.txt") < bitMax then
bitMax = FileCount(bitDir$ + "*.txt")
else
bitMax = bitMax
end if
' Set bitStart to be the highest numbered file in bitDir$
bitStart = bitMax
while bitMax > 0
temp$ = bitDir$ + str$(bitStart) + bitExt$
if FileExists(temp$) = 1 then
open temp$ for input as #getbit
line input #getbit, bitPost$
close #getbit
bitDate$ = FileDate$(temp$)
html "<p><b>" + bitPost$ + "</b><br/>" + bitDate$ + "</p>"
bitMax = bitMax - 1
end if
bitStart = bitStart - 1
wend
end
' Returns an interger of 0 or more, saying whether a file exists or not
function FileExists(file$)
files #bitlist, file$
isfile = #bitlist rowcount()
FileExists = isfile
end function
' Kind of "overloading" the previous functions
function FileCount(dir$)
FileCount = FileExists(dir$)
end function
' Gets and formats the date/time of the file
function FileDate$(file$)
files #bitfile, file$
#bitfile nextfile$()
dat$ = #bitfile date$()
tim$ = str$(#bitfile time$())
FileDate$ = dat$ + " - " + tim$
end function |
' BitRss, micro-blogging RSS feed
'''''
' Variable settings
bitDir$ = "C:\RBP\bits\"
bitExt$ = ".txt"
bitMax = 10
bitStart = 0
rssDir$ = "C:\RBP\rss\"
rssFile$ = rssDir$ + "bitter.xml"
' About channel vafriables
rssTitle$ = "Bitter Feed"
rssLink$ = "http://kerovia.net:8008/seaside/go/runbasicpersonal?app=Bitter"
rssAbout$ = "The RSS feed for my Run BASIC micro-blogger, Bitter."
[start]
open rssFile$ for output as #1
print #1, "<?xml version=""1.0"" encoding=""windows-1252"" ?>"
print #1, "<rss version=""2.0"" xmlns:atom=""http://www.w3.org/2005/Atom"">"
print #1, "<channel>"
print #1, "<atom:link href=""http://kerovia.net:8008/rss/bitter.xml"" rel=""self"" type=""application/rss+xml"" />"
print #1, "<title>" + rssTitle$ + "</title>"
print #1, "<link>" + rssLink$ + "</link>"
print #1, "<description>" + rssAbout$ + "</description>"
' If your max is more than your bits
if FileCount(bitDir$ + "*.txt") < bitMax then
bitMax = FileCount(bitDir$ + "*.txt")
else
bitMax = bitMax
end if
' Set bitStart to be the highest numbered file in bitDir$
bitStart = bitMax
while bitMax > 0
temp$ = bitDir$ + str$(bitStart) + bitExt$
if FileExists(temp$) = 1 then
open temp$ for input as #getbit
line input #getbit, bitPost$
close #getbit
bitDate$ = FileDate$(temp$)
print #1, "<item>"
print #1, "<title>" + bitPost$ + "</title>"
print #1, "<link>" + rssLink$ + "#" + str$(bitStart) + "</link>"
print #1, "<guid>" + rssLink$ + "#" + str$(bitStart) + "</guid>"
print #1, "<description>" + bitPost$ + "</description>"
print #1, "<pubDate>" + bitDate$ + "</pubDate>"
print #1, "</item>"
bitMax = bitMax - 1
end if
bitStart = bitStart - 1
wend
print #1, "</channel>"
print #1, "</rss>"
close #1
html "<a href=""/rss/bitter.xml"">RSS feed</a>"
end
' FUNCTIONS AND SUBROUTINES
'''''
' Returns an interger of 0 or more, saying whether a file exists or not
function FileExists(file$)
files #bitlist, file$
isfile = #bitlist rowcount()
FileExists = isfile
end function
' Kind of "overloading" the previous functions
function FileCount(dir$)
FileCount = FileExists(dir$)
end function
' Gets and formats the date/time of the file
function FileDate$(file$)
files #bitfile, file$
#bitfile nextfile$()
#bitfile dateformat("ddd, dd mmm yyyy")
dat$ = #bitfile date$()
tim$ = str$(#bitfile time$())
FileDate$ = dat$ + " " + tim$ + " EST"
end function |
The "client" code written in Just BASIC looks like this: ' Main section of the program
nomainwin
WindowWidth = 424
WindowHeight = 70
' File info
homeDir$ = "D:\jarod\basic\"
logFile$ = homeDir$ + "bitlog.txt"
saveTo$ = "Q:\bits\"
textbox #main.textbox1, 6, 6, 352, 25
button #main.button2, "Post", [button2Click], UL, 366, 6, 42, 25
open "Bitter" for window as #main
print #main, "font ms_sans_serif 0 16"
[main.inputLoop] 'wait here for input event
wait
close #main
end
' Posts a Bitter bit
[button2Click]
print #main.textbox1, "!contents?"
input #main.textbox1, textString$
if len(textString$) > 0 then
if len(textString$) > 140 then
textString$ = left$(textString$, 140)
end if
success = SaveFile(textString$, saveTo$, logFile$)
if success = 1 then
print #main.textbox1, ""
notice "Post success!"
end if
end if
close #main.textbox1
wait
' Gets the last log number, increases it by one, saves a Bitter bit by
' that number, then returns 1 for success.
function SaveFile(textString$, saveTo$, logFile$)
open logFile$ for input as #1
input #1, numr$
close #1
newcnt$ = str$(val(numr$) + 1)
newbit$ = saveTo$ + newcnt$ + ".txt"
open newbit$ for output as #bit
print #bit, textString$
close #bit
open logFile$ for output as #count
print #count, newcnt$
close #count
SaveFile = 1
end function |
It's micro=blogging, ala Twitter, so it's not meant to really be much of anything. (I hope to flesh it out later, add an RSS feed, but not tonight.) However, I just thought it was kind of cool that Run BASIC not only puts BASIC on the web, it can kind of put desktop BASIC programs on the web too...their output anyway. EDIT: If the drive letters look a bit odd, it's because I run RBP on a seperate computer than the one I use as a desktop. UPDATE: Added BitRss, a small subprogram that generates an RSS feed every time Bitter runs. |
|
|
|
Post by Jerry Muelver on Oct 17, 2007 6:55:16 GMT -5
That's cute, Andrew! I'm doing a bit of "author on desktop, display through RB" coding here, too, using UPLOAD on the RB server for the file updates to emulate the typical use case. Hmmmm.... I might just have to buy the internet access option for my cell phone one of these days, and skip the desktop computing completely!
|
|
|
|
Post by billw on Oct 17, 2007 7:00:31 GMT -5
Very nice little application! The idea of client/server interaction had crossed my mind, but this is very creative. Almost makes me want to try and make a tumblr clone. Maybe I will.  |
|
|
|
Post by carlgundel on Oct 17, 2007 7:03:46 GMT -5
That's one way to approach security. Two programs. Once is a publicly known URL, and other is not. Smart.  -Carl |
|
