[Gambas-user] CGI app help.

Thu May 12 15:08:02 CEST 2011

Le 12/05/2011 14:53, Fabien Bodard a écrit :
> and naturally you can take a look at the code here :
>
> http://sourceforge.net/projects/gambasforge/

"

GambasForge is a CMS writed in gambas. It provide a set of CGI's that 
allow to manage a gambas source spécific repository, forum, news, etc...

"

An english sentence, a french letter. There is a problem here, isn't it?

(spécific)

;)

> that is the code for :
>
> http://gambasforge.org/beta
>
> 2011/5/12 Rolf-Werner Eilert<eilert-sprachen at ...221...>:
>> Am 12.05.2011 00:53, schrieb Hamilton Geminiano Andrioli Junior:
>>> Hello world!
>>>
>>> I want to make a system for my School.
>>> Now i have to decide how and where to write it.
>>>
>>> Does anyone have a example of CGI Web based program in gambas?
>>>
>>> Thanks...
>>>
>>
>> Hello Hamilton,
>>
>> I have made CGI applications based on Gambas scripts. Don't know if it
>> is thought to be made like this (I didn't know there is a special class
>> for it in Gambas), but this is about the basic work:
>>
>> You'll need a new Gambas project "for commandline use".
>>
>> Just to give you an idea of how this could work, here's the skeleton for
>> a simple CGI window which has basically 3 parts: a Title-Line and two
>> Columns (realized with a table). It is from a database questionnaire
>> where you can switch on/off some items on the left and see the results
>> (simple list) on the right. This is actually a thing I made for my
>> school :-)
>>
>> Let the IDE compile the stuff and copy the<Project>.Gambas file into
>> your<whatever>/cgi-bin directory. In my case, however, I had to make a
>> symlink to the actual Gambas binary because the appache wouldn't find it
>> like that.
>>
>> All this is in MMain. German "schreibe" = "write", "Spalte" = "Column"
>>
>>
>> PUBLIC SUB Main()
>>
>>
>>      schreibeHeader
>>
>>      schreibeSeitenkopf
>>
>>      PRINT "<table border=\"0\" width=\"100%\">"
>>      PRINT "<tr>"
>>      schreibeLinkeSpalte
>>      schreibeRechteSpalte
>>      PRINT "</tr>"
>>      PRINT "</table>"
>>
>>      schreibeSeitenschluss
>>
>>
>>
>> END
>>
>>
>> 'To make it function, this part is the most important. Take care
>> 'not to forget the two empty lines before Doctype.
>>
>> PRIVATE SUB schreibeHeader()
>>
>>    PRINT "Content-type: text/html; charset=utf-8"
>>    PRINT ""
>>    PRINT ""
>>    PRINT "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">"
>>    PRINT "<head>"
>>    PRINT "<title>Kartei online</title>"
>>    PRINT "<style type=\"text/css\">"
>>    PRINT "a:link { text-decoration:none; font-weight:bold; color:#3261A6; }"
>>    PRINT "a:visited { text-decoration:none; font-weight:bold;
>> color:#800000; }"
>>    PRINT "a:hover { text-decoration:none; font-weight:bold;
>> background-color:#ff0; }"
>>    PRINT "a:active { text-decoration:none; font-weight:bold;
>> background-color:#cff; }"
>>    PRINT "a:focus { text-decoration:none; font-weight:bold;
>> background-color:#080; }"
>>    PRINT "</style>"
>>
>>    PRINT "</head>"
>>    PRINT ""
>>
>> END
>>
>>
>> PRIVATE SUB schreibeSeitenkopf()
>> DIM i AS Integer
>>
>>    PRINT "<body bgcolor=\"#E0E0E0\">"
>>
>>    PRINT "<font face=\"Verdana, Arial, Helvetica\"
>> color=\"#3261A6\"><h1>Title of the CGI application</h1><font
>> face=\"Trebuchet MS, Verdana, Arial, Helvetica\" size=\"-1\"
>> color=\"black\">"
>>
>> END
>>
>>
>> PRIVATE SUB schreibeLinkeSpalte()
>> DIM t$ AS String
>> DIM i AS Integer
>> DIM teil AS NEW String[]
>>
>>    PRINT "<td width=\"33%\" valign=\"top\">"
>>      PRINT "<font face=\"Trebuchet MS, Verdana, Arial, Helvetica\"
>> size=\"-1\">"
>>      PRINT "Left column:<br><br>"
>>      PRINT "<h3><font face=\"Verdana, Arial, Helvetica\"
>> color=\"#3261A6\"><center>Title 1</center></h3><font face=\"Trebuchet
>> MS, Verdana, Arial, Helvetica\" size=\"-1\" color=\"black\">"
>>
>>
>>      PRINT "<hr>"
>>      PRINT "<h3><font face=\"Verdana, Arial, Helvetica\"
>> color=\"#3261A6\"><center>Title 2</center></h3><font face=\"Trebuchet
>> MS, Verdana, Arial, Helvetica\" size=\"-1\" color=\"black\">"
>>    PRINT "</td>"
>>
>> END
>>
>>
>>
>>
>>
>>
>>
>> PRIVATE SUB schreibeRechteSpalte()
>> DIM i AS Integer
>> DIM teil AS NEW String[]
>>
>>    PRINT "<td width=\"2%\" bgcolor=\"#EEEEEE\"></td>" 'Zwischenspalte
>> hellgrau
>>
>>    PRINT "<td bgcolor=\"FFFFFF\" valign=\"top\">"      'rechte Spalte weiß
>>
>>        PRINT "<h3><font face=\"Verdana, Arial, Helvetica\"
>> color=\"#3261A6\"><center>Inhalt</center></h3>"
>>
>>    PRINT "</td>"
>>
>> END
>>
>>
>>
>> PRIVATE SUB schreibeSeitenschluss()
>>
>>    PRINT "</body>"
>>    PRINT "</HTML>"
>>
>> END
>>
>> ------------------------------------------------------------------------------
>> Achieve unprecedented app performance and reliability
>> What every C/C++ and Fortran developer should know.
>> Learn how Intel has extended the reach of its next-generation tools
>> to help boost performance applications - inlcuding clusters.
>> http://p.sf.net/sfu/intel-dev2devmay
>> _______________________________________________
>> Gambas-user mailing list
>> Gambas-user at lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>
>
>