fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-01-27 21:15 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbhttpd/core.prg
  * contrib/hbhttpd/tests/eshop.prg
    + enabled SSL after successful testing
    * moved cert generation instructions to sample app src
This commit is contained in:
Viktor Szakats
2012-01-27 20:16:57 +00:00
parent a76ac0b90f
commit 94d5bbcfa0
3 changed files with 22 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -16,6 +16,12 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-01-27 21:15 UTC+0100 Viktor Szakats (harbour syenar.net)
* contrib/hbhttpd/core.prg
* contrib/hbhttpd/tests/eshop.prg
+ enabled SSL after successful testing
* moved cert generation instructions to sample app src
2012-01-27 20:52 UTC+0100 Viktor Szakats (harbour syenar.net)
* contrib/hbplist
* contrib/hbhttpd/core.prg

7
harbour/contrib/hbhttpd/core.prg
View File

@@ -13,13 +13,6 @@
#pragma -km+
/*
openssl genrsa -out privatekey.pem 2048
openssl req -new -subj "/C=LT/CN=mycompany.org/O=My Company" -key privatekey.pem -out certrequest.csr
openssl x509 -req -days 730 -in certrequest.csr -signkey privatekey.pem -out certificate.pem
openssl x509 -in certificate.pem -text -noout
*/
/*
Docs:

22
harbour/contrib/hbhttpd/tests/eshop.prg
View File

@@ -2,6 +2,13 @@
* $Id$
*/
/*
openssl genrsa -out privatekey.pem 2048
openssl req -new -subj "/C=LT/CN=mycompany.org/O=My Company" -key privatekey.pem -out certrequest.csr
openssl x509 -req -days 730 -in certrequest.csr -signkey privatekey.pem -out certificate.pem
openssl x509 -in certificate.pem -text -noout
*/
REQUEST DBFCDX
MEMVAR server, get, post, cookie, session
@@ -95,12 +102,15 @@ PROCEDURE Main()
oServer := UHttpdNew()
IF ! oServer:Run( {;
"FirewallFilter" => "", ;
"LogAccess" => {| m | oLogAccess:Add( m + hb_eol() ) }, ;
"LogError" => {| m | oLogError:Add( m + hb_eol() ) }, ;
"Trace" => {| ... | QOut( ... ) }, ;
"Port" => nPort, ;
"Idle" => {| o | iif( HB_FILEEXISTS( ".uhttpd.stop" ), ( FErase(".uhttpd.stop" ), o:Stop() ), NIL ) }, ;
"FirewallFilter" => "", ;
"LogAccess" => {| m | oLogAccess:Add( m + hb_eol() ) }, ;
"LogError" => {| m | oLogError:Add( m + hb_eol() ) }, ;
"Trace" => {| ... | QOut( ... ) }, ;
"Port" => nPort, ;
"Idle" => {| o | iif( HB_FILEEXISTS( ".uhttpd.stop" ), ( FErase(".uhttpd.stop" ), o:Stop() ), NIL ) }, ;
"PrivateKeyFilename" => "private.key", ;
"CertificateFilename" => "certificate.crt", ;
"SSL" => .T. , ;
"Mount" => {;
"/hello" => {|| UWrite( "Hello!" ) }, ;
"/info" => {|| UProcInfo() }, ;