contrib/update-config.pl

   1 #!/usr/bin/perl -w
   2
   3 # purpose:
   4 # update var names for mutt-ng
   5 # update:
   6 # grep ', DT_SYN' init.h | awk -F , '{print $1 $4}' | sed -e 's/[{UL]//g' -e 's/"  "/" => "/g'
   7
   8 use strict;
   9
  10 my %opts = (
  11   " edit_hdrs"                   => " edit_headers",
  12   " forw_decode"                 => " forward_decode",
  13   " forw_format"                 => " forward_format",
  14   " forw_quote"                  => " forward_quote",
  15   " hdr_format"                  => " index_format",
  16   " indent_str"                  => " indent_string",
  17   " mime_fwd"                    => " mime_forward",
  18   " msg_format"                  => " message_format",
  19   " pgp_autosign"                => " crypt_autosign",
  20   " pgp_autoencrypt"             => " crypt_autoencrypt",
  21   " pgp_replyencrypt"            => " crypt_replyencrypt",
  22   " pgp_replysign"               => " crypt_replysign",
  23   " pgp_replysignencrypted"      => " crypt_replysignencrypted",
  24   " pgp_verify_sig"              => " crypt_verify_sig",
  25   " pgp_create_traditional"      => " pgp_autoinline",
  26   " pgp_auto_traditional"        => " pgp_replyinline",
  27   " forw_decrypt"                => " forward_decrypt",
  28   " smime_sign_as"               => " smime_default_key",
  29   " post_indent_str"             => " post_indent_string",
  30   " print_cmd"                   => " print_command",
  31   " shorten_hierarchy"           => " sidebar_shorten_hierarchy"
  32 );
  33
  34 if (@ARGV == 0) {
  35   die "Usage: $0 <conffiles>\n";
  36 }
  37
  38 foreach my $f (@ARGV) {
  39   if (open (INPUT, "<" . $f)) {
  40     my @l = ();
  41     while (<INPUT>) {
  42       foreach my $v (keys %opts) {
  43         $_ =~ s/($v)/$opts{$1}/;
  44       }
  45       push (@l, $_);
  46     }
  47     close (INPUT);
  48     if (open (OUTPUT, ">" . $f)) {
  49       print OUTPUT @l;
  50       close (OUTPUT);
  51     }
  52   }
  53 }