Shell Programming and Scripting

maillistjoiner maillist etradedatafile

#! /usr/bin/perl

use strict;
use warnings;
use File::Basename;

$/ = "\n\n";
$\ = "\n";

my %MAILLIST;
my @FIELDLIST = qw{ etDefaultLogin eradesmtpemail employeeNumber };

# data parse

sub parse($) {
    my $X = {};

    foreach my $entry (split /\n/, $_[0]) {
        my ($key, $value) = $entry =~ m{^\s*([^=]+)=(\S+)};
        next unless defined $key;

        $X->{$key} = $value;
    };

    return $X;
}

# Read maillist

my $list = shift(@ARGV);
die unless defined $list;

open FH, '<', $list;

while (<FH>) {
    my $X = parse($_);

    unless (defined $X->{eruid}) {
    #   print STDERR $list, '(', $., '): missing eruid';
        next;
    }

    unless (defined $X->{eradesmtpemail}) {
        print STDERR $list, '(', $., '): missing eradesmtpemail for ', $X->{eruid};
        next;
    }

    $MAILLIST{$X->{eruid}} = $X->{eradesmtpemail};
}

close FH;

# Read datafile

my $data = shift(@ARGV);
die unless defined $data;

open FH, '<', $data;

while (<FH>) {
    my $X = parse($_);

    unless (defined $X->{etDefaultLogin}) {
    #   print STDERR $data, '(', $., '): missing etDefaultLogin';
        next;
    }

    if (defined $MAILLIST{$X->{etDefaultLogin}}) {
        $X->{eradesmtpemail} = $MAILLIST{$X->{etDefaultLogin}};
    }
    else {
        $X->{eradesmtpemail} = $X->{mail};
    }

    foreach my $key (@FIELDLIST) {
        if (defined $X->{$key}) {
            print $key, '=', $X->{$key};
        }
    }

    print $\;
}

close FH;