[debian-devel:09267] dupload customization

[Taketoshi Sano <xlj06203@xxxxxxxxxxx>]

佐野＠浜松です。

自分の環境はノート一台で、職場の LAN 接続と自宅での PPP 接続を
切り替えて使うために、システムの MTA (exim) はローカル only な
設定にしています。

で、このままだと

ii  dupload         1.16.4         Utility to upload debian packages.

これを使って upload する時にアナウンスを自動で送ることができません。

そこで

--- /usr/bin/dupload.orig	Mon Jan 11 08:30:44 1999
+++ /usr/bin/dupload	Wed May 26 17:03:21 1999
@@ -119,6 +119,11 @@
   $visibleuser = $nick->{visibleuser} || $user; chomp($visibleuser);
   $visiblename = $nick->{visiblename} || ''; chomp($visiblename);
   $fullname = $nick->{fullname} || '';
+
+# following 2 lines are added by t.sano
+  $passwd = $config::passwd if (defined $config::passwd);
+  $sendmail = $config::sendmail if (defined $config::sendmail);
+
   undef $passwd unless $login =~ /^anonymous|ftp$/;
 }
 
このようなパッチを /usr/bin/dupload に当てました。

そして $HOME/.dupload.conf には

# This is the configuration for dupload.
# It is intended to be read and evaled from perl.
# ex:set ts=4 sw=4:

package config;

### Defaults, add entries for each host

$passwd = "kgh12351\@nifty.ne.jp";
$sendmail = "$ENV{HOME}/bin/imput.dupload";

(snip)

$cfg{"jp"} = {
        fqdn => "master.debian.or.jp",
        incoming => "/pub/Incoming/upload/",
        mailto => "debian-changes\@lists.debian.org",
        mailtx => "debian-devel-changes\@lists.debian.org",
        cc => "debian-devel\@debian.or.jp",
	visibleuser => "xlj06203",
	visiblename => "nifty.ne.jp",
	fullname => "Taketoshi Sano",
};

$cfg{"master-jp"} = {
        fqdn => "master.debian.or.jp",
        incoming => "/pub/Incoming/private/",
        mailto => "debian-devel-changes\@debian.or.jp",
        mailtx => "debian-devel-changes\@debian.or.jp",
	visibleuser => "xlj06203",
	visiblename => "nifty.ne.jp",
	fullname => "Taketoshi Sano",
};

# Don't remove the following line.  Perl needs it.
1;

と書き、さらに $HOME/bin/imput.dupload は

#! /usr/bin/perl
require 5.004;
use strict;

my $myarg = "--JustQueuing=off ";


if (defined $ARGV[0]) {
    while (defined $ARGV[0]) {
      if ($ARGV[0] eq "-f") {
        shift @ARGV;
        my $name = shift @ARGV;
	$name =~ /^(.*)\\@(.*)$/;
        my $acnt = $1;
        my $dmin = $2;
        $myarg = $myarg . " --User='$acnt' --FromDomain='$dmin'";
      }
      if ($ARGV[0] eq "-F") {
        shift @ARGV;
        my $name = shift @ARGV;
	$name =~ /^\((.*)\)$/;
        my $gcos = $1;
        $myarg = $myarg . " --Name='$name'";
      }
      my $name = shift @ARGV;
      $myarg = $myarg . " $name";
     }
 }

my $mailer = "/usr/bin/imput --Config=nifty " . $myarg;

exec $mailer;

としています。

まだ announce のメールを確認していないのですが、
とりあえずこれでうまく送られたようです。

何かの参考にでもなれば。

# でも [ cc => "debian-devel\@debian.or.jp", ] と書いておいたのに
# こっちには送られていないみたいだなあ。なんでだろ。

-- 
     ＃わたしのおうちは浜松市、「夜のお菓子」で有名さ。
    <xlj06203@xxxxxxxxxxx> : Taketoshi Sano (佐野　武俊)