#!/usr/bin/perl

print <<END;
Mirmail ver 2.0 Standard  ġմϴ.
ݵ Sendmail  Qpopper  ݵ ġ Ǿ־ մϴ.
 ġ  ʾҴٸ Ctrl-C  ġ α׷
 ֽñ ٶϴ.
END

print "ƹŰ ñ ٶϴ..............";
$tmp = <STDIN>;
print <<END;
Mirmail ver 2.0 Standard   

1   ̸ ȳ 
 
   1) ̸  Ǿ, ڽ ϰ ִ
      ü ´ Ȯ Ͻñ ٶϴ.
   2) ̸   , ̻ Ŀ͸¡ Ͻǰ
       Ÿ ɼ̳ Ȯ մϴ.
   3)  ǰ  ѻ ī(Copyright (c) 2000 MIRSYS All
      Rights Reserved) ִ  ̽  մϴ.
      ׷ ī     ()̸ý  Ǹ
      ľ߸ մϴ.
   4) ̸ , , , б    
        ,  ǰ E-mail ϰ ֽϴ. 
   5) ġ޴ ̵, Q&A  ٿε ޾ ̿ ֽϴ. 
   6) ̸  ׷̵ Ǹ, ڿ 뺸 űԱ ߰ 
          ֽϴ. 
   7) ǰ  ڼ ȳ Ȩ Ͽ ֽñ ٶϴ. 
    
 2   ̿ ǻ
 
   1) ̸ ̿, α׷ , , ŷ  ҹ 
      Ʈ  մϴ.
   2) ̸  ϼ񽺿 Ͽ߸ϸ, ҹ,
      Ź, ȹ, ûҳ⺸ȣ ˵Ǵ ϼ񽺸  
       ϴ.
   3) ̸ ۱ ࿡  ȣް ,  ۱ 
      ħػ  ع û  ֽϴ.
   4) ̸ ̿ڰ  ٿεϿ ġϿ ϸ,  
       Ȩ Խ̳ ڿ ̿Ͽ   ֽϴ.
   5) Ʈ (lending), (lease)ϰų Ǵ  Ʈ
       ⺻ ؼ 2 ۹ â , ۱  
       ()̸ý  Ǹ ߸ մϴ.
    
  
 3   ȭ̽ 
   
   1) ̿ڴ ̸ ī(Copyright (c) 2000 MIRSYS All Rights 
      Reserved) ִ  ̽  մϴ. ׷ 
      ī     ()̸ý Ǹ ľ߸
      մϴ.

  
 4   ع
   
   1) ()̸ý  ̸  ̿ ߻Ǵ 
        ݻ׿ Ͽ  å ϴ.
END
print "   Ͻʴϱ?...........(Y/N)";

my $flag = <STDIN>;

if($flag !~ /^y/im)
{
	exit;
}

print "ݺ ¾ ϴ.\n\n\n";
print "ġ    丮 ־ ֽñ ٶϴ.\n";
print "ġ    丮 Ȩ ִ 丮 ̾߱ մϴ.\n";
print "ex '/usr/local/apache/htdocs' or 'home/httpd/html'\n";
print "ġ    丮 :";

my $home = <STDIN>;

chop $home;

if(!-d $home)
{
	print "ġ    丮   ʽϴ.\n";
	print "ó ٽ ġ ֽñ ٶϴ.\n\n";
	exit;
}

print "\n\n\n̸  ׷̵  ؼ  մϴ.\n\n\n";
print "  ּҸ ־ ּ: ";

my $mail = <STDIN>;
chop $mail;

print " ġϴ°  ־ּ :";

my $domain = <STDIN>;
chop $domain;

open H, "|sendmail -t";

print H<<END;
From: $mail
To: webmaster\@mirsys.com
Subject: $mail:$domain

$mail:$domain
END
close H;

if(-e "/etc/shadow")
{
	system("chmod 600 /etc/shadow");
}

system("mkdir /mirmail-user");
system("cp -rf mirmail2.0/conf $home/");
system("cp -rf mirmail2.0/img $home/");
system("cp -rf mirmail2.0/lib $home/");
system("cp -rf mirmail2.0/mail $home/");
system("cp -rf mirmail2.0/mirmail $home/");
system("cp -rf mirmail2.0/sub $home/");
system("cp -rf mirmail2.0/id_find.cgi $home/");
system("cp -rf mirmail2.0/etc/mirmail_sys.conf /etc/");
system("cp -rf mirmail2.0/etc/signature /etc/");
system("cp -rf mirmail2.0/etc/signature_h /etc/");
system("chmod -R 755 $home/id_find.cgi");
system("chown nobody.nobody $home/conf/users");
system("chown nobody.nobody /mirmail-user");
system("cp -rf mirmail2.0/index.html $home/");
system("cp -rf mirmail2.0/rule.html $home/");
system("cp -rf mirmail2.0/signup.html $home/");
system("chmod -R 755 $home/sub");
system("chmod -R 755 $home/lib");
system("chmod -R 755 $home/mirmail/");
system("chmod -R 755 $home/sub");
system("chmod -R 755 $home/mail/mail.cgi");
system("chmod -R 755 /mirmail-user");
system("cp -rf mirmail2.0/webmaild /usr/bin/");

print " ġ ϴ.\n\n\n\n";

exit;
