PureBasic Forums - English

Code: Select all

var db = 0;
var ob = null;
var rs = '';

try 
{
    ob = request.bodyAsObject(request.id);
    db = sql.sqlite("db/shipping.sqlite3");
    // db = sql.odbc(dsn, uid, pwd);
    // db = sql.maria(host, port, dbname, uid, pwd);
    // db = sql.postgres(host, port, dbname, uid, pwd);
    rs = sql.select(db, "select * from ports where unlocode = ?", ['GBFXT'], ob.fieldNames, true, false);
    db = sql.close(db);
    net.sendData(request.id, rs);
} 
catch(err) 
{
    net.sendError(request.id, err.message);
    if(db !== 0) { sql.close(db); }
}

Code: Select all

EnableExplicit


Define *Buffer, Client.i, Len.i

InitNetwork()

If CreateNetworkServer(0, 80)
  
  *Buffer = AllocateMemory(10240)
  If *Buffer
    
    Repeat
      
      Select NetworkServerEvent()
        Case #PB_NetworkEvent_Data
          Client = EventClient()
          Len = ReceiveNetworkData(Client, *Buffer, MemorySize(*Buffer))
          If Len
            SendNetworkString(Client, "HTTP/1.1 401 OK" + #CRLF$ + "Content-Length: 0" + #CRLF$ + #CRLF$)
          EndIf
          
        Case #PB_NetworkEvent_None
          Delay(5)
      EndSelect
      
    ForEver
    
    FreeMemory(*Buffer)
    
  EndIf
  
EndIf

Code: Select all

cp purebasic/compilers/pbcompiler /usr/bin/
cp -rf purebasic /usr/share/
cp purebasic/compilers/fasm /usr/bin/

Code: Select all

#include "gwan.h"  // G-WAN API
#include <stdio.h> // puts()

int main(int argc, char *argv[])
{
puts("\n\n  G-WAN has run the Initialization script"
     " 'init.c' stored in the gwan executable directory.\n"

     " Unlike the Maintenance script ('main.c'), the\n"

     " 'init.c' script must return to let G-WAN run.\n");



// ------------------------------------------------------
// MAX_ENTITY_SIZE (default 4069)
// ------------------------------------------------------
u32 *entity_size = (u32*)get_env(argv, MAX_ENTITY_SIZE);

*entity_size = 5 * 1024 * 1024; // 5 MiB

printf("> MAX_ENTITY_SIZE: %u\n", *(u32*)get_env(argv, MAX_ENTITY_SIZE));



// ------------------------------------------------------
// as a connection may be slow, we enlarge all the
// time-outs to avoid being interrupted by G-WAN

// ------------------------------------------------------
#define NEW_TMO (5 * 60 * 1000)

printf("- old SCRIPT_TMO:%u...  ",
       *(u32*)get_env(argv, SCRIPT_TMO));

printf("- new SCRIPT_TMO:%u\n", NEW_TMO);

*(u32*)get_env(argv, SCRIPT_TMO) = NEW_TMO;



printf("- old KALIVE_TMO:%u... ",
       *(u32*)get_env(argv, KALIVE_TMO));

printf("- new KALIVE_TMO:%u\n", NEW_TMO);

*(u32*)get_env(argv, KALIVE_TMO) = NEW_TMO;



printf("- old REQUEST_TMO:%u... ",
       *(u32*)get_env(argv, REQUEST_TMO));

printf("- new REQUEST_TMO:%u\n", NEW_TMO);

*(u32*)get_env(argv, REQUEST_TMO) = NEW_TMO;



#define NEW_IO_SPEED (1)

// send rate in bytes/sec (if < close)

printf("- old MIN_SEND_SPEED:%u... ",
       *(u32*)get_env(argv, MIN_SEND_SPEED));

printf("- new MIN_SEND_SPEED:%u\n", NEW_IO_SPEED);

*(u32*)get_env(argv, MIN_SEND_SPEED) = NEW_IO_SPEED;



// read rate in bytes/sec (if < close)

printf("- old MIN_READ_SPEED:%u... ",
       *(u32*)get_env(argv, MIN_READ_SPEED));

printf("- new MIN_READ_SPEED:%u\n", NEW_IO_SPEED);

*(u32*)get_env(argv, MIN_READ_SPEED) = NEW_IO_SPEED;

// ------------------------------------------------------ 
}