Changeset 1408 for trunk

Timestamp:

Mar 16, 2009, 6:58:20 PM (17 years ago)

Author:

John Small

Message:

CFGMGR.CMD: Changed to copy old dircnr state keys to new names

File:

• trunk/cfgmgr.cmd (modified) (3 diffs)

trunk/cfgmgr.cmd

@@ -3 +3 @@
 
    CFGMGR.CMD - manage installation, maintenance and deinstallation
-                                 of FM/2 configuration files
+                of FM/2 configuration files
 
    Optional Parameters:
@@ -588 +588 @@
             LastToolbar = 'CMDS.TLS'
          else
-                LastToolbar = LastToolbox
+            LastToolbar = LastToolbox
         call SysIni cfg.inifile, 'FM/3', 'LastToolbar', LastToolbar
       end
@@ -595 +595 @@
    if SysIni(cfg.inifile, 'FM/4', 'LastToolbar') = 'ERROR:' then
                 call SysIni cfg.inifile, 'FM/4', 'LastToolbar', LastToolbar
+   do /* Copy old details keys to new names */
+      /* Check for old/new version numbers first? */
+      StateNames = SysIni(cfg.inifile, 'FM/3', 'LastSetups')
+      KeyFragments = 'Dir Filter Pos Sort View'
+      NumKeyFragments = words(KeyFragments)
+      null = '00'x
+      if StateNames = 'ERROR:' then
+         StateNames = 'FM2Shutdown' || null
+      else
+         if pos('FM2Shutdown' || null, StateNames) = 0 then
+            StateNames = StateNames || 'FM2Shutdown' || null
+      do while StateNames \= ''
+         parse var StateNames StateName (null) StateNames
+         NumDirCnrs = SysIni(cfg.inifile, 'FM/3', StateName || '.NumDirsLastTime')
+         if NumDirCnrs \= 'ERROR:' then
+            do
+               NumDirCnrs = c2d(reverse(NumDirCnrs)) - 1  /* for 0 to num-1 loop */
+               do d = 0 to NumDirCnrs
+                  do f = 1 to NumKeyFragments
+                     frag = word(KeyFragments, f)
+                     OldKey = StateName || '.DirCnr' || frag || '.' || d
+                     OldKeyValue = SysIni(cfg.inifile, 'FM/3', OldKey)
+                     NewKey = StateName || '.DirCnr.' || d || '.' || frag
+                     NewKeyValue = SysIni(cfg.inifile, 'FM/3', NewKey)
+                     if (OldKeyValue \= 'ERROR:' & NewKeyValue = 'ERROR:') then
+                        rcx = SysIni(cfg.inifile, 'FM/3', NewKey, OldKeyValue)
+                  end
+               end
+            end
+      end
+   end
 return