Co bude s konferenci? (bylo Co se deje na konferenci?)

[Jan Waclawek]

Jan Waclawek wrote:
>>>Co je 270MB?
>>
>>
>>Velikost soucasneho archivu HW-list, obsahujiciho jakesi prispevky od
>>r. 1998, pak nejakou mezeru a pak az do soucasnosti.
> 
> 
> Hmmmm. Zbalene?
> Ako pisem, len vlanajsi archiv v TB mam na 180MB... Nejako sa mi nechce 
> verit ze hlavicky (ktorych cast si uchovavate urcite aj Vy) zaberaju 
> viac nez 50%...

Tak som si to vyskusal, z toho archivu 2005 som vyhadzal vacsinu 
hlaviciek a kupodivu to bolo viac nez 50%, relevantna info mi vysla na 
asi 70MB.

Este stale nechapem, ako moze mat CELY archiv 270MB ked len jeden (i ked 
plodny, >37k prispevkov) 70MB. Robim este nieco zle?

wek

PS. Pripajam programcok co som si k tomu napisal, takze ak si niekto 
chce zmensit na polovicu data co ma v thunderbirde, nech sa paci; 
samozrejme je to bez akychkolvek zaruk.

-------------

uses crt;
var fi,fo:text;
     s,poms:string;
     ll:comp;
     valid:boolean;
     n:longint;

begin
   assign(fi,paramstr(1));
   assign(fo,paramstr(2));
   reset(fi);
   rewrite(fo);

   n:=0;

   readln(fi,s);     {From -  - we assume at least 1 mail is there}
   writeln(fo,s);

   repeat
     inc(n);
     gotoxy(1,1); write(n,' ');
     write(s);
     valid:=false;
     repeat      {strip header}
       readln(fi,s);

       poms:=copy(s,1,pos(':',s));
       if poms='' then begin
         if (s[1] in [#9,' ']) and valid then begin
           writeln(fo,s);
         end;
       end else if poms='From:' then begin
         writeln(fo,s);
         valid:=true;
       end else if poms='Subject:' then begin
         writeln(fo,s);
         valid:=true;
       end else if poms='Date:' then begin
         writeln(fo,s);
         valid:=true;
       end else if poms='MIME-Version:' then begin
         writeln(fo,s);
         valid:=true;
       end else if poms='Content-Type:' then begin
         writeln(fo,s);
         valid:=true;
       end else if poms='Content-Transfer-Encoding:' then begin
         writeln(fo,s);
         valid:=true;
       end else if poms='Message-ID:' then begin
         writeln(fo,s);
         valid:=true;
       end else if poms='References:' then begin
         writeln(fo,s);
         valid:=true;
       end else if poms='In-Reply-To:' then begin
         writeln(fo,s);
         valid:=true;
       end else begin
         valid:=false;
       end;
     until (s='') or (eof(fi)); {the latter is sanity check}

     writeln(fo);

     repeat
       readln(fi,s);
       writeln(fo,s);
     until (copy(s,1,7)='From - ') or (eof(fi));



   until eof(fi) or (keypressed and (readkey=#27));

   close(fi);
   close(fo);
end.