citadel

My dotfiles, scripts and nix configs
git clone git://jb55.com/citadel
Log | Files | Refs | README | LICENSE

mutt-local-date (264B)

      1 #!/usr/bin/env -S perl -n
      2 
      3 use Date::Parse;
      4 use POSIX;
      5 use strict;
      6 
      7 if (/^Date: (.*)$/) {
      8     my $datestr = $1;
      9     my $date = strftime ("%a, %d %b %Y %H:%M:%S",
     10                          localtime (str2time ($datestr)));
     11     print "Local-Date: $date\n";
     12 }
     13 
     14 print;