#!/usr/bin/perl -Tw

eval 'exec /usr/bin/perl -Tw -S $0 ${1+"$@"}'
    if 0; # not running under some shell
#
# fs_mailadmind
#
# This is run REMOTELY over ssh by fs_mailadmin_server.
#

use strict;
use Socket;

use vars qw( $Debug );

$Debug = 0;

my($fs_mailadmind_socket)="/usr/local/freeside/fs_mailadmind_socket";

$ENV{'PATH'} ='/usr/local/bin:/usr/bin:/usr/ucb:/bin';
$ENV{'SHELL'} = '/bin/sh';
$ENV{'IFS'} = " \t\n";
$ENV{'CDPATH'} = '';
$ENV{'ENV'} = '';
$ENV{'BASH_ENV'} = '';

$|=1;

warn "[fs_mailadmind] Reading locales...\n" if $Debug;
chomp( my $n_cust_main_county = <STDIN> );
my @cust_main_county = map {
  chomp( my $taxnum = <STDIN> );
  chomp( my $state = <STDIN> );
  chomp( my $county = <STDIN> );
  chomp( my $country = <STDIN> );
  {
    'taxnum'  => $taxnum,
    'state'   => $state,
    'county'  => $county,
    'country' => $country,
  };
} ( 1 .. $n_cust_main_county );

warn "[fs_mailadmind] Reading package definitions...\n" if $Debug;
chomp( my $n_part_pkg = <STDIN> );
my @part_pkg = map {
  chomp( my $pkgpart = <STDIN> );
  chomp( my $pkg = <STDIN> );
  {
    'pkgpart' => $pkgpart,
    'pkg'     => $pkg,
  };
} ( 1 .. $n_part_pkg );

warn "[fs_mailadmind] Reading POPs...\n" if $Debug;
chomp( my $n_svc_acct_pop = <STDIN> );
my @svc_acct_pop = map {
  chomp( my $popnum = <STDIN> );
  chomp( my $city = <STDIN> );
  chomp( my $state = <STDIN> );
  chomp( my $ac = <STDIN> );
  chomp( my $exch = <STDIN> );
  chomp( my $loc = <STDIN> );
  {
    'popnum' => $popnum,
    'city'   => $city,
    'state'  => $state,
    'ac'     => $ac,
    'exch'   => $exch,
    'loc'    => $loc,
  };
} ( 1 .. $n_svc_acct_pop );

warn "[fs_mailadmind] Creating $fs_mailadmind_socket\n" if $Debug;
my $uaddr = sockaddr_un($fs_mailadmind_socket);
my $proto = getprotobyname('tcp');
socket(Server,PF_UNIX,SOCK_STREAM,0) or die "socket: $!";
unlink($fs_mailadmind_socket);
bind(Server, $uaddr) or die "bind: $!";
listen(Server,SOMAXCONN) or die "listen: $!";

warn "[fs_mailadmind] Entering main loop...\n" if $Debug;
my $paddr;
for ( ; $paddr = accept(Client,Server); close Client) {

  chop( my $command = <Client> );

  if ( $command eq "signup_info" ) {
    warn "[fs_mailadmind] sending signup info...\n" if $Debug; 
    print Client join("\n", $n_cust_main_county,
      map {
        $_->{taxnum},
        $_->{state},
        $_->{county},
        $_->{country},
      } @cust_main_county
    ), "\n";

    print Client join("\n", $n_part_pkg,
      map {
        $_->{pkgpart},
        $_->{pkg},
      } @part_pkg
    ), "\n";

    print Client join("\n", $n_svc_acct_pop,
      map {
        $_->{popnum},
        $_->{city},
        $_->{state},
        $_->{ac},
        $_->{exch},
        $_->{loc},
      } @svc_acct_pop
    ), "\n";

  } elsif ( $command eq "new_customer" ) {
    warn "[fs_mailadmind] reading customer signup...\n" if $Debug;
    my(
      $first, $last, $ss, $company, $address1, $address2, $city, $county,
      $state, $zip, $country, $daytime, $night, $fax, $payby, $payinfo,
      $paydate, $payname, $invoicing_list, $pkgpart, $username, $password,
      $popnum,
    ) = map { scalar(<Client>) } ( 1 .. 23 );

    warn "[fs_mailadmind] sending customer data to remote server...\n" if $Debug;
    print 
      $first, $last, $ss, $company, $address1, $address2, $city, $county,
      $state, $zip, $country, $daytime, $night, $fax, $payby, $payinfo,
      $paydate, $payname, $invoicing_list, $pkgpart, $username, $password,
      $popnum,
    ;

    warn "[fs_mailadmind] reading error from remote server...\n" if $Debug;
    my $error = <STDIN>;

    warn "[fs_mailadmind] sending error to local client...\n" if $Debug;
    print Client $error;

  } elsif ( $command eq "authenticate" ) {
    warn "[fs_mailadmind] reading user information to auth...\n" if $Debug;
    chop( my $user = <Client> );
    warn "[fs_mailadmind] reading authentication material...\n" if $Debug;
    chop( my $password = <Client> );
    warn "[fs_mailadmind] sending information to remote server...\n" if $Debug;
    print "authenticate\n", $user, "\n", $password, "\n";

    warn "[fs_mailadmind] reading error from remote server...\n" if $Debug;
    my $error = <STDIN>;

    warn "[fs_mailadmind] sending error to local client...\n" if $Debug;
    print Client $error;
    
  } elsif ( $command eq "list_packages" ) {
    warn "[fs_mailadmind] reading user information to list_packages...\n" if $Debug;
    chop( my $user = <Client> );
    warn "[fs_mailadmind] sending user information to remote server...\n" if $Debug;
    print "list_packages\n", $user, "\n";

    warn "[fs_mailadmind] reading data from remote server...\n" if $Debug;
    chomp( my $n_packages = <STDIN> );
    my @packages = map {
      chomp( my $pkgnum  = <STDIN> );
      chomp( my $domain  = <STDIN> );
      chomp( my $account = <STDIN> );
      {
        'pkgnum'  => $pkgnum,
        'domain'  => $domain,
        'account' => $account,
      };
    } ( 1 .. $n_packages );

    warn "[fs_mailadmind] sending data to local client...\n" if $Debug;

    print Client join("\n", $n_packages,
      map {
        $_->{pkgnum},
        $_->{domain},
        $_->{account},
      } @packages
    ), "\n";

  } elsif ( $command eq "list_mailboxes" ) {
    warn "[fs_mailadmind] reading user information to list_mailboxes...\n" if $Debug;
    chop( my $user = <Client> );
    warn "[fs_mailadmind] reading package number to list_mailboxes...\n" if $Debug;
    chop( my $package = <Client> );
    warn "[fs_mailadmind] sending user information to remote server...\n" if $Debug;
    print "list_mailboxes\n", $user, "\n", $package, "\n";

    warn "[fs_mailadmind] reading data from remote server...\n" if $Debug;
    chomp( my $n_svc_acct = <STDIN> );
    my @svc_acct = map {
      chomp( my $svcnum = <STDIN> );
      chomp( my $username = <STDIN> );
      chomp( my $_password = <STDIN> );
      {
        'svcnum' => $svcnum,
        'username' => $username,
        '_password'     => $_password,
      };
    } ( 1 .. $n_svc_acct );

    warn "[fs_mailadmind] sending data to local client...\n" if $Debug;

    print Client join("\n", $n_svc_acct,
      map {
        $_->{svcnum},
        $_->{username},
        $_->{_password},
      } @svc_acct
    ), "\n";

  } elsif ( $command eq "delete_mailbox" ) {
    warn "[fs_mailadmind] reading user information to auth...\n" if $Debug;
    chop( my $user = <Client> );
    warn "[fs_mailadmind] reading account information to delete...\n" if $Debug;
    chop( my $account = <Client> );
    warn "[fs_mailadmind] sending information to remote server...\n" if $Debug;
    print "delete_mailbox\n", $user, "\n", $account, "\n";

    warn "[fs_mailadmind] reading error from remote server...\n" if $Debug;
    my $error = <STDIN>;

    warn "[fs_mailadmind] sending error to local client...\n" if $Debug;
    print Client $error;

  } elsif ( $command eq "password_mailbox" ) {
    warn "[fs_mailadmind] reading user information to auth...\n" if $Debug;
    chop( my $user = <Client> );
    warn "[fs_mailadmind] reading account information to password...\n" if $Debug;
    my(
      $account, $_password,
    ) = map { scalar(<Client>) } ( 1 .. 2 );

    warn "[fs_mailadmind] sending password data to remote server...\n" if $Debug;
    print "password_mailbox", "\n";
    print 
      $user, "\n", $account, $_password,
    ;

    warn "[fs_mailadmind] reading error from remote server...\n" if $Debug;
    my $error = <STDIN>;

    warn "[fs_mailadmind] sending error to local client...\n" if $Debug;
    print Client $error;

  } elsif ( $command eq "add_mailbox" ) {
    warn "[fs_mailadmind] reading user information to auth...\n" if $Debug;
    chop( my $user = <Client> );
    warn "[fs_mailadmind] reading account information to create...\n" if $Debug;
    my(
      $package, $account, $_password,
    ) = map { scalar(<Client>) } ( 1 .. 3 );

    warn "[fs_mailadmind] sending service data to remote server...\n" if $Debug;
    print "add_mailbox", "\n";
    print 
      $user, "\n", $package, $account, $_password,
    ;

    warn "[fs_mailadmind] reading error from remote server...\n" if $Debug;
    my $error = <STDIN>;

    warn "[fs_mailadmind] sending error to local client...\n" if $Debug;
    print Client $error;

  } elsif ( $command eq "add_forward" ) {
    warn "[fs_mailadmind] reading user information to auth...\n" if $Debug;
    chop( my $user = <Client> );
    warn "[fs_mailadmind] reading forward information to create...\n" if $Debug;
    my(
      $package, $source, $dest,
    ) = map { scalar(<Client>) } ( 1 .. 3 );

    warn "[fs_mailadmind] sending service data to remote server...\n" if $Debug;
    print "add_forward", "\n";
    print 
      $user, "\n", $package, $source, $dest,
    ;

    warn "[fs_mailadmind] reading error from remote server...\n" if $Debug;
    my $error = <STDIN>;

    warn "[fs_mailadmind] sending error to local client...\n" if $Debug;
    print Client $error;

  } elsif ( $command eq "delete_forward" ) {
    warn "[fs_mailadmind] reading user information to auth...\n" if $Debug;
    chop( my $user = <Client> );
    warn "[fs_mailadmind] reading forward information to delete...\n" if $Debug;
    chop( my $service = <Client> );
    warn "[fs_mailadmind] sending information to remote server...\n" if $Debug;
    print "delete_forward\n", $user, "\n", $service, "\n";

    warn "[fs_mailadmind] reading error from remote server...\n" if $Debug;
    my $error = <STDIN>;

    warn "[fs_mailadmind] sending error to local client...\n" if $Debug;
    print Client $error;

  } elsif ( $command eq "list_forwards" ) {
    warn "[fs_mailadmind] reading user information to list_forwards...\n" if $Debug;
    chop( my $user = <Client> );
    warn "[fs_mailadmind] reading service number to list_forwards...\n" if $Debug;
    chop( my $service = <Client> );
    warn "[fs_mailadmind] sending user information to remote server...\n" if $Debug;
    print "list_forwards\n", $user, "\n", $service, "\n";

    warn "[fs_mailadmind] reading data from remote server...\n" if $Debug;
    chomp( my $n_svc_forward = <STDIN> );
    my @svc_forward = map {
      chomp( my $svcnum = <STDIN> );
      chomp( my $dest = <STDIN> );
      {
        'svcnum' => $svcnum,
        'dest' => $dest,
      };
    } ( 1 .. $n_svc_forward );

    warn "[fs_mailadmind] sending data to local client...\n" if $Debug;

    print Client join("\n", $n_svc_forward,
      map {
        $_->{svcnum},
        $_->{dest},
      } @svc_forward
    ), "\n";

  } elsif ( $command eq "list_pkg_forwards" ) {
    warn "[fs_mailadmind] reading user information to list_pkg_forwards...\n" if $Debug;
    chop( my $user = <Client> );
    warn "[fs_mailadmind] reading service number to list_forwards...\n" if $Debug;
    chop( my $package = <Client> );
    warn "[fs_mailadmind] sending user information to remote server...\n" if $Debug;
    print "list_pkg_forwards\n", $user, "\n", $package, "\n";

    warn "[fs_mailadmind] reading data from remote server...\n" if $Debug;
    chomp( my $n_svc_forward = <STDIN> );
    my @svc_forward = map {
      chomp( my $svcnum = <STDIN> );
      chomp( my $srcsvc = <STDIN> );
      chomp( my $dest = <STDIN> );
      {
        'svcnum' => $svcnum,
        'srcsvc' => $srcsvc,
        'dest' => $dest,
      };
    } ( 1 .. $n_svc_forward );

    warn "[fs_mailadmind] sending data to local client...\n" if $Debug;

    print Client join("\n", $n_svc_forward,
      map {
        $_->{svcnum},
        $_->{srcsvc},
        $_->{dest},
      } @svc_forward
    ), "\n";

  } else {
    die "unexpected command from client: $command";
  }

}