#!/usr/iports/bin/perl

BEGIN {
        if(-e '/etc/sudoers'){

                my $osversion = `/usr/bin/uname -K`;
                chomp $osversion;

		if($osversion >= 1300000){
			@INC = ('/usr/iports/lib/perl5/5.34','/usr/iports/lib/perl5/5.34/mach','/usr/iports/lib/perl5/site_perl','/usr/iports/lib/perl5/site_perl/mach/5.34','/usr/local/www/apache24/cgi-bin/easytecc4');
		} elsif($osversion >= 1200000){
                        @INC = ('/usr/iports/lib/perl5/5.26','/usr/iports/lib/perl5/5.26/mach','/usr/iports/lib/perl5/site_perl','/usr/iports/lib/perl5/site_perl/mach/5.26','/usr/local/www/apache24/cgi-bin/easytecc4');
                } elsif($osversion >= 1003000){
                        @INC = ('/usr/iports/lib/perl5/5.24','/usr/iports/lib/perl5/5.24/mach','/usr/iports/lib/perl5/site_perl','/usr/iports/lib/perl5/site_perl/mach/5.24','/usr/local/www/apache24/cgi-bin/easytecc4');
                } else {
                        @INC = ('/usr/iports/lib/perl5/5.20','/usr/iports/lib/perl5/5.20/mach','/usr/iports/lib/perl5/site_perl','/usr/iports/lib/perl5/site_perl/mach/5.20','/usr/local/www/apache24/cgi-bin/easytecc4');
                }

        } else {
                push @INC, '/home/httpd/cgi-bin/easytecc4';
        }
}

# use a shell that knows about STDERR
$ENV{'SHELL'} = '/bin/sh';

$webpid = $ARGV[0];
$webpid =~ s/[^\d]//g;

my $output = `/bin/cat /tmp/webalias.$webpid > /etc/mail/aliases`;
chomp $output;

print $output;

exit(0);