nb-mails

diff --git a/etc/bashrc.function b/etc/bashrc.function
index 98660108d4f9d0823be8a6a5b303650c3253302a..6498d05b563f94f9e71871031df7ba716019f61a 100644 (file)
--- a/etc/bashrc.function
+++ b/etc/bashrc.function
@@ -25,6 +25,7 @@ case "$OSTYPE" in darwin*)
 esac
 
 nb-mails() {
+#perl -MDate::Manip -MEncode -ne '
 printf '| 1-$ cat\nx\n' | mail | perl -MDate::Manip -MEncode -ne '
 BEGIN { $SIG{__WARN__} = sub{ } }
 $. == 2 and print;
@@ -33,11 +34,6 @@ chomp;
 if ($_ eq "") {
   $h{From} =~ s/^.*?([^<\s]+@[^\s>]+).*?$/$1/;
   $h{Date} = &UnixDate($h{Date},"%Y-%m-%d %H:%M");
-  if (0) {
-  $h{Date} =~ s/\s+[\+\-].*$//;
-  $h{Date} =~ s/,//;
-  $h{Date} =~ s/ (\d) / 0$1 /g;
-  }
   $h{Subject} = decode("MIME-Header",$h{Subject});
   push(@m,[
     $h{From},
@@ -48,9 +44,9 @@ if ($_ eq "") {
   next;
 }
 /^(Date|Subject|From): (.*)$/ and $h{$1} = $2;
-END { for (reverse sort {$a[1] cmp $b[1]}  @m) { printf "%20.20s | %16.16s | %s\n",@$_; }}
-#END { for (reverse @m) { printf "%20.20s | %16.16s | %s\n",@$_; }}
+END { print map {sprintf "%20.20s | %16.16s | %s\n",@$_;} sort {$b->[1] cmp $a->[1]} @m }
 '
+#/var/spool/mail/$USER
   #printf 'f *\nx\n' | mail |  perl -e '@_=<>; shift @_; print shift @_; print reverse @_'
 }