Minor improvements to settings management

packs/Resources/dialog_about.html

@@ -46,7 +46,7 @@
 <img filename="%iconfilename%" style="width:32px;height:32px;behavior:file-icon;-icon-size:'large';"><br><br>
 <b>Syhunt &reg; %appname%</b><br><br>
 %ver%<br><br>
-Copyright &copy; 2021 Syhunt Application Security Company<br><br>
+Copyright &copy; 2022 Syhunt Application Security Company<br><br>
 URL: <a #abtlink href="#">%appurl%</a><br><br>
 Made possible by the <a #crmlink href="#">Chromium</a> project and other open source projects.<br><br>
 <hr width="100%">

packs/Resources/dialog_prefs.lua

@@ -138,6 +138,8 @@ function M:EditCustom(t)
    if self.confirmed == true then
      -- tells the browser that the settings have changed
      prefs.update()
+     -- save the new settings to the disk
+     prefs.save()
    else
      -- dialog closed or cancel clicked; keep previous settings
      prefs.load(self.backup)

packs/Resources/dialog_prefs.tis

@@ -50,11 +50,24 @@
    Sandcat.PrefsSet(cid,value);
    }
  }
+ function update_option_string(e,value) {
+   var cid = e.attributes["cid"];
+   var atype = e.attributes["type"];
+   if (cid != undefined) {
+     if (value == null) { 
+       if (atype != "number") { 
+       value = "";
+       }
+      }
+   Sandcat.Debug("Updating option "+cid+" with new value: "+value);
+   Sandcat.PrefsSet(cid,value);
+   }
+ } 
  function handle_controlevent(evt) {
   switch(evt.type)
    {
-     case Event.EDIT_VALUE_CHANGED: update_option(this,this.value); return true;
-     case Event.SELECT_SELECTION_CHANGED: update_option(this,this.value); return true;
+     case Event.EDIT_VALUE_CHANGED: update_option_string(this,this.value); return true;
+     case Event.SELECT_SELECTION_CHANGED: update_option_string(this,this.value); return true;
      case Event.BUTTON_STATE_CHANGED: update_option(this,this.value); return true;
    }
  }

packs/Resources/histview.lua

@@ -213,6 +213,11 @@ function M:ImportURLLogFileItem(list, line, fileext)
      item.url = self:MakeValidURL(line)
      self:AddURLLogItemToList(list, item)
    end
+   if fileext == '.list' then
+     item = {}
+     item.url = self:MakeValidURL(line)
+     self:AddURLLogItemToList(list, item)
+   end  
    if fileext == '.csv' then
      local csv = ctk.string.loop:new()
      csv.commatext = line

src/core/uSettings.pas

@@ -1,7 +1,7 @@
 unit uSettings;
 {
   Sandcat Settings Manager
-  Copyright (c) 2011-2014, Syhunt Informatica
+  Copyright (c) 2011-2023, Syhunt Informatica
   License: 3-clause BSD license
   See https://github.com/felipedaragon/sandcat/ for details.
 }
@@ -95,7 +95,7 @@ procedure OnbeforeCmdLine(const processType: ustring;
 implementation
 
 uses uMain, uMisc, uConst, CatChromium, CatChromiumLib, CatUI, CatTime,
-  CatStrings, CatFiles, CatHTTP;
+  CatStrings, CatFiles, CatHTTP, CatHashes;
 
 procedure OnbeforeCmdLine(const processType: ustring;
   const commandLine: ICefCommandLine);
@@ -197,12 +197,15 @@ procedure TSandcatSettings.OnbeforeCmdLineWACEF(const processType: ustring;
 end;
 
 // Returns the filename of a site preferences file. This is a JSON file that
-// can be used for storing user preferences for each specific host:port
+// can be used for storing user preferences for each specific URL
 function TSandcatSettings.GetSitePrefsFilename(const url: string): string;
+var p:TURLparts;
 begin
-  result := Format('%s [%s].json', [ExtractURLHost(url),
-    IntToStr(ExtractURLPort(url))]);
-  result := CleanFilename(result);
+  p := CrackURL(url);
+  result := Format('%s [%s]', [p.Host, inttostr(p.Port)]);
+  if (p.Path<>emptystr) and (p.path <>'/') then
+  result := result+' ['+MD5Hash(p.Path)+']';
+  result := CleanFilename(result)+'.json';
   result := GetSandcatDir(SCDIR_CONFIGSITE, true) + result;
 end;
 

src/lua/LAPI_App.pas

@@ -41,7 +41,7 @@ function app_seticonfromfile(L: plua_State): Integer; cdecl;
 implementation
 
 uses uMain, uConst, uSettings, uExtensions, CatStrings, CatListEditor, pLua,
-  uZones, LAPI, CatFiles, CatUI;
+  uZones, LAPI, CatFiles, CatUI, CatStringLoop;
 
 type
   TAppInfoType = (info_abouturl, info_cachedir, info_ceflibrary, info_configdir,
@@ -354,11 +354,12 @@ function app_showsavedialog(L: plua_State): Integer; cdecl;
   f := replacestr(f, '\\', '\');
   sd := tsavedialog.Create(SandBrowser);
   sd.InitialDir := emptystr;
-  sd.DefaultExt := lua_tostring(L, 2); // eg 'cfg'
   sd.FileName := f;
+  sd.DefaultExt := lua_tostring(L, 2); // eg 'cfg'
   sd.Options := sd.Options + [ofoverwriteprompt];
-  // showmessage(lua_tostring(L,1));
   sd.Filter := lua_tostring(L, 1);
+  sd.FilterIndex :=  GetDialogFilterIndexByExt(sd.filter,sd.DefaultExt);
+  // showmessage(lua_tostring(L,1));
   // eg filter  format: 'Sandcat Configuration File (*.xcfg)|*.xcfg'
   if sd.execute then
     lua_pushstring(L, sd.FileName)