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   # left from the first run of cleanup+removal
  12   " edit_hdrs"                   => " edit_headers",
  13   " forw_decode"                 => " forward_decode",
  14   " forw_format"                 => " forward_format",
  15   " forw_quote"                  => " forward_quote",
  16   " hdr_format"                  => " index_format",
  17   " indent_str"                  => " indent_string",
  18   " mime_fwd"                    => " mime_forward",
  19   " msg_format"                  => " message_format",
  20   " pgp_autosign"                => " crypt_autosign",
  21   " pgp_autoencrypt"             => " crypt_autoencrypt",
  22   " pgp_replyencrypt"            => " crypt_replyencrypt",
  23   " pgp_replysign"               => " crypt_replysign",
  24   " pgp_replysignencrypted"      => " crypt_replysignencrypted",
  25   " pgp_verify_sig"              => " crypt_verify_sig",
  26   " pgp_create_traditional"      => " pgp_autoinline",
  27   " pgp_auto_traditional"        => " pgp_replyinline",
  28   " forw_decrypt"                => " forward_decrypt",
  29   " smime_sign_as"               => " smime_default_key",
  30   " post_indent_str"             => " post_indent_string",
  31   " print_cmd"                   => " print_command",
  32   " shorten_hierarchy"           => " sidebar_shorten_hierarchy",
  33   # current run
  34   " ask_followup_to"              => " nntp_ask_followup_to",
  35   " ask_x_comment_to"             => " nntp_ask_x_comment_to",
  36   " catchup_newsgroup"            => " nntp_catchup",
  37   " followup_to_poster"           => " nntp_followup_to_poster",
  38   " group_index_format"           => " nntp_group_index_format",
  39   " inews"                        => " nntp_inews",
  40   " mime_subject"                 => " nntp_mime_subject",
  41   " news_cache_dir"               => " nntp_cache_dir",
  42   " news_server"                  => " nntp_host",
  43   " newsrc"                       => " nntp_newsrc",
  44   " nntp_poll"                    => " nntp_mail_check",
  45   " pop_checkinterval"            => " pop_mail_check",
  46   " post_moderated"               => " nntp_post_moderated",
  47   " save_unsubscribed"            => " nntp_save_unsubscribed",
  48   " show_new_news"                => " nntp_show_new_news",
  49   " show_only_unread"             => " nntp_show_only_unread",
  50   " x_comment_to"                 => " nntp_x_comment_to",
  51   # libesmtp
  52   " smtp_auth_username"           => " smtp_user",
  53   " smtp_auth_password"           => " smtp_pass",
  54   # misc
  55   " signoff_string"               => " post_indent_string"
  56 );
  57
  58 if (@ARGV == 0) {
  59   die "Usage: $0 <conffiles>\n";
  60 }
  61
  62 foreach my $f (@ARGV) {
  63   if (open (INPUT, "<" . $f)) {
  64     my @l = ();
  65     while (<INPUT>) {
  66       foreach my $v (keys %opts) {
  67         $_ =~ s/($v)/$opts{$1}/;
  68       }
  69       push (@l, $_);
  70     }
  71     close (INPUT);
  72     if (open (OUTPUT, ">" . $f)) {
  73       print OUTPUT @l;
  74       close (OUTPUT);
  75     }
  76   }
  77 }