A discussion question on the wiki

[Chris Iverson]

Has anybody seen this?

Greg56
Can Liberty Basic use RunBasic to upload data off-site?
I read Alyce's informative article on file uploading, but I don't understand where the uploaded file physically resides. Does it reside on the user's computer? (sounds like it doesn't if Run Basic can be run from any web terminal). For that matter, where does the installed RunBasic code reside?

I write programs with Liberty Basic and know how to download data from files from the internet. I need the ability to upload data off-site from my Liberty Basic program--can I do this by adding RunBasic? Will RunBasic be able to submit my username and password to my website to write a file there? Does it use FTP? The purpose is to maintain a secure off-site accounting of program usage as customers are charged per use. Is a personal server license suitable for this, or would I need another license?

Thanks for any help--

Greg Sweitzer
p.s. Liberty Basic rocks! I look forward to learning more about Run Basic.
Posted Jan 26, 2008 2:04 pm

It was posted on the discussion for the Sample Code page:
runbasic.wikispaces.com/message/list/Sample+Code

[turbov21]

thedarkfreak said:

Has anybody seen this?

Yes...strangely, and I don't understand every part of the how, you can use a script to upload files to RBP. I don't know Liberty BASIC all that well, so I used Perl to get this:

#!/usr/bin/perl -w

use Data::Dumper;
use LWP::UserAgent;
use HTML::TokeParser;
use strict;
use utf8;
use warnings;
use XML::Simple;

my $file = "C:\\andy\\73989.jpg";

my $url = "http://kerovia.net:8008/seaside/go/runbasic?app=UploadTest";
my $browser = LWP::UserAgent->new();
my $rbp = $browser->get($url);

unless ($rbp->is_success)
{
    die "Could not get UploadTest\n\n" . $rbp->status_line;
}

utf8::decode($rbp->content);

my $html = HTML::TokeParser->new(\$rbp->content);
my %send = ();
my $frmcnt = 0;

while (my $token = $html->get_token())
{
    if ($token)
    {
        if ($$token[0] eq "S")
        {
            if ($$token[1] eq "form")
            {
                $frmcnt++;
            }
            
            if ($$token[1] eq "input" && $frmcnt == 2)
            {
                if ($$token[2]->{name})
                {
                    $send{$$token[2]->{name}} = $$token[2]->{value};
                }
            }
        }
    }
}

my $upl = $browser->post($url,
                         [
                           '1' => [$file],
                           '_s' => $send{"_s"},
                           '_k' => $send{"_k"},
                         ],
                         'Content_Type' => 'form-data',);

print Dumper($upl);

As I said, I don't know all the how's and why's yet, but after you upload you file ($file) via the script, it returns with an HTTP 302 status, not the 200 status you need for the script to recognize a successful upload...but this does upload a file ($file) to my UploadList script.