Co bude s konferenci? (bylo Co se deje na konferenci?)
Jan Waclawek
wek@evona.sk
Čtvrtek Březen 16 16:10:56 CET 2006
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.
Další informace o konferenci Hw-list