remove old pile of crap and cruft

[apps/madmutt.git] / contrib / update-config.pl

diff --git a/contrib/update-config.pl b/contrib/update-config.pl
deleted file mode 100755 (executable)
index 8d5a4b3..0000000
--- a/contrib/update-config.pl
+++ /dev/null
@@ -1,77 +0,0 @@
-#!/usr/bin/perl -w
-
-# purpose:
-# update var names for mutt-ng
-# update:
-# grep ', DT_SYN' init.h | awk -F , '{print $1 $4}' | sed -e 's/[{UL]//g' -e 's/"  "/" => "/g'
-
-use strict;
-
-my %opts = (
-  # removed on 2005-06-16
-  " edit_hdrs"                   => " edit_headers",
-  " forw_decode"                 => " forward_decode",
-  " forw_format"                 => " forward_format",
-  " forw_quote"                  => " forward_quote",
-  " hdr_format"                  => " index_format",
-  " indent_str"                  => " indent_string",
-  " mime_fwd"                    => " mime_forward",
-  " msg_format"                  => " message_format",
-  " pgp_autosign"                => " crypt_autosign",
-  " pgp_autoencrypt"             => " crypt_autoencrypt",
-  " pgp_replyencrypt"            => " crypt_replyencrypt",
-  " pgp_replysign"               => " crypt_replysign",
-  " pgp_replysignencrypted"      => " crypt_replysignencrypted",
-  " pgp_verify_sig"              => " crypt_verify_sig",
-  " pgp_create_traditional"      => " pgp_autoinline",
-  " pgp_auto_traditional"        => " pgp_replyinline",
-  " forw_decrypt"                => " forward_decrypt",
-  " smime_sign_as"               => " smime_default_key",
-  " post_indent_str"             => " post_indent_string",
-  " print_cmd"                   => " print_command",
-  " shorten_hierarchy"           => " sidebar_shorten_hierarchy",
-  # removed on 2005-08-29
-  " ask_followup_to"              => " nntp_ask_followup_to", 
-  " ask_x_comment_to"             => " nntp_ask_x_comment_to", 
-  " catchup_newsgroup"            => " nntp_catchup", 
-  " followup_to_poster"           => " nntp_followup_to_poster", 
-  " group_index_format"           => " nntp_group_index_format", 
-  " inews"                        => " nntp_inews", 
-  " mime_subject"                 => " nntp_mime_subject", 
-  " news_cache_dir"               => " nntp_cache_dir", 
-  " news_server"                  => " nntp_host", 
-  " newsrc"                       => " nntp_newsrc", 
-  " nntp_poll"                    => " nntp_mail_check", 
-  " pop_checkinterval"            => " pop_mail_check", 
-  " post_moderated"               => " nntp_post_moderated", 
-  " save_unsubscribed"            => " nntp_save_unsubscribed", 
-  " show_new_news"                => " nntp_show_new_news", 
-  " show_only_unread"             => " nntp_show_only_unread", 
-  " x_comment_to"                 => " nntp_x_comment_to",
-  # renamed for consistency w/ libesmtp
-  " smtp_auth_username"           => " smtp_user",
-  " smtp_auth_password"           => " smtp_pass",
-  # renamed to free $user_ namespace
-  " user_agent"                   => " agent_string"
-);
-
-if (@ARGV == 0) {
-  die "Usage: $0 <conffiles>\n";
-}
-
-foreach my $f (@ARGV) {
-  if (open (INPUT, "<" . $f)) {
-    my @l = ();
-    while (<INPUT>) {
-      foreach my $v (keys %opts) {
-        $_ =~ s/($v)/$opts{$1}/;
-      }
-      push (@l, $_);
-    }
-    close (INPUT);
-    if (open (OUTPUT, ">" . $f)) {
-      print OUTPUT @l;
-      close (OUTPUT);
-    }
-  }
-}