Diff for /mozptch/datamodul.pas between versions 1.9 and 1.10

version 1.9, 2004/10/29 14:18:18 version 1.10, 2006/03/22 11:29:12
Line 9 Line 9
 # ========  # ========
 #  #
 # $Log$  # $Log$
   # Revision 1.10  2006/03/22 11:29:12  oertel
   # bug fix: patching the pref.js new lines where inserted before the last line instead to be appended
   #
 # Revision 1.9  2004/10/29 14:18:18  oertel  # Revision 1.9  2004/10/29 14:18:18  oertel
 # win ver 9.30.2  # win ver 9.30.2
 # Bugfix: hupsi: check_for_imapfolders still used sHost. Changed to sIncomingServer  # Bugfix: hupsi: check_for_imapfolders still used sHost. Changed to sIncomingServer
Line 97  const  Line 100  const 
  do_sendmail_check:Boolean = true;   do_sendmail_check:Boolean = true;
   
  loggingToFile:Boolean = true;   loggingToFile:Boolean = true;
 // Directory fr prefs.js von Mozilla im Heimatverzeichnis  // Directory fr prefs.js von Mozilla im Heimatverzeichnis
  (*   (*
  MOZMAILDIR='mozmail';   MOZMAILDIR='mozmail';
  MOZMAILSUBDIR='default';   MOZMAILSUBDIR='default';
Line 557  begin  Line 560  begin 
   
   (*    (*
   
  // test ob mozilla luft......   // test ob mozilla luft......
   if IsFileActive('mozilla.exe') then    if IsFileActive('mozilla.exe') then
   begin    begin
    writelog('Mozilla aktiv....Fragen was zu tun ist');     writelog('Mozilla aktiv....Fragen was zu tun ist');
    if MessageBox(0, PointerAufString('Achtung: Mozilla ist aktiv'+#10#13+     if MessageBox(0, PointerAufString('Achtung: Mozilla ist aktiv'+#10#13+
               'Mindestens eine Instanz von Mozilla ist aktiv (Schnellstart ?)'+#10#13+                'Mindestens eine Instanz von Mozilla ist aktiv (Schnellstart ?)'+#10#13+
              'Mozilla mu vollstndig beendet sein.'+#10#13+               'Mozilla mu vollstndig beendet sein.'+#10#13+
               'Klicken Sie Ok um Mozilla durch dieses Programm zu beenden.'+#10#13+                'Klicken Sie Ok um Mozilla durch dieses Programm zu beenden.'+#10#13+
               'Klicken Sie Abbrechen um weiter zu machen, wenn Sie Mozilla selbst beendet haben.'),                'Klicken Sie Abbrechen um weiter zu machen, wenn Sie Mozilla selbst beendet haben.'),
               'ACHTUNG!', MB_OKCANCEL) = IDOK then                'ACHTUNG!', MB_OKCANCEL) = IDOK then
Line 575  begin  Line 578  begin 
    end     end
    else     else
     writelog('Mozilla wird nicht (!!) automatisch beendet....');      writelog('Mozilla wird nicht (!!) automatisch beendet....');
   // wiederholungs prfung......    // wiederholungs prfung......
    if IsFileActive('mozilla.exe') then     if IsFileActive('mozilla.exe') then
    begin     begin
     writelog('Mozilla immer noch aktiv....Programm-Abbruch');      writelog('Mozilla immer noch aktiv....Programm-Abbruch');
     MessageBox(0, PointerAufString('Achtung: Mozilla ist immer noch aktiv'+#10#13+      MessageBox(0, PointerAufString('Achtung: Mozilla ist immer noch aktiv'+#10#13+
                'Mindestens eine Instanz von Mozilla ist aktiv (Schnellstart ?)'+#10#13+                 'Mindestens eine Instanz von Mozilla ist aktiv (Schnellstart ?)'+#10#13+
               'Mozilla mu zur Maileinrichtung vollstndig beendet sein.'+#10#13+                'Mozilla mu zur Maileinrichtung vollstndig beendet sein.'+#10#13+
                'Dieses Programm wird jetzt beendet.'+#10#13+                 'Dieses Programm wird jetzt beendet.'+#10#13+
                'Falls Sie sich an die Hotline wenden, geben Sie Datei c:\tmp\maileinr.log mit'),                 'Falls Sie sich an die Hotline wenden, geben Sie Datei c:\tmp\maileinr.log mit'),
                'ACHTUNG!', MB_OK);                 'ACHTUNG!', MB_OK);
Line 723  begin  Line 726  begin 
   regdat :='/'+mozregname;    regdat :='/'+mozregname;
  {$ENDIF}   {$ENDIF}
   
// evtl. alte registry.dat lschen // evtl. alte registry.dat lschen
  if FileExists(localMozAppdataDir+regdat) then   if FileExists(localMozAppdataDir+regdat) then
  begin   begin
   writelog(getMsg('old_regystry_found_will_del'));    writelog(getMsg('old_regystry_found_will_del'));
Line 732  begin  Line 735  begin 
  end   end
  else writelog(getMsg('no_old_registry_found'));   else writelog(getMsg('no_old_registry_found'));
   
 // evtl. alte pluginreg.dat lschen  // evtl. alte pluginreg.dat lschen
  if FileExists(localMozAppdataDir+pluginregdat) then   if FileExists(localMozAppdataDir+pluginregdat) then
  begin   begin
   writelog(getMsg('old_pluginreg_found_will_del'));    writelog(getMsg('old_pluginreg_found_will_del'));
Line 877  begin  Line 880  begin 
                [mozprofparentdir, mozmaildir, mozmailsubdir, mozsltdir]));                 [mozprofparentdir, mozmaildir, mozmailsubdir, mozsltdir]));
       result := mozprofparentdir +PS+ mozmaildir+PS+mozmailsubdir+PS+mozsltdir;        result := mozprofparentdir +PS+ mozmaildir+PS+mozmailsubdir+PS+mozsltdir;
   
      // Fhrende Leerzeilen in prefs.js lschen....       // Fhrende Leerzeilen in prefs.js lschen....
       // deleting empty lines at the beginning of prefs.js....        // deleting empty lines at the beginning of prefs.js....
       writelog(Format(getMsg('cleaning_prefjs_in'),        writelog(Format(getMsg('cleaning_prefjs_in'),
           [mozprofparentdir, mozmaildir, mozmailsubdir, mozsltdir]));            [mozprofparentdir, mozmaildir, mozmailsubdir, mozsltdir]));
Line 1304  begin  Line 1307  begin 
     resultstr := 'mozptch_ini_variable_error';      resultstr := 'mozptch_ini_variable_error';
     (*      (*
     getVariableValue := resolve_variables(resultstr,false);      getVariableValue := resolve_variables(resultstr,false);
    writelog('Variable '+name+' ber '+howtofind+' gesetzt auf den wert: '+resultstr);     writelog('Variable '+name+' ber '+howtofind+' gesetzt auf den wert: '+resultstr);
     *)      *)
     exit;      exit;
    end;     end;
Line 1436  begin  Line 1439  begin 
    writelog(Format(getMsg('file_backuped'), [NameOfPrefFile]));     writelog(Format(getMsg('file_backuped'), [NameOfPrefFile]));
    TempPrefFile := TPrefFile.Create(NameOfPrefFile);     TempPrefFile := TPrefFile.Create(NameOfPrefFile);
    (*************************************************************************)     (*************************************************************************)
   ///Hier kommen die sachen die unabhngig von pop/imap/internet sind    ///Hier kommen die sachen die unabhngig von pop/imap/internet sind
    (**************************************************************************)     (**************************************************************************)
     patchPrefFromIni(TempPrefFile,      patchPrefFromIni(TempPrefFile,
                            mozptchIniFileName,                             mozptchIniFileName,
                            'general_prefjs_entries');                             'general_prefjs_entries');
   
   //// ab hier abhngiges von pop, imap, internet    //// ab hier abhngiges von pop, imap, internet
    if KindOfMail = 'POP' then     if KindOfMail = 'POP' then
     begin      begin
   
Line 1451  begin  Line 1454  begin 
                            'pop_perfjs_entries');                             'pop_perfjs_entries');
     end;      end;
   
    (* fr IMAP ver 9.18 detlef oertel 15.6.01 *)     (* fr IMAP ver 9.18 detlef oertel 15.6.01 *)
     if KindOfMail = 'IMAP' then      if KindOfMail = 'IMAP' then
     begin      begin
      patchPrefFromIni(TempPrefFile,       patchPrefFromIni(TempPrefFile,
Line 1505  begin  Line 1508  begin 
    // dateien reinkopieren z.B. user.js     // dateien reinkopieren z.B. user.js
    writelog('kopiere Dateien aus '+copy_to_profile_from+'....');     writelog('kopiere Dateien aus '+copy_to_profile_from+'....');
    if not AllCopy(copy_to_profile_from+PS,completeMozDir,     if not AllCopy(copy_to_profile_from+PS,completeMozDir,
     cpCreateEmptySubdirectories + cpRecursive { Rupert Rder 3.9.2002, vorher 99 },      cpCreateEmptySubdirectories + cpRecursive { Rupert Rder 3.9.2002, vorher 99 },
      true,false,Fehler) then       true,false,Fehler) then
    begin     begin
     writelog(Format(getMsg('error_copying_files_from'),[copy_to_profile_from]));      writelog(Format(getMsg('error_copying_files_from'),[copy_to_profile_from]));
Line 1578  begin  Line 1581  begin 
  if patchPrefs then   if patchPrefs then
  begin   begin
   writelog(getMsg('patching_prefsjs_with_mode_IMAP'));    writelog(getMsg('patching_prefsjs_with_mode_IMAP'));
  //Pref-Dateien ndern   //Pref-Dateien ndern
   if UpdatePrefs('IMAP') = False then    if UpdatePrefs('IMAP') = False then
   begin    begin
    writelog(getMsg('patching_file_failed'));     writelog(getMsg('patching_file_failed'));
Line 1593  begin  Line 1596  begin 
  // Here special code for hupsi   // Here special code for hupsi
  if checkuser_imap_folder then   if checkuser_imap_folder then
  begin   begin
  //INBOX anlegen  ber homes-share wg. GROSSBUCHSTABEN (home-share wandelt 8.3 nach klein)   //INBOX anlegen  ber homes-share wg. GROSSBUCHSTABEN (home-share wandelt 8.3 nach klein)
   if not FileExists('\\'+sIncomingServer+PS+sUname+'\INBOX') then    if not FileExists('\\'+sIncomingServer+PS+sUname+'\INBOX') then
   begin    begin
    if FileCopy('p:\mail\empty.mbx', '\\'+sIncomingServer+PS+sUname+'\INBOX',     if FileCopy('p:\mail\empty.mbx', '\\'+sIncomingServer+PS+sUname+'\INBOX',
Line 1613  begin  Line 1616  begin 
     {$ENDIF}      {$ENDIF}
     if intFehler <> 0 then      if intFehler <> 0 then
     begin      begin
     writelog('Setzen der Schreibrechte fr INBOX schlug fehl: FehlerNr: '+IntTostr(intFehler));      writelog('Setzen der Schreibrechte fr INBOX schlug fehl: FehlerNr: '+IntTostr(intFehler));
     end;      end;
    writelog('Attribute fr INBOX gesetzt.');     writelog('Attribute fr INBOX gesetzt.');
    end;     end;
   end    end
   else writelog(sHome+'\INBOX existiert. OK');    else writelog(sHome+'\INBOX existiert. OK');
Line 1650  begin  Line 1653  begin 
      {$ENDIF}       {$ENDIF}
      if intFehler <> 0 then       if intFehler <> 0 then
      begin       begin
      writelog('Setzen der Schreibrechte fr .imap\gesendet schlug fehl: FehlerNr: '+IntTostr(intFehler));       writelog('Setzen der Schreibrechte fr .imap\gesendet schlug fehl: FehlerNr: '+IntTostr(intFehler));
      end;       end;
     writelog('Attribute fr .imap\gesendet gesetzt.');      writelog('Attribute fr .imap\gesendet gesetzt.');
     end;      end;
    if not FileExists('\\'+sIncomingServer+'\'+sUname+'\.imap\Entwuerfe') then     if not FileExists('\\'+sIncomingServer+'\'+sUname+'\.imap\Entwuerfe') then
     if FileCopy('p:\mail\empty.mbx', '\\'+sIncomingServer+PS+sUname+'\.imap\Entwuerfe',      if FileCopy('p:\mail\empty.mbx', '\\'+sIncomingServer+PS+sUname+'\.imap\Entwuerfe',
Line 1672  begin  Line 1675  begin 
      {$ENDIF}       {$ENDIF}
      if intFehler <> 0 then       if intFehler <> 0 then
      begin       begin
      writelog('Setzen der Schreibrechte fr .imap\Entwuerfe schlug fehl: FehlerNr: '+IntTostr(intFehler));       writelog('Setzen der Schreibrechte fr .imap\Entwuerfe schlug fehl: FehlerNr: '+IntTostr(intFehler));
      end;       end;
     writelog('Attribute fr .imap\Entwuerfe gesetzt.');      writelog('Attribute fr .imap\Entwuerfe gesetzt.');
     end;      end;
   
    if not FileExists('\\'+sIncomingServer+'\'+sUname+'\.imap\Vorlagen') then     if not FileExists('\\'+sIncomingServer+'\'+sUname+'\.imap\Vorlagen') then
Line 1695  begin  Line 1698  begin 
      {$ENDIF}       {$ENDIF}
      if intFehler <> 0 then       if intFehler <> 0 then
      begin       begin
      writelog('Setzen der Schreibrechte fr .imap\Vorlagen schlug fehl: FehlerNr: '+IntTostr(intFehler));       writelog('Setzen der Schreibrechte fr .imap\Vorlagen schlug fehl: FehlerNr: '+IntTostr(intFehler));
       exit;        exit;
      end;       end;
     writelog('Attribute fr .imap\Vorlagen gesetzt.');      writelog('Attribute fr .imap\Vorlagen gesetzt.');
     end;      end;
   
   end; // ende in /.imap    end; // ende in /.imap
Line 1830  var  Line 1833  var 
   tmpString : String;    tmpString : String;
 begin  begin
  interactive := true;  // normaly interactive   interactive := true;  // normaly interactive
 // Callback fr xmlpatch logger  // Callback fr xmlpatch logger
  setLogProcedure(logwrapper);   setLogProcedure(logwrapper);
  // Logfile erffnen   // Logfile erffnen
   {$IFDEF MSWINDOWS}    {$IFDEF MSWINDOWS}
   if DirectoryExists('c:\tmp') then    if DirectoryExists('c:\tmp') then
    logfilename := 'c:\tmp\maileinr.log'     logfilename := 'c:\tmp\maileinr.log'
Line 1854  begin  Line 1857  begin 
   chooseMessageLang;    chooseMessageLang;
   writelog(getMsg('langselect'));    writelog(getMsg('langselect'));
   
 // mozptchini als parameter bergeben ?  // mozptchini als parameter bergeben ?
  mozptchiniFileName := ExtractFilePath(Application.ExeName)   mozptchiniFileName := ExtractFilePath(Application.ExeName)
                            + MOZPTCHINICONST;                             + MOZPTCHINICONST;
  if (paramcount > 0)then   if (paramcount > 0)then

Removed from v.1.9  
changed lines
  Added in v.1.10


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>