[debian-devel:09590] Re: dupload customization

[Taketoshi Sano <xlj06203@xxxxxxxxxxx>]

佐野＠浜松です。

In article <y5aemjd1mml.fsf@xxxxxxxxxxxxxxxxxxxx>
 私:

> imput のオプションに --ObeyHeader=on を付ける必要がありました。
> たぶん、次回からはちゃんと cc => も有効になるはず、と思います。

今度は cc: 先にしか送られていなかった ... # 先程手で送り直しました。

もう一度、/usr/bin/dupload を見直して、メールのヘッダーに To: が
追加されるようにしてみました。

--- dupload.orig	Mon Jan 11 08:30:44 1999
+++ dupload	Thu Jun 17 06:50:40 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$/;
 }
 
@@ -402,6 +407,7 @@
 
 		print M <<xxx;
 X-dupload: $version
+To: $announce{$job}
 xxx
 		$cc and print M <<xxx;
 Cc: $cc

が変更内容です。これで $HOME/.dupload.conf に

package config;

### Defaults, add entries for each host

$passwd = "MY_EMAIL_ADDRESS";
$sendmail = "$ENV{HOME}/bin/imput.dupload";

$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", # stable, contrib, non-free
	visibleuser => "MY_MAIL_ACOUNT",
	visiblename => "MY_MAIL_HOST",
	fullname => "MY_NAME",
};

$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 => "MY_MAIL_ACOUNT",
	visiblename => "MY_MAIL_HOST",
	fullname => "MY_NAME",
};

また $HOME/bin/imput.dupload には

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

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


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;

と書いています。

# 今度こそ、うまくいきますように。

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