fpweb/weblaz questions.

[BSaidus]

Hello,
Excuse my ignorance gays and try to be patient with me .
I have some questions about using weblz/fpweb as an alternative to PHP, so I appreciate some help (answers) from you.
   1. Can I use weblz/fpweb as cgi in replacement to PHP ?
   2. Having html, css, js, images (png, jpg) files all ready, Can I deserve them using cgi module ( for lighttpd http server )?

My scenario is, I have my application running in php & I want to convert it in fpc, the application consiste in ONE php(html)file that contain web form and css and js files attached to it, and after each sending data from the form, the php saves that data in json file, and when returning I display that data in the html form again.
In php I just call a function that I made to read the json file into an array then when the browser return after saving, I call this function and I assignes values to edit(s) via.

Code: PHP  [Select][+][-]

1.   <input class="input-196" type="text" name="ed_qte_tot" placeholder="Quantité totale" value="<?php echo $f_Gcfg["Qte"]["qte_tot"];?>"/>
2.  

so How to integrate that mechanism using fpweb/weblaz ??

Thank you.

   

[domasz]

https://wiki.freepascal.org/fpWeb_Tutorial

Code: Pascal  [Select][+][-]

1. Value: String
2. ...
3. with AResponse.Contents do begin
4. Add('<input class="input-196" type="text" name="ed_qte_tot" placeholder="Quantité totale" value="' + Value + '">');

or use some templating system. In PHP there is Smarty. In Smarty you write code like this:

Code: Pascal  [Select][+][-]

1. <input class="input-196" type="text" name="ed_qte_tot" placeholder="Quantité totale" value="{Value}">

Then in Lazarus you can use such files quite easily.

Code: Pascal  [Select][+][-]

1. L: TStringList;
2. Vars: TStringList;
3.  
4.  
5. Vars := TStringList.Create;
6. Vars.Add('Var1=Value1');
7. Vars.Add('Var2=Value2');
8.  
9.  
10. L := TStringList.Create;
11. L.LoadFromFile('template.htm');
12. for i:=0 to Vars.Count-1 do begin
13.   Name := Vars.Names[i];
14.   Value := Vars.Values[i];  
15.  
16.   L.Text := StringReplace('{' + Name +'}', Value, [rfReplaceAll]);
17. end;
18.  

[BSaidus]

Thanks,
But how about other files ( *.js, *.css, *.png, ... ).
In the handler, I do not think that I should send every file content separatelly 

Code: Pascal  [Select][+][-]

1. procedure TUfpweb.DataModuleRequest(Sender: TObject; ARequest: TRequest;
2.   AResponse: TResponse; var Handled: Boolean);
3. begin
4.   Handled := true;
5.   AResponse.Contents.LoadFromFile('index.html');
6. end;  
7.  

In the scenario of lighttpd, php, I just call

Code: Pascal  [Select][+][-]

1.   /host/index.php
2.  

and all associated with this resource (index.php) will be downloaded by the briwser.

[domasz]

As far as I know fpWeb is a replacement for PHP and lighttpd/Apache/nginx. So you need to reimplement what PHP does and what the www server does.

[Leledumbo]

Can I use weblz/fpweb as cgi in replacement to PHP ?

Yes

Having html, css, js, images (png, jpg) files all ready, Can I deserve them using cgi module ( for lighttpd http server )?

Yes, but you shouldn't. Delegate that to a dedicated web server instead. If you insist, see this paragraph from tips and tricks section of my above tutorial.

How to integrate that mechanism using fpweb/weblaz ??

Again, from the same tutorial on different section. I don't really suggest using FPTemplate since it's kinda ancient and not really convenient. FPC has fcl-mustache package documented here (I guess?), this one is better IMO.

[BSaidus]

Thank you for help & information.
I'll try and see.

[BSaidus]

I constat that fcl-mustache do not come for fpc3.2.2

[Leledumbo]

I constat that fcl-mustache do not come for fpc3.2.2

Yes, it's a little bit too late. 3.2.2 was released on May 2021, which already has feature frozen a couple of months before. The first commit to fcl-mustache happend in April 2021. However, the package itself compiles fine with 3.2.2, so if you have to stick with it, you can just grab the folder or even just the unit (only fpmustache.pas matters, unless you need the expression parser / dataset extension).

[BSaidus]

thanks @Leledumbo

[BSaidus]

Please help.
Given this json data

Code: Javascript  [Select][+][-]

1. {
2.   "host":{
3.     "name"     : "uc1.uccenos.net",
4.     "ip"       : "123.33.32.1",
5.     "mask"     : "222.222.222.0",
6.     "gateway"  : "123.33.23.3"
7.   }
8. }
9.  
10.  

and this template with expression

Code: Text  [Select][+][-]

1. <br/>
2. <ul>
3.   <li>hostnam : {{host.name}}   </li>
4.   <li>ip      : {{host.ip}}     </li>
5.   <li>mask    : {{host.mask}}   </li>
6.   <li>gateway : {{host.gateway}}</li>
7.  <select name="themask">
8. '
9.     <option value="111.222.333.111" {{[IF((comparetext(mask,'111.222.333.111')=0), 'selected','')]}}> 111.222.333.111 </option>
10.     <option value="222.222.222.0"     {{[IF((comparetext(mask,    '222.222.222.0')=0), 'selected','')]}}> 222.222.222.0   </option>  
11.     <option value="333.222.333.111" {{[IF((comparetext(mask,'333.222.333.111')=0), 'selected','')]}}> 333.222.333.111 </option>
12.  
13. </select>
14.  

I have tried all combinaisons but do not work

Code: Text  [Select][+][-]

1.  // Combinaisons tried
2.  
3. <option value="222.222.222.0"     {{[IF(comparetext(mask,    '222.222.222.0')=0, 'selected','')]}}> 222.222.222.0   </option>  
4. <option value="222.222.222.0"     {{[IF(comparetext(mask,    '222.222.222.0')=0, 'selected','')]}}> 222.222.222.0   </option>  
5. <option value="222.222.222.0"     {{[IF(mask='222.222.222.0', 'selected','')]}}> 222.222.222.0   </option>  
6.  
7.  

the lazarus code is :

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3.   //fpMus := TMustache.Create(Self);
4.   fpMusEx := TMustacheExpr.Create(Self);
5.   fpMusEx.RegisterVariables(mmJson.Text, 'host');     // mmJson = memo that containe the json data
6. end;
7.  
8. procedure TForm1.Button1Click(Sender: TObject);
9. begin
10.   fpMusEx.Template := mmTemp.Text;                       // mmTemp = memo that containe template data.
11.   mmRes.Text := fpMusEx.Render(mmJson.Text);
12. end;
13.  

Heeeeeelp please.

[BSaidus]

I think there is a bug in the fpc-mustache packege.
try this attached exemple.

fpc 322 & lazarus 2.6