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

version 1.8, 2004/10/09 15:49:35 version 1.9, 2004/10/29 14:18:18
Line 9 Line 9
 # ========  # ========
 #  #
 # $Log$  # $Log$
   # Revision 1.9  2004/10/29 14:18:18  oertel
   # win ver 9.30.2
   # Bugfix: hupsi: check_for_imapfolders still used sHost. Changed to sIncomingServer
   #
 # Revision 1.8  2004/10/09 15:49:35  oertel  # Revision 1.8  2004/10/09 15:49:35  oertel
 # win ver 9.30.1  # win ver 9.30.1
 # suporting profiles.ini for TB >= 0.8 and FF >= 0.9  # suporting profiles.ini for TB >= 0.8 and FF >= 0.9
Line 1590  begin  Line 1594  begin 
  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('\\'+sHost+PS+sUname+'\INBOX') then   if not FileExists('\\'+sIncomingServer+PS+sUname+'\INBOX') then
   begin    begin
   if FileCopy('p:\mail\empty.mbx', '\\'+sHost+PS+sUname+'\INBOX',    if FileCopy('p:\mail\empty.mbx', '\\'+sIncomingServer+PS+sUname+'\INBOX',
                true,true,Fehler)= False then                 true,true,Fehler)= False then
    begin     begin
     writelog('Datei empty.mbx konnte nicht nach '+sHome+'\INBOX kopiert werden. '      writelog('Datei empty.mbx konnte nicht nach '+sHome+'\INBOX kopiert werden. '
Line 1602  begin  Line 1606  begin 
    begin     begin
     writelog(sHome+'\INBOX angelegt');      writelog(sHome+'\INBOX angelegt');
     {$IFDEF MSWINDOWS}      {$IFDEF MSWINDOWS}
     intFehler := FileSetAttr('\\'+sHost+PS+sUname+'\INBOX',0);      intFehler := FileSetAttr('\\'+sIncomingServer+PS+sUname+'\INBOX',0);
     {$ELSE}      {$ELSE}
      {$IFDEF LINUX}       {$IFDEF LINUX}
      {$ENDIF}       {$ENDIF}
Line 1628  begin  Line 1632  begin 
   end;    end;
   if DirectoryExists(sHome+'\.imap') then    if DirectoryExists(sHome+'\.imap') then
   begin    begin
   if not FileExists('\\'+sHost+PS+sUname+'\.imap\gesendet') then    if not FileExists('\\'+sIncomingServer+PS+sUname+'\.imap\gesendet') then
    if FileCopy('p:\mail\empty.mbx', '\\'+sHost+'\'+sUname+'\.imap\gesendet',     if FileCopy('p:\mail\empty.mbx', '\\'+sIncomingServer+'\'+sUname+'\.imap\gesendet',
                 true,true,Fehler)= False then                  true,true,Fehler)= False then
     begin      begin
     writelog('Datei empty.mbx konnte nicht nach \\'+sHost+'\'+sUname+'\.imap\gesendet kopiert werden. '      writelog('Datei empty.mbx konnte nicht nach \\'+sIncomingServer+'\'+sUname+'\.imap\gesendet kopiert werden. '
            +Fehler);             +Fehler);
     end      end
     else      else
     begin      begin
     writelog('\\'+sHost+'\'+sUname+'\.imap\gesendet angelegt');      writelog('\\'+sIncomingServer+'\'+sUname+'\.imap\gesendet angelegt');
      {$IFDEF MSWINDOWS}       {$IFDEF MSWINDOWS}
      intFehler := FileSetAttr('\\'+sHost+'\'+sUname+'\.imap\gesendet',0);       intFehler := FileSetAttr('\\'+sIncomingServer+'\'+sUname+'\.imap\gesendet',0);
      {$ELSE}       {$ELSE}
       {$IFDEF LINUX}        {$IFDEF LINUX}
       {$ENDIF}        {$ENDIF}
Line 1650  begin  Line 1654  begin 
      end;       end;
      writelog('Attribute für .imap\gesendet gesetzt.');       writelog('Attribute für .imap\gesendet gesetzt.');
     end;      end;
   if not FileExists('\\'+sHost+'\'+sUname+'\.imap\Entwuerfe') then    if not FileExists('\\'+sIncomingServer+'\'+sUname+'\.imap\Entwuerfe') then
    if FileCopy('p:\mail\empty.mbx', '\\'+sHost+PS+sUname+'\.imap\Entwuerfe',     if FileCopy('p:\mail\empty.mbx', '\\'+sIncomingServer+PS+sUname+'\.imap\Entwuerfe',
                 true,true,Fehler)= False then                  true,true,Fehler)= False then
     begin      begin
     writelog('Datei empty.mbx konnte nicht nach \\'+sHost+'\'+sUname+'\.imap\Entwuerfe kopiert werden. '      writelog('Datei empty.mbx konnte nicht nach \\'+sIncomingServer+'\'+sUname+'\.imap\Entwuerfe kopiert werden. '
            +Fehler); exit;             +Fehler); exit;
     end      end
     else      else
     begin      begin
     writelog('\\'+sHost+'\'+sUname+'\.imap\Entwuerfe angelegt');      writelog('\\'+sIncomingServer+'\'+sUname+'\.imap\Entwuerfe angelegt');
      {$IFDEF MSWINDOWS}       {$IFDEF MSWINDOWS}
      intFehler := FileSetAttr('\\'+sHost+'\'+sUname+'\.imap\Entwuerfe',0);       intFehler := FileSetAttr('\\'+sIncomingServer+'\'+sUname+'\.imap\Entwuerfe',0);
      {$ELSE}       {$ELSE}
       {$IFDEF LINUX}        {$IFDEF LINUX}
       {$ENDIF}        {$ENDIF}
Line 1673  begin  Line 1677  begin 
      writelog('Attribute für .imap\Entwuerfe gesetzt.');       writelog('Attribute für .imap\Entwuerfe gesetzt.');
     end;      end;
   
   if not FileExists('\\'+sHost+'\'+sUname+'\.imap\Vorlagen') then    if not FileExists('\\'+sIncomingServer+'\'+sUname+'\.imap\Vorlagen') then
    if FileCopy('p:\mail\empty.mbx', '\\'+sHost+'\'+sUname+'\.imap\Vorlagen',     if FileCopy('p:\mail\empty.mbx', '\\'+sIncomingServer+'\'+sUname+'\.imap\Vorlagen',
                 true,true,Fehler)= False then                  true,true,Fehler)= False then
     begin      begin
     writelog('Datei empty.mbx konnte nicht nach \\'+sHost+'\'+sUname+'\.imap\Vorlagen kopiert werden. '      writelog('Datei empty.mbx konnte nicht nach \\'+sIncomingServer+'\'+sUname+'\.imap\Vorlagen kopiert werden. '
            +Fehler); exit;             +Fehler); exit;
     end      end
     else      else
     begin      begin
     writelog('\\'+sHost+'\'+sUname+'\.imap\Vorlagen angelegt');      writelog('\\'+sIncomingServer+'\'+sUname+'\.imap\Vorlagen angelegt');
      {$IFDEF MSWINDOWS}       {$IFDEF MSWINDOWS}
      intFehler := FileSetAttr('\\'+sHost+'\'+sUname+'\.imap\Vorlagen',0);       intFehler := FileSetAttr('\\'+sIncomingServer+'\'+sUname+'\.imap\Vorlagen',0);
      {$ELSE}       {$ELSE}
       {$IFDEF LINUX}        {$IFDEF LINUX}
       {$ENDIF}        {$ENDIF}
Line 1990  begin  Line 1994  begin 
   else    else
    writelog('Variable TELEPC nicht gesetzt');     writelog('Variable TELEPC nicht gesetzt');
   
  if sHost = 'bonifax' then   if sIncomingServer = 'bonifax' then
   begin    begin
    writelog('host bonifax gefunden....');     writelog('host bonifax gefunden....');
    if messageDlg('Achtung: '+#10#13+     if messageDlg('Achtung: '+#10#13+
Line 2006  begin  Line 2010  begin 
 //              'Klicken Sie Abbrechen um host auf bonifax zu belassen.'),  //              'Klicken Sie Abbrechen um host auf bonifax zu belassen.'),
 //              'ACHTUNG!', MB_OKCANCEL) = IDOK then  //              'ACHTUNG!', MB_OKCANCEL) = IDOK then
    begin     begin
    sHost := 'hlh2';     sIncomingServer := 'hlh2';
     sOutgoingServer := 'hlh2';
     writelog('host von bonifax auf hlh2 gesetzt....');      writelog('host von bonifax auf hlh2 gesetzt....');
    end;     end;
   end;    end;

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


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