TCWeb - filemanager with mod harbour

TCWeb - filemanager with mod harbour

Postby Otto » Wed Jan 03, 2024 4:21 pm

Hello friends,
Best regards,
Otto

Image
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6312
Joined: Fri Oct 07, 2005 7:07 pm

Re: TCWeb - filemanager with mod harbour

Postby Jack » Thu Jan 04, 2024 10:35 am

Otto,
Could you give us more detail about the way you design your screen .

With fivewin, we have resource workshop or pellec or .....

What is the same for web (HTML CSS screen design )

Thanks,

Philippe
Jack
 
Posts: 288
Joined: Wed Jul 11, 2007 11:06 am

Re: TCWeb - filemanager with mod harbour

Postby Otto » Thu Jan 04, 2024 10:44 am

Hello friends,

I am in the process of extending the filename.prg (// FiveWin FileNames support functions) for mod harbour.

DosPAth2Web()
Here is a function that is needed when you want to open a page in the browser from TCWeb.


TCWeb is fun. First there was Norton Commander then it was often cloned - I use Total Commander.
And now I needed something for the web. So I'm trying to make a file manager for the web following the model of Total Commander.

Best regards,
Otto

Code: Select all  Expand view


/* DOS2Web( input )  

The `DOS2Web` function converts a local file system path to a web URL.
It constructs the base URL from the server's HTTPS status and host name.
It adjusts the local path by removing any trailing slashes and replacing backslashes with forward slashes.
Then, it substitutes the local server path (from `DOCUMENT_ROOT`) with the base URL to create the web-accessible URL.
The resulting URL is returned, representing the web path equivalent of the input DOS path.
This function is typically used in a web server environment like mod_harbour to reference local resources in a web-accessible format. */



function DOSPath2Web( input )  
    local result := ""
    local cbase_url := ""
    local chtdocspath := LOWER( ALLTRIM( AP_GetEnv( "DOCUMENT_ROOT" ) ))
   
    if AP_GetEnv( "HTTPS" )  = "on"
        cbase_url := "https://"
    endif
    cbase_url += AP_HeadersIn()["Host"]
   
    if RIGHT( chtdocspath, 1) = '/'
        chtdocspath := left( chtdocspath , ( len(chtdocspath) - 1) )
    endif
   
    input :=  STRTRAN( input, '', '/' )
    result := STRTRAN( (input), (chtdocspath), cbase_url )
   
return ( result )


********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6312
Joined: Fri Oct 07, 2005 7:07 pm

Re: TCWeb - filemanager with mod harbour

Postby Otto » Thu Jan 04, 2024 10:57 am

Hello Philippe,

I code the screens. Mostly now with the help of ChatGPT.

What I use is Bootstrap 5 and still jQuery. I really try not to include any further libraries.
___________________________________________________
*** mod harbour - and HTML/JS - Bootstrap and jQuery ***
Everything else will only cause problems in the future.
__________________________________________________

With the preprocessor and patcher (HARBOURINO), I of course have a good framework.

Here, without knowing ChatGPT, I was lucky. It is optimal for collaboration with ChatGPT.
My program is modular, so I can easily pass parts to ChatGPT and get help.
Nevertheless, in the end, I have the original HTML code.

How far have you already delved into online programming?

Kind regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6312
Joined: Fri Oct 07, 2005 7:07 pm

Re: TCWeb - filemanager with mod harbour

Postby Otto » Thu Jan 04, 2024 11:16 am

Hello Philippe,

From HTML to Mod_Harbour
https://mybergland.com/fwforum/part1.mp4

Overview: Harbourino
https://mybergland.com/fwforum/managerchat3.mp4


Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6312
Joined: Fri Oct 07, 2005 7:07 pm

Re: TCWeb - filemanager with mod harbour

Postby Otto » Sat Apr 27, 2024 10:01 am

New function " move - copy " ready

Image
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6312
Joined: Fri Oct 07, 2005 7:07 pm

Re: TCWeb - filemanager with mod harbour

Postby Otto » Thu Jul 04, 2024 10:12 am

Hello friends,
new function: sorting table
Best regards,
Otto

Image
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6312
Joined: Fri Oct 07, 2005 7:07 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 89 guests