[Mew-dist 08764] Re: suid root imget without ~/Mail

[SAKAI Kiyotaka]

>> In article <19990503150313Q.p-katoh at example.com>, "Takashi P.KATOH" <p-katoh at example.com> writes:

> ちょっと違う話ですけど、私のところで imsetup を実行すると、

> | % ./imsetup 
> ...
> | What is your E-mail address(es)? [p-katoh at example.com]
> ...

> と @ 以下がちょっと悲しくなってるんですが、これって最初に 
> SiteConfig を見て、FromDomain が設定してあればそれを使うよう
> にすると嬉しくなるような気がします。

こんな感じでしょうか。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
Index: imsetup.in
===================================================================
RCS file: /home/ksakai/cvsroot/im-115/imsetup.in,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 imsetup.in
--- imsetup.in	1999/05/10 02:34:42	1.1.1.1
+++ imsetup.in	1999/05/11 06:27:05
@@ -23,12 +23,13 @@
 
 use File::Copy;
 use Sys::Hostname;
-use IM::Config qw(init_opt read_opt help);
+use IM::Config qw(init_opt read_opt read_cfg help);
 use IM::Util;
 use IM::Address qw(extract_addr);
 use integer;
 use strict;
-use vars qw($Prog $EXPLANATION @OptConfig $opt_noharm $opt_help);
+use vars qw($Prog $EXPLANATION @OptConfig
+	    $opt_fromdomain $opt_noharm $opt_help);
 
 ##
 ## Environments
@@ -39,7 +40,7 @@
 my $alias = "Aliases";
 
 my $home = $ENV{'HOME'};
-my $address = im_getlogin() . "\@" . &get_domain_name();
+my $address;
 my $mail = "Mail";
 my $news = "News";
 my $usecl  = "@im_usecl@";
@@ -55,6 +56,7 @@
 ";
 
 @OptConfig = (
+    'FromDomain;s;;' => 'Default domain name for mail address.',
     'noharm;b;;' => "Do execute setup, show what will be performed.",
     'help;b;;'   => "Show this message.",
     );
@@ -64,12 +66,19 @@
 ##
 
 init_opt(\@OptConfig);
+read_cfg();
 read_opt(\@ARGV); # help?
 help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help;
 
 ##
 ## Main
 ##
+
+if ($opt_fromdomain =~ /\./) {
+    $address = im_getlogin() . "\@" . $opt_fromdomain;
+} else {
+    $address = im_getlogin() . "\@" . get_domain_name();
+}
 
 &read_conf();
 &check_im_directory();