1 files changed, 130 insertions, 0 deletions

diff --git a/www/digest/mailify.pl b/www/digest/mailify.pl
new file mode 100755
index 0000000000..4e0c7d60fd
--- /dev/null
+++ b/www/digest/mailify.pl
@@ -0,0 +1,130 @@
+#!/usr/bin/perl
+
+my $end++;
+
+my @out;
+my $url;
+
+my $urlnum=1;
+
+sub showlinks {
+    my ($date)=@_;
+    if(scalar(keys %store)) {
+        print "\n";
+        
+        for(sort {$store{$a} <=> $store{$b} } keys %store) {
+            my $url=$_;
+            
+            $url =~ s/^\"(.*)\"/$1/g;
+            printf("[%d] = %s\n", $store{$_}, $url);
+        }
+        undef %store;
+        $urlnum=1; # reset to 1
+    }
+}
+
+sub showitem {
+    my @text=@_;
+
+    if(@text) {
+        my $c=3;
+        my $width=72;
+        print " * ";
+
+        my $thelot = join(" ", @text);
+        
+        for (split(/[ \t\n]/, $thelot)) {
+            my $word = $_;
+
+            $word =~ s/[ \t]//g;
+
+            my $len = length($word);
+            if(!$len) {
+                next; # skip blanks
+            }
+
+            if($len + $c + 1> $width) {
+                print "\n   ";
+                $c = 3;
+            }
+            elsif($c != 3) {
+                print " ";
+                $c++;
+            }
+            print $word;
+            $c += $len;
+        }
+    }
+    print "\n"; # end of item
+
+ #   my @words=split(
+
+}
+
+sub date2secs {
+    my ($date)=@_;
+    my $secs = `date -d "$date" +"%s"`;
+    return 0+$secs;
+}
+
+while(<STDIN>) {
+    my $line = $_;
+
+    if($_ =~ /^Date: (.*)/) {
+        my $date=$1;
+        my $secs = date2secs($date);
+        my $tendaysago = time()-(14*24*60*60);
+        showitem(@out);
+        undef @out;
+        chomp;
+
+        showlinks();
+
+        if($secs < $tendaysago) {
+            last;
+        }
+
+        print "\n----------------------------------------------------------------------\n$_";
+        next;
+    }
+    elsif($line =~ /^ *(---)(.*)/) {
+
+        showitem(@out);
+
+        @out="";
+        $line = $2;
+    }
+
+    if($line =~ s/\[URL\](.*)\[URL\]//) {
+        $url=$1;
+
+        if(!$store{$url}) {
+            $footnote = "[$urlnum]";
+            $store{$url} = $urlnum;
+            $urlnum++;
+        }
+        else {
+            $footnote = "[".$store{$url}."]";
+        }
+ #       print STDERR "Set $footnote for $url\n";
+    }
+    if($line =~ s/\[TEXT\](.*)\[TEXT\]/$1$footnote/) {
+ #       print STDERR "Output $footnote (full TEXT)\n";
+        undef $text;
+    }
+    elsif(!$text && ($line =~ s/\[TEXT\](.*)/$1/)) {
+ #       print STDERR "Detected start of TEXT\n";
+        $text = $1;
+    }
+    elsif($text && ($line =~ s/(.*)\[TEXT\]/$1$footnote/)) {
+ #       print STDERR "Output $footnote (end-TEXT)\n";
+        undef $text;
+    }
+
+    push @out, $line;
+}
+
+if(@out) {
+    showitem(@out);
+}
+