Respond with HTML (AResponse.LoadFromFile) CSS missed
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
Middlecope · 2014-10-31 13:10

Linux - Apache - fcl-web - cgi
I made a cgi program and as response I like to show a HTML document.
Here is the Request answer procedure:
 procedure TGenees_show.geef_lijstRequest(Sender: TObject; ARequest:
TRequest;
  AResponse: TResponse; var Handled: Boolean);
begin
  AResponse.ContentType := 'text/html;charset=utf-8';
  AResponse.Contents.LoadFromFile(ExtractFilePath(ParamStr(0)) +
'public_html/tekst.html');
    Handled:= TRUE;
end;
In tekst.html I have a link to the css files (placed in the same
directory as the html)
<link rel="stylesheet" href="normalize.min.css">
        <link rel="stylesheet" href="main.css">

Unfortunately the HTML is displayed in the FieFox browser without
style.
How can I get the browser to use the stylesheet?

----------------------------------------------------------------------
Middlecope · 2014-10-31 13:34

I found an un-elegant solution by adding the stylesheets between
<style and </style> in my HTML file.
If someone knows a better solution. Please, let me know

----------------------------------------------------------------------
marcov · 2014-10-31 14:31

You don't list an url for the css, so firefox will probably do a
request to the pathof(url)+stylesheet name. if that fails, no css is
shown.

----------------------------------------------------------------------
Leledumbo · 2014-10-31 17:05

View source and click the css link, where does it go? Have you
configured the server to serve the file?

----------------------------------------------------------------------
Middlecope · 2014-10-31 18:55

Should I place 2 Aresponse in the procedure?? like:
procedure TGenees_show.geef_lijstRequest(Sender: TObject; ARequest:
TRequest;
  AResponse: TResponse; var Handled: Boolean);
begin
 AResponse.ContentType := 'text/css;charset=utf-8';
  AResponse.Contents.LoadFromFile(ExtractFilePath(ParamStr(0)) +
'public_html/main.css');
  AResponse.ContentType := 'text/html;charset=utf-8';
  AResponse.Contents.LoadFromFile(ExtractFilePath(ParamStr(0)) +
'public_html/tekst.html');
    Handled:= TRUE;
end;

----------------------------------------------------------------------
Leledumbo · 2014-11-01 03:42

Quote from: Middlecope on October 31, 2014, 07:55:28 pmShould I place
2 Aresponse in the procedure?? like:
No, you misunderstood web request - response flow. When you send a
response containing references (external css, js, image, iframe,
etc.), the browser will send another request for each of the
respective reference, recursively (well, it's possible to send a page
containing an iframe containing an iframe containing an iframe...).
You can't fix it by sending two responses at once, it's impossible
anyway, the last response you assign will always be the one getting
sent. In case of CGI, you must decide: who shall be responsible for
handling requests for those references? The web server or your CGI?
For the former, read your web server's documentation. For the latter,
you can create another request handler for those files. fcl-web has a
static file request handler in fpwebfile unit. All you have to do is
register URI-Directory pair by calling RegisterFileLocation. See
testhttp in the examples folder of fcl-web.

----------------------------------------------------------------------
Middlecope · 2014-11-03 22:01

I don't know if I am correct but I changed the following:
initialization
  RegisterHTTPModule('genees', TGenees_show);
  RegisterFileLocation('public_html',ExtractFilePath(ParamStr(0)));
end.
    
The css files are under ~cgi-bin/public_htm/css
ParamStr(1) gives "Bad error header error

Any suggestions how to use RegisterFileLocation with a good result are
welcome
Thanks in advance

----------------------------------------------------------------------
Leledumbo · 2014-11-04 11:09

Quote from: Middlecope on November 03, 2014, 11:01:55 pmI don't know
if I am correct but I changed the following:
initialization
  RegisterHTTPModule('genees', TGenees_show);
  RegisterFileLocation('public_html',ExtractFilePath(ParamStr(0)));
end.
    
The css files are under ~cgi-bin/public_htm/css
ParamStr(1) gives "Bad error header error

Any suggestions how to use RegisterFileLocation with a good result are
welcome
Thanks in advance
Does the testhttp example work? I don't suggest using relative path
through ParamStr(0) since your app may be run differently from its
location on disk, use absolute path instead. Use config file if you
want the app to be movable.

----------------------------------------------------------------------
Middlecope · 2014-11-04 13:40

The testhttp program runs. I can see the output in "terminal output"
Usage : testhttp DocumentRoot [Port]
Where
 Documentroot   location to serve files from. It is mapped to location
/files
 Port           port to listen on (default 8080)

Does it give any hint?

----------------------------------------------------------------------
Leledumbo · 2014-11-04 17:05

Quote from: Middlecope on November 04, 2014, 02:40:35 pmThe testhttp
program runs. I can see the output in "terminal output"
Usage : testhttp DocumentRoot [Port]
Where
 Documentroot   location to serve files from. It is mapped to location
/files
 Port           port to listen on (default 8080)

Does it give any hint?
Not yet, run it to serve files and access it from browser. Ensure you
can get the file you requests.

----------------------------------------------------------------------
Middlecope · 2014-11-04 20:28

I ran testhttp as a cgi in my browser this gives
malformed header from script 'testhttp': Bad header: Where
As a program testhhttp gives the same  terminal output as before.
-----
Browser is MFirefox. When I inspect the page source and the
stylesheets I see:
>Invalid action name and no default action
When I inspect the console I see:
Use of getUserData() or setUserData() is deprecated.  Use WeakMap or
element.dataset instead.
The HTML is correctly displayed if I go to file:///srv/www/cg-
bin/public_html/tekst.html
If I go to http://localhost/cgi-bin/public_html/tekst.html I see the
warning:
End of script output before headers: tekst.html
I also tried the browser Chrome with the same results
Anybody sees some light? Please, tell me.

----------------------------------------------------------------------
Leledumbo · 2014-11-05 09:06

No, testhttp is not a CGI binary. It's standalone. Run it with the
required parameters (see the usage output), then directly access in
the browser.

I assume now it works. Now you have to "fix" the call to
RegisterFileLocation. Try using hardcoded path for 2nd parameter, let
1st parameter stays 'public_html'. Note that the URL to CSS files
should be: /cgi-bin/<your cgi binary>/public_html/<css file name, or
path relative from 2nd parameter>

----------------------------------------------------------------------
Middlecope · 2014-11-05 13:21

No RegisterFileLocation did not help with the following links:
('css','/cgi-bin/public_html'); OR ('public_html','/cgi-bin/cgi1/');
etc.

----------------------------------------------------------------------
Leledumbo · 2014-11-05 15:11

Quote from: Middlecope on November 05, 2014, 02:21:55 pmNo
RegisterFileLocation did not help with the following links:
('css','/cgi-bin/public_html'); OR ('public_html','/cgi-bin/cgi1/');
etc.
Seems like you still don't get it. The 1st parameter is WEB ACTION
NAME IN THE URI, 2nd parameter is the path IN YOUR FILE SYSTEM. I
believe you don't have /cgi-bin/cgi1 or /cgi-bin/public_html
directory. So if you call
RegisterFileLocation('public','/home/user/css'); and you have
/home/user/css/somefile.css in your file system, you can access it in
the browser via: <your host, localhost if on the same computer>/cgi-
bin/<your cgi exe>/public/somefile.css.

----------------------------------------------------------------------
Middlecope · 2014-11-05 19:09

No that does not help.
Here is the code of my program CGI2

{$mode objfpc}{$H+}

interface

uses
  SysUtils, Classes, httpdefs, fpHTTP, fpWeb,fpWebFile;

type

  { TFPWebModule1 }

  TFPWebModule1 = class(TFPWebModule)
    procedure ShowRequest(Sender: TObject; ARequest: TRequest;
      AResponse: TResponse; var Handled: Boolean);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FPWebModule1: TFPWebModule1;

implementation

{$R *.lfm}

{ TFPWebModule1 }

procedure TFPWebModule1.ShowRequest(Sender: TObject; ARequest:
TRequest;
  AResponse: TResponse; var Handled: Boolean);
begin
  AResponse.ContentType := 'text/html;charset=utf-8';
AResponse.Contents.LoadFromFile(ExtractFilePath(ParamStr(0)) +
'public_html/test.html');
Handled:= TRUE;
end;

initialization
  RegisterFileLocation('public_html','/srv/www/cgi-bin/');
  RegisterHTTPModule('TFPWebModule1', TFPWebModule1);
end.  
CGI2 is in /srv/www/cgi-bin/
In /srv/www/cgi-bin/public_html are 2 files my.css and test.html
test.html:
<!DOCTYPE html>
    <head>
      <meta charset="utf-8">
        <link rel="stylesheet" href="my.css">
            </head>
    <body>
    <p>Programmers of the world unite!</p>
    </body>
</html>

my.css:
body {
    background-color: lightblue;
}
h1 {
    color: navy;
    margin-left: 20px;
}
If in FireFox the url localhost/cgi-bin/cgi2/TFPWebModule1/Show is
given I see the characters on a white field.
So the css is not used.
IF in FireFox I give as url file:///srv/www/cgi-
bin/public_html/test.html I see the file in all its glory
How can I use the css?

----------------------------------------------------------------------
Leledumbo · 2014-11-06 04:19

Code: [Select]<link rel="stylesheet" href="my.css">This does NOT link
correctly to your CSS. Use view source function of the browser and
click that CSS link. See what URL you get in the browser. Is it
localhost/cgi-bin/cgi2/public_html/my.css (THIS IS THE ONE YOU NEED)?
I bet no.

----------------------------------------------------------------------
Middlecope · 2014-11-06 13:36

With the inspector in FireFox I see the the css file. However it looks
like:
<html><head><title>cgiproject1: Module Error</title></head>
<body>
<center><hr><h1>cgiproject1: ERROR</h1><hr></center><br><br>
The application encountered the following error:<br>
<ul>
<li>Error:  <b>Invalid action name and no default action</b>
<li> Stack trace:<br> etc...
I tried everything. If I import the css from /srv/www/cgi-
bin/public_html/my.css then it works
This does not work:
<link rel="stylesheet" href="localhost/cgi-
bin/cgi2/public_html/my.css">
This also not:
<link rel="stylesheet" href="/srv/www/cgi-bin/public_html/my.css">
Believe me or try it out yourself

----------------------------------------------------------------------
Leledumbo · 2014-11-06 17:40

Quote from: Middlecope on November 06, 2014, 02:36:01 pmWith the
inspector in FireFox I see the the css file. However it looks like:
<html><head><title>cgiproject1: Module Error</title></head>
<body>
<center><hr><h1>cgiproject1: ERROR</h1><hr></center><br><br>
The application encountered the following error:<br>
<ul>
<li>Error:  <b>Invalid action name and no default action</b>
<li> Stack trace:<br> etc...
Certainly, that's what I expect.
Quote from: Middlecope on November 06, 2014, 02:36:01 pmThis does not
work:
<link rel="stylesheet" href="localhost/cgi-
bin/cgi2/public_html/my.css">
This also not:
<link rel="stylesheet" href="/srv/www/cgi-bin/public_html/my.css">
Believe me or try it out yourself
The first one should, prepend with http://, otherwise browser will
think it's relative to base URL (hover and see in the status bar
yourself). The second of course not, you can't request through a file
path (except with file:// protocol, but that only works locally), it
has to be a URL. Looks like you need to read a lot of RFCs.

----------------------------------------------------------------------
Middlecope · 2014-11-06 22:02

Dear LeleDumbo,
Thanks for your advice. In test.html I changed the following:
 <link rel="stylesheet" href="http://localhost/cgi-
bin/cgi2/public_html/my.css">
 Still I can't recognize any style in the page'
OK the second option:
<link rel="stylesheet" href="file://srv/www/cgi-
bin/public_html/my.css">
Still the color remains white as opposed to the style in my.css
About the advice to read RFC's Can you point out one that gives me a
solution to this
Simple problem?
Thanks in advance

----------------------------------------------------------------------
Leledumbo · 2014-11-07 04:07

Quote from: Middlecope on November 06, 2014, 11:02:26 pmDear
LeleDumbo,
Thanks for your advice. In test.html I changed the following:
 <link rel="stylesheet" href="http://localhost/cgi-
bin/cgi2/public_html/my.css">
 Still I can't recognize any style in the page'
Do it as previously, view source and click to see the error message.
Or just use the whole href as URL in the address bar.
NOTE: I just realized I see cgiproject1 instead of cgi2 in your
previous error message. Ensure the correct executable name.