scripts/publish-decision

   1 wip wip wip do not use
   2
   3 #!/usr/bin/perl -w
   4 use strict;
   5
   6 # USAGE:
   7 #
   8 # 0. See "configuration" below
   9 #
  10 # 1. Put the decision in
  11 #      tech-ctte.git/<BUGNUMBER>_blah_blah/decision
  12 #    in the special template format.  Commit it.
  13 #
  14 # 2. Run
  15 #      cd tech-ctte.git
  16 #      scripts/publish-decision BUGNUMBER_blah_blah/decision
  17 #
  18 # 3. This will leave:
  19 #      - BUGNUMBER_blah_blah/decision.email    ready for sendmail -t
  20 #      - ../www-devel/tech-ctte.wml            ready for cvs commit
  21 #    Inspect them and if appropriate send and commit.
  22
  23 die "bad usage" unless @ARGV==1 && $ARGV[0] =~ m#^((\d+)_\w+)/.*$#;
  24 my ($bugn, $dir, $templ) = ($1,$2,$&);
  25
  26 sub process_template () {
  27     open T, $templ, '<' or die "$0: $templ: $!\n";
  28     while (<T>) {
  29