#!/usr/bin/perl
# fml postinst
# $group = "list";
# $adduser = '/usr/sbin/adduser';
#$FML_CONFIG = "/usr/share/fml/.fml/system";
$FML_CONFIG = "/etc/fml/system";

$_ = $ARGV[0];
$oldver = $ARGV[1];
if (/configure/) {
    &configure;
} elsif (/abort-upgrade|abort-remove|abort-deconfigure/) {
    # do nothing
    exit 0;
} elsif (/build/) {
    # for dpkg-build
    &resetConfigurations;
} else {
    # abort-upgrade, abort-remove, abort-deconfigure
    print STDERR "postinst called with unknown argument \`$_'\n";
    exit 0;
}
unless (/build/) {
    if (-x '/etc/init.d/postfix') {
	print "Restart postfix now...";
	if (-x '/usr/sbin/invoke-rc.d') {
	    system('invoke-rc.d', 'postfix', 'start');
	} else {
	    system('/etc/init.d/postfix', 'start');
	}
	print "done\n";
    }
    if (-x '/etc/init.d/sendmail') {
        print "Restart sendmail now...";
	if (-x '/usr/sbin/invoke-rc.d') {
	    system('invoke-rc.d', 'sendmail', 'start');
	} else {
	    system('/etc/init.d/sendmail', 'start');
	}
        print "done\n";
    }
}
# debhelper!
my $temp="set -e\nset -- @ARGV\n" . << 'EOF';
#DEBHELPER#
EOF
system ($temp) / 256 == 0
        or die "Problem with debhelper scripts: $!\n";
# 
exit 0;

sub configure {
    print "You should add mailing list admin user to group `list'\n";

    if (system("dpkg --compare-versions 2.2-1 lt '$oldver'") == 0) {
	print "Changing group of /var/spool/ml, please wait ...";
	system('chgrp', '-R', 'list', '/var/spool/ml');
	system('chmod', '2775', '/var/spool/ml');
	system('chmod', '2775', '/var/spool/ml/etc');
	if (-f '/var/spool/ml/etc/crontab') {
	    system('chmod', '2775', '/var/spool/ml/etc/crontab');
	}
	print "done\n";
    }
    print "If you do not run fmlserv, you may chmod g-w /var/spool/ml\n";
    if (! -l '/usr/share/fml/.fml/system') {
	symlink("$FML_CONFIG", '/usr/share/fml/.fml/system');
    }
    if (-f $FML_CONFIG) {
	system('cp', '-p', $FML_CONFIG, "$FML_CONFIG.bak");
	print "Reconfigure packages Configurations using $FML_CONFIG ...";
	&fixConfigurations;
	print "done\n";
    } else {
	system('/bin/cp', '-p', "$FML_CONFIG.defaults", "$FML_CONFIG");
	&fixConfigurations;
    }
    # remove old files if any
    unless (-l '/usr/lib/fml') {
	system('/bin/rm', '-rf', '/usr/lib/fml');
	symlink('../share/fml', '/usr/lib/fml');
    }
}

sub loadConfig {
    unless (-f $FML_CONFIG) {
	print STDERR "file: $FML_CONFIG not found\n";
	exit 1;
    }
    package Config;
    eval("require \$main'FML_CONFIG;\#'");
    print STDERR $@ if $@;
}

sub saveConfig {
    open(CFG, ">$FML_CONFIG") or die "cannot write to $FML_CONFIG, $!";
    print CFG &Dumpvar('Config');
    print CFG "\n1;\n";
    close(CFG);
}

sub fixConfigurations {
    &loadConfig;
   
    # print "FQDN of your host: [$Config::FQDN]\n";
    # print "DOMAINNAME of your site: [$Config::DOMAIN]\n";
    { # DNS AutoConfigure to set FQDN and DOMAINNAME;
        local(@n, $hostname, $list);
        chop($hostname = `hostname --fqdn`);
        $autoFQDN = $hostname;
        @n    = (gethostbyname($hostname))[0,1]; $list .= " @n ";
        @n    = split(/\./, $hostname); $hostname = $n[0]; # beth.dom -> beth
        @n    = (gethostbyname($hostname))[0,1]; $list .= " @n ";
	
        foreach (split(/\s+/, $list)) { /^$hostname\.\w+/ && ($FQDN = $_);}
        $autoFQDN       =~ s/\.$//; # for e.g. NWS3865
	$autoDOMAINNAME = $autoFQDN;
	$autoDOMAINNAME =~ s/^$hostname\.//;
    }
    if ($Config::FQDN eq '' || $Config::FQDN eq 'FQDN' 
	|| $Config::FQDN !~ /\./) {
	$FQDN = $autoFQDN;
    } else {
	$FQDN = $Config::FQDN;
    }
    if ($Config::DOMAIN eq '' || $Config::DOMAIN eq 'DOMAIN_NAME' 
	|| $Config::DOMAIN !~ /\./) {
	$DOMAINNAME = $autoDOMAINNAME;
    } else {
	$DOMAINNAME = $Config::DOMAIN;
    }
    if (0 && $interactive) {
	print "FQDN of your host? [$FQDN]";
	chop($_ = <STDIN>);
	if ($_ ne "") {
	    $FQDN = $_;
	}
	
	$DOMAINNAME = $FQDN;
	$DOMAINNAME =~ s/^$hostname\.//;
	print "DOMAINNAME of your site? [$DOMAINNAME]";
	chop($_ = <STDIN>);
	if ($_ ne "") {
	    $DOMAINNAME = $_;
	}
    } else {
	print "FQDN of your host: [$FQDN]\n";
	print "DOMAINNAME of your site: [$DOMAINNAME]\n";
    }
    my ($arch) = `dpkg --print-installation-architecture`;
    chop($arch);
    
    $Config::FQDN = $FQDN;
    $Config::DOMAIN = $DOMAINNAME;
    %Config::OS_TYPE = ($Config::FQDN, 'LINUX');
    %Config::CPU_TYPE_MANUFACTURER_OS = ($Config::FQDN, "$arch-linux-gnu");
    $Config::TZ = &ProbeTZ; # XXX
    $Config::EXEC_DIR = '/usr/share/fml';
    $Config::ML_DIR = '/var/spool/ml';
    $Config::GROUP = 'list';
    $Config::LANGUAGE = $Config::LANGUAGE || 'English';
    &saveConfig;
}

sub resetConfigurations {
    $FML_CONFIG = "debian/fml/usr/share/fml/.fml/system";
    &loadConfig;
    $Config::FQDN = 'FQDN';
    $Config::DOMAIN = 'DOMAINNAME';
    %Config::OS_TYPE = ($Config::FQDN, 'LINUX');
    %Config::CPU_TYPE_MANUFACTURER_OS = ($Config::FQDN, 'any-pc-linux-gnu'); # XXX
    $Config::EXEC_DIR = '/usr/share/fml';
    $Config::ML_DIR = '/var/spool/ml';
    $Config::GROUP = 'list';
    $Config::LANGUAGE = $Config::LANGUAGE || 'English';
    # print STDERR &Dumpvar('Config');
    &saveConfig;
}
##

sub ProbeTZ
{
    local($flag, @x, @p);
    local($time) = 3931200;

    @x = gmtime($time);
    @p = localtime($time);

    if ($p[2] - $x[2] != 0) {
	$flag = ($p[2] - $x[2] > 0) ? "+" : "-";
    }
    # +0000 or [+-]0030 ?
    else {
	$flag = ($p[1] - $x[1] >= 0) ? "+" : "-";
    }

    sprintf("%1s%02d%02d", $flag, &ABS($p[2] - $x[2]), &ABS($p[1] - $x[1]));
}

sub ABS { $_[0] < 0 ? - $_[0] : $_[0];}

package dumpvar;

sub main'Dumpvar 
{
    ($package, @vars) = @_;

    $package = 'Config';

    if ($] =~ /5\.\d\d\d/) { 
	*stab = *{"${package}::"}; # syntax Error? but this {} is required;
    }
    else {
	(*stab) = eval("*_$package");
    }

    while (($key, $val) = each(%stab)) {
	{
	    # $_ form
	    next if $key =~ /^_/;

	    next if @vars && !grep($key eq $_,@vars);
	    local(*entry) = $val;

	    if (defined $entry) {
		$buf .= "\$$key = '$entry';\n";
	    }

	    if (defined @entry) {
		$buf .= "\@$key = (\n";
		foreach $num ($[ .. $#entry) {
		    $buf .= "  $num\t'$entry[$num]'\n";
		}
		$buf .= ");\n";
1	    }

	    if ((($] !~ /5\.\d\d\d/) && 
		 $key ne "_$package" && $key ne "_DB" && defined %entry
		 )
		||
		(($] =~ /5\.\d\d\d/) && 
		 $key ne "$package::" && $key ne "DB::" && 
		 (defined %entry) && 
		 ($dumpPackages || $key !~ /::$/)
		 && ($key !~ /^_</ || $dumpDBFiles)
		 && !($package eq "dumpvar" && $key eq "stab")
		 )
		) {

		$buf .= "\%$key = (\n";
		foreach $key (sort keys(%entry)) {
		    $buf .= "\t '$key', '$entry{$key}', \n";
		}
		$buf .= ");\n";
	    }
	}
    }

    return $buf;
}

# here is in "package dumpvar";