Skip to Content.
Sympa Menu

sm-discuss - Re: [SM-Discuss] historyfix script

sm-discuss AT lists.ibiblio.org

Subject: Public SourceMage Discussion List

List archive

Chronological Thread  
  • From: Vladimír Marek <vlmarek AT volny.cz>
  • To: sm-discuss AT lists.ibiblio.org
  • Subject: Re: [SM-Discuss] historyfix script
  • Date: Mon, 17 May 2004 10:24:43 +0200

[...]
> #!/usr/bin/perl
hmm

[...]
> #$file =~ s/\n200([^\n])\n([^ \t]+)\n/\n \n200$1\n \n$2\n/gs;
> $file =~ s/^200([0-9]-[0-9]+-[0-9]+[ \t]+)\?([ \t]*)/200$1Anonymous$2/gm;
> $file =~ s/^200([^@\n]+)$/200$1 <anonymous\@sourcemage.org>/mg;
> $file =~ s/^200([0-9])[^0-9]?([0-9][0-9])[^0-9]?([0-9][0-9])/200$1-$2-$3/gm;
> #$file =~ s/^200(.*)\<?([^\t\< ]+\@[^\n\t \>]+)\>?(.*)$/"200" .
> &fixname($1) . "$3 <$2>"/gme; # blah
> $file =~ s/^200([^\n]*) \<?([^\t\< \n]+\@[^\n\t \>]+)\>?([^\n]*)$/"200" .
> &fixname($1) . "$3 <$2>"/gme; # blah
> $file =~ s/[ \t]+/ /mg;
> $file =~ s/^200([0-9]-[0-9]+-[0-9]+) (\<[^>\n]*\>) ?$/200$1 Anonymous $2/gm;
> $file =~ s/([-0-9 ]+?)[\t ]+([^ ][^\n]*[^ ])[\t ]+(\<[^\n]*\>)[\t
> ]*\n(.*?)\n\n(?:\n+|)/"$1 $2 $3\n" . &fixit($4) . "\n\n"/sge;
> $file =~ s/^([-0-9 ]+?)[\t ]+([^ ].*[^ ])[\t ]+(\<.*\>)[\t ]*$/$1 $2 $3/mg;

Ooooh ! :)

--
Neuron

Attachment: pgp9R98tmSdG9.pgp
Description: PGP signature




Archive powered by MHonArc 2.6.24.

Top of Page