Diff for /mozptch/datamodul.pas between versions 1.3 and 1.4

version 1.3, 2004/04/07 18:34:55 version 1.4, 2004/04/16 16:52:52
Line 9 Line 9
 # ========  # ========
 #  #
 # $Log$  # $Log$
   # Revision 1.4  2004/04/16 16:52:52  oertel
   # src: terminated with multi language interface: (nearly)all messeges now in mozptch.msg
   # www: spelling correction, multilanguage interface
   # bin: new binary with message file
   #
 # Revision 1.3  2004/04/07 18:34:55  oertel  # Revision 1.3  2004/04/07 18:34:55  oertel
 # src: continued with multi language interface  # src: continued with multi language interface
 #  #
Line 43  type  Line 48  type 
     procedure TcpSockeStatus(Sender: TComponent; Status: String);      procedure TcpSockeStatus(Sender: TComponent; Status: String);
     procedure DataModuleCreate(Sender: TObject);      procedure DataModuleCreate(Sender: TObject);
   
    procedure Intranetmail(patchPrefs : boolean);     procedure doConfig(patchPrefs : boolean);
     function UpdatePrefs(KindOfMail : string):Boolean;      function UpdatePrefs(KindOfMail : string):Boolean;
     procedure logwrapper(level : integer; str:string);      procedure logwrapper(level : integer; str:string);
   private    private
Line 229  begin  Line 234  begin 
  tmpstr := mozptchmsg.ReadString('messages'   tmpstr := mozptchmsg.ReadString('messages'
                                  ,key+'_'+syslang                                   ,key+'_'+syslang
                                  ,'Message not found');                                   ,'Message not found');
    // try it in english if message not found
    if comparestr(tmpstr,'Message not found') = 0 then
     tmpstr := mozptchmsg.ReadString('messages'
                                    ,key+'_en'
                                    ,'Message not found');
  getMsg := AnsiReplaceStr(tmpstr,'\n',#10#13);   getMsg := AnsiReplaceStr(tmpstr,'\n',#10#13);
 end;  end;
   
Line 1033  begin  Line 1043  begin 
         (progname = 'error') or          (progname = 'error') or
         (extension = 'error')) then          (extension = 'error')) then
     begin      begin
     writelog('Angaben für Installation Helperapplikation: '+tempStrings.Names[i]      writelog(Format(getMsg('uncomplete_or_wrong_install_information_about_application')
              +' unvollständig oder fehlerhaft');                         ,[tempStrings.Names[i]]));
     end      end
     else      else
     begin      begin
     writelog('füge mimetypehandler ein....');      writelog(getMsg('adding_mimetype_handler'));
      addMimeHandler(mimetype,progpath,progname,extension);       addMimeHandler(mimetype,progpath,progname,extension);
     writelog('mimetypehandler eingefügt.');      writelog(getMsg('mimetypehandler_added'));
     end;      end;
    end;     end;
    if mozptchini.SectionExists('deinstall-'+tempStrings.Names[i]) then     if mozptchini.SectionExists('deinstall-'+tempStrings.Names[i]) then
Line 1050  begin  Line 1060  begin 
     writelog('deinstall: mimetype: '+mimetype);      writelog('deinstall: mimetype: '+mimetype);
     if (mimetype = 'error') then      if (mimetype = 'error') then
     begin      begin
     writelog('Angaben für Deinstallation Helperapplikation: '+tempStrings.Names[i]      writelog(Format(getMsg('uncomplete_or_wrong_deinstall_information_about_application'),
              +' unvollständig oder fehlerhaft');                            [tempStrings.Names[i]]));
     end      end
     else      else
     begin      begin
     writelog('lösche mimetypehandler ....');      writelog(getMsg('deleting_mimetypehandler'));
      delMimeHandler(mimetype);       delMimeHandler(mimetype);
     writelog('mimetypehandler gelöscht.');      writelog(getMsg('mimetypehandler_deleted'));
     end;      end;
    end;     end;
   end;    end;
Line 1086  begin  Line 1096  begin 
    NameOfPrefFile := completemozdir +'\prefs.js';     NameOfPrefFile := completemozdir +'\prefs.js';
    if not FileExists(NameOfPrefFile) then     if not FileExists(NameOfPrefFile) then
    begin     begin
    writelog('Datei ' + NameOfPrefFile +' existiert nicht - wird angelegt...');     writelog(Format(getMsg('file_does_not_exist_will_be_created'),
                               [NameOfPrefFile]));
     AssignFile(k,NameOfPrefFile);      AssignFile(k,NameOfPrefFile);
     Rewrite(k);      Rewrite(k);
     writeln(k,'# Mozilla User Preferences');      writeln(k,'# Mozilla User Preferences');
Line 1095  begin  Line 1106  begin 
    end;     end;
    if not FileExists(NameOfPrefFile) then     if not FileExists(NameOfPrefFile) then
    begin     begin
    writelog('Datei ' + NameOfPrefFile +' existiert nicht.');     writelog(Format(getMsg('file_does_not_exist'),[NameOfPrefFile]));
     exit;      exit;
    end;     end;
   writelog('Sicherungskopie von '+NameOfPrefFile+' anlegen...');    writelog(Format(getMsg('backing_up_file'),[NameOfPrefFile]));
    DecodeDateTime(now,AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);     DecodeDateTime(now,AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
    if not FileCopy(NameOfPrefFile,     if not FileCopy(NameOfPrefFile,
                    NameOfPrefFile+'_'                     NameOfPrefFile+'_'
Line 1109  begin  Line 1120  begin 
                    +IntToStr(AMinute),                     +IntToStr(AMinute),
                    true,true,problem) then                     true,true,problem) then
    begin     begin
    writelog('Beim anlegen der Sicherheitskopie von '+NameOfPrefFile     writelog(Format(getMsg('error_backing_up_file'),[NameOfPrefFile,problem]));
              +' Fehler aufgetreten : '     exit;
              +problem);  
              exit;  
    end;     end;
   writelog('Sicherheitskopie von '+NameOfPrefFile+' angelegt');    writelog(Format(getMsg('file_backuped'), [NameOfPrefFile]));
    TempPrefFile := TPrefFile.Create(NameOfPrefFile);     TempPrefFile := TPrefFile.Create(NameOfPrefFile);
    (*************************************************************************)     (*************************************************************************)
    ///Hier kommen die sachen die unabhängig von pop/imap/internet sind     ///Hier kommen die sachen die unabhängig von pop/imap/internet sind
Line 1124  begin  Line 1133  begin 
                            'general_prefjs_entries');                             'general_prefjs_entries');
   
    //// ab hier abhängiges von pop, imap, internet     //// ab hier abhängiges von pop, imap, internet
   if KindOfMail = 'IntranetPOP' then    if KindOfMail = 'POP' then
     begin      begin
    (*
      if FAnzName.modalResult =  mrCancel then  
       sIdentity := sUname//;  
      else  
       sIdentity := FAnzName.newUname.text;  
       *)  
       patchPrefFromIni(TempPrefFile,        patchPrefFromIni(TempPrefFile,
                            mozptchIniFileName,                             mozptchIniFileName,
                            'pop_perfjs_entries');                             'pop_perfjs_entries');
      (*
      (*Anzeigenamen selbst wählen, z.B. Dr. XY statt des Uname a19-5, hinzugefügt Annette Schmidt, 7.4.2000*)       //Anzeigenamen selbst wählen, z.B. Dr. XY statt des Uname a19-5, hinzugefügt Annette Schmidt, 7.4.2000
       FAnzName.newUname.text := sUname;        FAnzName.newUname.text := sUname;
       FAnzName.showModal;        FAnzName.showModal;
   
Line 1145  begin  Line 1149  begin 
       TempPrefFile.AddPrefLine('user_pref("network.hosts.smtp_server", "'+ sHost +'");');        TempPrefFile.AddPrefLine('user_pref("network.hosts.smtp_server", "'+ sHost +'");');
   
       TempPrefFile.AddPrefLine('user_pref("mail.check_new_mail", true);');        TempPrefFile.AddPrefLine('user_pref("mail.check_new_mail", true);');
      (* auskommentiert A. Schmidt, 23.3.2000       // auskommentiert A. Schmidt, 23.3.2000
      TempPrefFile.AddPrefLine('user_pref("mail.check_time", 1);');*)       //TempPrefFile.AddPrefLine('user_pref("mail.check_time", 1);');
      (* weitere Zeile A. Schmidt, 9.9.99 *)       //weitere Zeile A. Schmidt, 9.9.99
       TempPrefFile.AddPrefLine('user_pref("mail.addr_book.lastnamefirst", true);');        TempPrefFile.AddPrefLine('user_pref("mail.addr_book.lastnamefirst", true);');
      (*Bereits eingerichtete Internetmail erhalten*)       //Bereits eingerichtete Internetmail erhalten
       // Angepasst für mozilla - detlef 28.11.02        // Angepasst für mozilla - detlef 28.11.02
      //if FileExists(sHome + '\mail\interinf.txt') and (FNetsPtch.CheckBoxInternet.Checked = False ) then       // This is a very custom specific part....
       if FileExists(completemozdir+'\interinf.txt') then        if FileExists(completemozdir+'\interinf.txt') then
          begin           begin
             if Messagebox(0, 'Für den aktuellen Benutzer wurde bereits eine Internetmail-Einrichtung durchgeführt.'+              if Messagebox(0, 'Für den aktuellen Benutzer wurde bereits eine Internetmail-Einrichtung durchgeführt.'+
Line 1172  begin  Line 1176  begin 
                 end;                  end;
               end;                end;
          end;           end;
     *)
     end;      end;
     (* für IMAP ver 9.18 detlef oertel 15.6.01 *)      (* für IMAP ver 9.18 detlef oertel 15.6.01 *)
    if KindOfMail = 'IntranetIMAP' then     if KindOfMail = 'IMAP' then
     begin      begin
     (*  
      if FAnzName.modalResult =  mrCancel then  
       sIdentity := sUname//;  
      else  
       sIdentity := FAnzName.newUname.text;  
      *)  
      patchPrefFromIni(TempPrefFile,       patchPrefFromIni(TempPrefFile,
                            mozptchIniFileName,                             mozptchIniFileName,
                            'imap_prefjs_entries');                             'imap_prefjs_entries');
   
   
      (*Bereits eingerichtete Internetmail erhalten*)  
      (*  
      if FileExists(completemozdir+'\interinf.txt') then  
      begin  
       writelog('Datei interinf.txt gefunden ......');  
       if Messagebox(0, 'Für den aktuellen Benutzer wurde bereits eine Internetmail-Einrichtung durchgeführt.'+  
          ' Sollen die Internetmail-Einstellungen beibehalten werden?',  
          'Nachfrage', MB_TASKMODAL + MB_YESNO + MB_DEFBUTTON2) = IDYES then  
       begin  
        assignfile (k, completemozdir+'\interinf.txt');  
        try  
         writelog('Lese internetmailadresse aus Datei interinf.txt');  
         reset (k);  
         readln(k, TempInternetAddress);  
         // Mail & Newsgroups Accounteinstellungen/Accounteinstellungen/Rückantwortadresse  
         TempPrefFile.AddPrefLine('user_pref("mail.identity.id1.reply_to", "' + TempInternetAddress + '")');  
         // Mail & Newsgroups Accounteinstellungen/Accounteinstellungen/E-Mail Adresse  
         TempPrefFile.AddPrefLine('user_pref("mail.identity.id1.useremail", "' + TempInternetAddress + '")');  
         closefile (k);  
         writelog('internetmailadresse aus Datei interinf.txt gelesen und eigetragen');  
        except  
         writelog('Fehler beim lesen der internetmailadresse aus Datei interinf.txt');  
         closefile(k);  
        end;  
       end;  
      end;  
      *)  
     end; // ende IMAP      end; // ende IMAP
      TempPrefFile.UpdateFile;       TempPrefFile.UpdateFile;
      if TempPrefFile.success = false then       if TempPrefFile.success = false then
Line 1229  end;  Line 1200  end; 
   
   
   
procedure Tdatamodule1.Intranetmail(patchPrefs : boolean); procedure Tdatamodule1.doConfig(patchPrefs : boolean);
 var  var
   Fehler : string;    Fehler : string;
   problem : string;    problem : string;
   AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word;    AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word;
 begin  begin
  killmozilla;   killmozilla;
 writelog('Beginn Einrichtung Intranetmail....');  writelog(getMsg('start_procedure_doConfig'));
  Fehler := '';   Fehler := '';
   
   
  (* für IMAP ver 9.18 detlef oertel 15.6.01 *)  
  //POP  
  (*  
  if FNetsptch.RadioGroupReadProtokoll.ItemIndex = 1 then //POP  
  begin  
   // altes Profil finden bzw. neues erstellen  
   completeMozDir := datamodul.findOrCreateMozProf;  
   // imap marker und prefs.js löschen - detlef  
    if DirectoryExists(completeMozDir+'\\ich_bin_imapuser') then  
    begin  
     try  
      rmDir (completemozdir+'\ich_bin_imapuser');  
      writelog(completemozdir+'\ich_bin_imapuser gelöscht');  
      AllDelete(completemozdir+'\prefs.js',false,true,Fehler);  
      writelog(completemozdir+'\prefs.js gelöscht');  
     except  
      writelog('Verzeichnis '+completemozdir+'\ich_bin_imapuser bzw prefs.js konnte nicht gelöscht werden.'+Fehler);  
     end;  
    end  
    else writelog(completemozdir+'\ich_bin_imapuser   existiert nicht. OK');  
   
   if patchPrefs then  
   begin  
    //Pref-Dateien ändern  
    if UpdatePrefs('IntranetPOP') = False then  
    begin  
     writelog('Update der Präferenzendatei schlug fehl.'); exit;  
    end;  
   end;  
  end;  
  *)  
   
  //IMAP   //IMAP
  //if FNetsptch.RadioGroupReadProtokoll.ItemIndex = 0 then //IMAP   //if FNetsptch.RadioGroupReadProtokoll.ItemIndex = 0 then //IMAP
  if true then   if true then
  begin   begin
  // altes Profil finden bzw. neues erstellen   // find old profile or create new....
  writelog('imap soll eingerichtet werden.....');   //writelog('imap soll eingerichtet werden.....');
   localMozAppdataDir := getAppdataDir+'\mozilla';    localMozAppdataDir := getAppdataDir+'\mozilla';
  writelog('localMozAppdataDir ist '+localMozAppdataDir);   writelog('localMozAppdataDir is '+localMozAppdataDir);
   completeMozDir := findOrCreateMozProf;    completeMozDir := findOrCreateMozProf;
  writelog('completeMozDir ist '+completeMozDir);   writelog('completeMozDir is '+completeMozDir);
   
   if copy_to_profile_from <> 'no' then    if copy_to_profile_from <> 'no' then
    if not DirectoryExists(copy_to_profile_from) then     if not DirectoryExists(copy_to_profile_from) then
    begin     begin
    writelog('Fehler: Quellverzeichnis zum kopieren: '     writelog(Format(getMsg('dir_to_copy_from_not_found'),[copy_to_profile_from]));
             +copy_to_profile_from+' nicht gefunden');  
    end     end
    else     else
    begin     begin
Line 1297  begin  Line 1236  begin 
       cpCreateEmptySubdirectories + cpRecursive { Rupert Röder 3.9.2002, vorher 99 },        cpCreateEmptySubdirectories + cpRecursive { Rupert Röder 3.9.2002, vorher 99 },
       true,false,Fehler) then        true,false,Fehler) then
     begin      begin
     writelog('Fehler beim Kopieren der Dateien aus: '+copy_to_profile_from);      writelog(Format(getMsg('error_copying_files_from'),[copy_to_profile_from]));
      exit;       exit;
     end;      end;
    writelog('kopieren aus '+copy_to_profile_from+'....beendet');     writelog(Format(getMsg('copy_from_succeed'),[copy_to_profile_from]));
    end; //copy_to_profile_from     end; //copy_to_profile_from
   
   writelog('gibt es mimetypes.rdf.....');    writelog('gibt es mimetypes.rdf.....');
   if not FileExists(completeMozDir+'\mimetypes.rdf') then    if not FileExists(completeMozDir+'\mimetypes.rdf') then
   begin    begin
   writelog('Keine mimetypes.rdf gefunden.'    writelog(getMsg('no_mimetypes_rdf_try_template'));
                    +' Versuche mimetypes.tmpl umzukopieren...');  
    if not FileCopy(completeMozDir+'\mimetypes.tmpl',     if not FileCopy(completeMozDir+'\mimetypes.tmpl',
                    completeMozDir+'\mimetypes.rdf',                     completeMozDir+'\mimetypes.rdf',
                    true,true,problem) then                     true,true,problem) then
    begin     begin
    writelog('Beim umkopieren von mimetypes.tmpl nach mimetypes.rdf'     writelog(Format(getMsg('error_copying_file'),
              +' Fehler aufgetreten : '            ['mimetypes.tmpl','mimetypes.rdf',problem]));
              +problem);  
    end;     end;
   end;    end;
  writelog('gibt es mimetypes.rdf.....');   writelog(Format(getMsg('exists_file'),['mimetypes.rdf']));
   if not FileExists(completeMozDir+'\mimetypes.rdf') then    if not FileExists(completeMozDir+'\mimetypes.rdf') then
   begin    begin
   ShowMessage('Fehler: Keine mimetypes.rdf gefunden.'    ShowMessage(getMsg('no_mimetypes_rdf_terminate'));
                    +' Progamm wird abgebrochen.'    writelog(getMsg('no_mimetypes_rdf_terminate'));
                    +' Bitte wenden Sie sich an die Hotline.'  
                    +' Bitte geben Sie die Datei c:\tmp\maileinr.log mit');  
   writelog('Fehler: Keine mimetypes.rdf gefunden.'  
                    +' Progamm wird abgebrochen.'  
                    +' Bitte wenden Sie sich an die Hotline.'  
                    +' Bitte geben Sie die Datei c:\tmp\maileinr.log mit');  
    application.terminate;     application.terminate;
    exit;     exit;
   end    end
   else    else
   begin    begin
   writelog('Sicherungskopie von mimetypes.rdf anlegen...');    writelog(Format(getMsg('backing_up_file'),['mimetypes.rdf']));
    DecodeDateTime(now,AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);     DecodeDateTime(now,AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
    if not FileCopy(completeMozDir+'\mimetypes.rdf',     if not FileCopy(completeMozDir+'\mimetypes.rdf',
                    completeMozDir+'\mimetypes.rdf'+'_'                     completeMozDir+'\mimetypes.rdf'+'_'
Line 1344  begin  Line 1275  begin 
                    +IntToStr(AMinute),                     +IntToStr(AMinute),
                    true,true,problem) then                     true,true,problem) then
    begin     begin
    writelog('Beim anlegen der Sicherheitskopie von mimetypes.rdf'     writelog(Format(getMsg('backing_up_file'),['mimetypes.rdf',problem]));
              +' Fehler aufgetreten : '     exit;
              +problem);  
              exit;  
    end;     end;
   writelog('Sicherheitskopie von mimetypes.rdf angelegt');    writelog(Format(getMsg('file_backuped'),['mimetypes.rdf']));
    //sysutils.DeleteFile(completeMozDir+'\mimetypes.rdf');     //sysutils.DeleteFile(completeMozDir+'\mimetypes.rdf');
   writelog('Editiere mimetypes.rdf........');    writelog(Format(getMsg('patching_file'),['mimetypes.rdf']));
    openRdfFile(completeMozDir+'\mimetypes.rdf');     openRdfFile(completeMozDir+'\mimetypes.rdf');
    setMimetypeEntriesFromMozptchIni;     setMimetypeEntriesFromMozptchIni;
    saveRdfFile(completeMozDir+'\mimetypes.rdf');     saveRdfFile(completeMozDir+'\mimetypes.rdf');
   writelog('mimetypes.rdf gespeichert.....');    writelog(Format(getMsg('file_saved'),['mimetypes.rdf']));
   end;    end;
   
   (*  
   writelog('existiert c:\Programme\netscape\private ?');  
   // Lokale Folder Einrichten die nicht als Profile gesehen werden (nicht users+sUname)  
   if not DirectoryExists('c:\Programme') then  
   begin  
    System.MkDir('c:\Programme');  
    writelog('c:\Programme angelegt...');  
   end  
   else writelog('c:\Programme existiert. OK');  
   if not DirectoryExists('c:\Programme\netscape') then  
   begin  
    System.MkDir('c:\Programme\netscape');  
    writelog('c:\Programme\netscape angelegt...');  
   end  
   else writelog('c:\Programme\netscape existiert. OK');  
   if not DirectoryExists('c:\Programme\netscape\private') then  
   begin  
    System.MkDir('c:\Programme\netscape\private');  
    writelog('c:\Programme\netscape\private angelegt...');  
   end  
   else writelog('c:\Programme\netscape\private existiert. OK');  
   if not DirectoryExists('c:\Programme\netscape\private\'+sUname) then  
   begin  
    System.MkDir('c:\Programme\netscape\private\'+sUname);  
    writelog('c:\Programme\netscape\private\'+sUname+' angelegt...');  
   end  
   else writelog('c:\Programme\netscape\private\'+sUname+' existiert. ');  
   *)  
   
   (*  
   //sind alte lokale Folder da ?  
   if (not DirectoryExists(completemozdir + '\mail')) //sind alte lokale Folder da ?  
       or telearbeitsplatz then //Telearbeitsplatz  
   begin   // nein - leer erzeugen  
    writelog(completemozdir + '\mail existiert nicht oder telearbeitsplatz. OK');  
    if not DirectoryExists('c:\Programme\netscape\private\'+sUname+'\mail') then  
    begin  
     writelog('Lege an: c:\Programme\netscape\private\'+sUname+'\mail');  
     System.MkDir('c:\Programme\netscape\private\'+sUname+'\mail');  
     writelog('c:\Programme\netscape\private\'+sUname+'\mail angelegt');  
    end  
    else writelog('c:\Programme\netscape\private\'+sUname+'\mail existiert. OK ');  
   end  
   else // ja - alte lokale Folder moven  
   begin  
    if not DirectoryExists('c:\Programme\netscape\private\'+sUname+'\mail') then  
    begin  
     writelog('c:\Programme\netscape\private\'+sUname+'\mail angelegen...');  
     System.MkDir('c:\Programme\netscape\private\'+sUname+'\mail');  
     writelog('c:\Programme\netscape\private\'+sUname+'\mail angelegt');  
    end  
    else writelog('c:\Programme\netscape\private\'+sUname+'\mail existiert. OK ');  
     *)  
    (*  
    FBar.Label1.Caption := 'Ressortmail (IMAP) wird eingerichtet ...bitte warten...';  
    FBar.Gauge1.Progress := 0; FBar.Gauge1.MaxValue := {$IFDEF WIN32 } 26 {$ELSE } 35 {$ENDIF };  
    FBar.Gauge1.Visible := True;  
    FBar.Show;  
    *)  
    (*  
    if not AllCopy(completemozdir + '\mail\', 'c:\Programme\netscape\private\'+sUname+'\mail',  
      cpCreateEmptySubdirectories + cpRecursive  , Fehler)  
    then  
    begin  
     writelog('Beim Kopieren der alten lokalen Folder vom Server trat ein Fehler auf. ' + Fehler);  
    end  
    else  
     if not AllDelete(completemozdir + '\mail\',true,true,Fehler) then  
     begin  
      writelog('Beim Löschen der alten lokalen Folder auf dem Server trat ein Fehler auf. ' + Fehler);  
     end  
   end;  
   *)  
   
   if patchPrefs then    if patchPrefs then
   begin    begin
   writelog('jetzt prefs.js für IMAP patchen ');    writelog(getMsg('patching_prefsjs_with_mode_IMAP'));
    //Pref-Dateien ändern     //Pref-Dateien ändern
   if UpdatePrefs('IntranetIMAP') = False then    if UpdatePrefs('IMAP') = False then
    begin     begin
    writelog('Update der Präferenzendatei schlug fehl.');     writelog(getMsg('patching_file_failed'));
    end;     end;
   writelog('prefs.js für IMAP gepatcht');    writelog(getMsg('prefs.js patched'));
   end;    end;
   
   (*####################################################################
   # Start special hupsi custom part
   ####################################################################*)
   
   // Here special code for hupsi    // Here special code for hupsi
   if checkuser_imap_folder then    if checkuser_imap_folder then
   begin    begin
Line 1575  end; // function TFNetsptch.Intranetmail Line 1435  end; // function TFNetsptch.Intranetmail
   
   
 (*####################################################################  (*####################################################################
# ????????????????????????????????????????????????? # End special custom part
 ####################################################################*)  ####################################################################*)
   
   
Line 1597  procedure startConfiguration;  Line 1457  procedure startConfiguration; 
 var  var
    i : integer;     i : integer;
 begin  begin
  writelog('losgehts...');   writelog('start with Configuration...');
   if execute_before <> 'no' then    if execute_before <> 'no' then
   begin    begin
    begin     begin
Line 1607  begin  Line 1467  begin 
   end    end
   else writelog('Nothig to start before...');    else writelog('Nothig to start before...');
   
   (*Ressortmail Fehler abfragen und einrichten*)   if true then // historic :-||
  if true then  
   begin    begin
    if not FileExists(completemozdir + '\prefs.js') then     if not FileExists(completemozdir + '\prefs.js') then
    begin     begin
    DataModule1.Intranetmail(true);     DataModule1.doConfig(true);
    writelog('Keine alte Prefs.js gefunden.');     writelog(getMsg('no_prefjs'));
    end     end
    else     else
    begin     begin
    writelog('alte prefs.js gefunden unter '+completemozdir);     writelog(Format(getMsg('profile_found_at'),[completemozdir,'','','']));
     if DataModule1.interactive then      if DataModule1.interactive then
     begin      begin
      if patchPrefs then       if patchPrefs then
      begin       begin
      if Messagebox(0, PChar('Achtung! Für den aktuellen Benutzer wurde die Ressortmail bereits eingerichtet!'+       if Messagebox(0, PChar(Format(getMsg('ask_for_confirmation_with_patch'),
                 ' Bei einer erneuten Einrichtung bleiben Mail, Adreßbücher und Bookmarks erhalten,'+                             [completemozdir])),
                 ' wenn die Einrichtung dem Ressort-Standard entspricht. '+              ' Warnung', MB_TASKMODAL + MB_YESNO + MB_DEFBUTTON1) = IDNO then
                 ' Die Präferenzdatei prefs.js in '+completemozdir+' existiert und wird gesichert, '+  
                 ' es werden die Standard-Einstellungen in der perfs.js wiederhergestellt.'+  
                 ' Soll die Einrichtung durchgeführt werden?'),  
                 ' Warnung', MB_TASKMODAL + MB_YESNO + MB_DEFBUTTON1) = IDNO then  
       begin        begin
       writelog('Anwender über vorhandene prefs.js informiert');        writelog(getMsg('user_informed_about_existing_prefjs'));
       writelog('vorhandene prefs.js soll gepatcht werden');        writelog(getMsg('existing_prefsjs_should_be_pachted'));
       writelog('Maileinrichtung durch user abgebrochen.');        writelog(getMsg('terminated_by_user'));
       end        end
       else        else
       begin        begin
       writelog('Anwender über vorhandene prefs.js informiert');        writelog(getMsg('user_informed_about_existing_prefjs'));
       writelog('vorhandene prefs.js soll gepatcht werden');        writelog(getMsg('existing_prefsjs_should_be_pachted'));
       writelog('Anwender will Maileinrichtung durchführen....');        writelog(getMsg('start_confirmed_by_user'));
       // jetzt kommt mit der Aufruf zur Einrichtung der Intranetmail....
       DataModule1.Intranetmail(true);        // Here we go ....
       writelog('Ende der Einrichtung Intranetmail');        DataModule1.doConfig(true);
        writelog('End of startConfiguration');
       end;        end;
      end       end
      else       else
      begin       begin
      if Messagebox(0, PChar('Achtung! Für den aktuellen Benutzer wurde die Ressortmail bereits eingerichtet!'+       if Messagebox(0, PChar(Format(getMsg('ask_for_confirmation_without_patch'),
                 ' Bei einer erneuten Einrichtung bleiben Mail, Adreßbücher und Bookmarks erhalten,'+                             [completemozdir])),
                 ' wenn die Einrichtung dem Ressort-Standard entspricht. '+  
                 ' Die Präferenzdatei prefs.js in '+completemozdir+' existiert  '+  
                 ' und wird nicht gepatcht oder überschrieben.'+  
                 ' Soll die Einrichtung durchgeführt werden?'),  
                  ' Warnung', MB_TASKMODAL + MB_YESNO + MB_DEFBUTTON1) = IDNO then                   ' Warnung', MB_TASKMODAL + MB_YESNO + MB_DEFBUTTON1) = IDNO then
       begin        begin
       writelog('Anwender über vorhandene prefs.js informiert');        writelog(getMsg('user_informed_about_existing_prefjs'));
       writelog('vorhandene prefs.js soll nicht gepatcht werden');        writelog(getMsg('existing_prefsjs_should_not_be_pachted'));
       writelog('Maileinrichtung durch user abgebrochen.');        writelog(getMsg('terminated_by_user'));
       end        end
       else        else
       begin        begin
       writelog('Anwender über vorhandene prefs.js informiert');        writelog(getMsg('user_informed_about_existing_prefjs'));
       writelog('vorhandene prefs.js soll nicht gepatcht werden');        writelog(getMsg('existing_prefsjs_should_not_be_pachted'));
       writelog('Anwender will Maileinrichtung durchführen....');        writelog(getMsg('start_confirmed_by_user'));
       // jetzt kommt mit der Aufruf zur Einrichtung der Intranetmail....        // Here we go.....
       DataModule1.Intranetmail(false);        DataModule1.doConfig(false);
       writelog('Ende der Einrichtung Intranetmail');        writelog('End of startConfiguration');
       end;        end;
      end;       end;
     end      end
    else DataModule1.Intranetmail(true);     else DataModule1.doConfig(true);
    end;     end;
   end;    end;
   if execute_after <> 'no' then    if execute_after <> 'no' then
Line 1731  begin  Line 1583  begin 
  begin   begin
   ShowMessage(Format(getMsg('err_conf_not_found'),[mozptchiniFileName, logfilename]));    ShowMessage(Format(getMsg('err_conf_not_found'),[mozptchiniFileName, logfilename]));
   writelog(Format(getMsg('err_conf_not_found'),[mozptchiniFileName, logfilename]));    writelog(Format(getMsg('err_conf_not_found'),[mozptchiniFileName, logfilename]));
  (*   application.terminate;
  ShowMessage('Fehler: Konfigurationsdatei: '+mozptchiniFileName+   exit;
              ' nicht gefunden.'  
                    +' Progamm wird abgebrochen.'  
                    +' Bitte wenden Sie sich an die Hotline.'  
                    +' Bitte geben Sie die Datei c:\tmp\maileinr.log mit');  
   writelog('Fehler: Konfigurationsdatei: '+mozptchiniFileName+  
              ' nicht gefunden.'  
                    +' Progamm wird abgebrochen.'  
                    +' Bitte wenden Sie sich an die Hotline.'  
                    +' Bitte geben Sie die Datei c:\tmp\maileinr.log mit');  
*)  
   application.terminate;  
   exit;  
  end   end
  else   else
  begin   begin

Removed from v.1.3  
changed lines
  Added in v.1.4


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