#!/opt/bin/perl5

require 5.001;

###########################################################################
#                                                                         #
# Program to set up the elm signature and header file for the caller      #
#                                                                         #
###########################################################################
#                                                                         #
#    Version 1.0     -   Written 03.01.96 by Steffen Beyer                #
#                                                                         #
###########################################################################
#                                                                         #
#    Copyright (C) 1995 by software design & management GmbH & Co. KG     #
#                                                                         #
###########################################################################

# Some defaults:

$version = "version 1.0";

$self = $0;
$self =~ s!^.*/!!;

# Who is calling me?

($user,$passwd,$uid,$gid,$quota,$comment,$name,$dir,$shell) = getpwuid($<);

$signature = "$dir/.signature";
$header = "$dir/.elm/elmheaders";
$elmrc = "$dir/.elm/elmrc";

$fullname = $name;
$fullname =~ s/^\s*//;
$fullname =~ s/\s*$//;
$fullname =~ s/[\t\r\n\f]/ /g;
$fullname =~ s/  +/ /g;
$fullname =~ s/\s*\(.*\)\s*$//;
$mailname = $fullname;
$mailname =~ s/^Dr[\.\s]\s*//;
$fullname =~ s/^Dr[\.\s]\s*/Dr. /;
#$mailname =~ tr/A-Z/a-z/;
$mailname =~ s/ /./;
$mailname .= "\@sdm.de";

if (length($mailname) > 25)
{
    $mailname = "$user\@sdm.de";
}

$mailaddr = sprintf("%-25.25s", $mailname);
$tel_addr = "Tel: (+49 89) 63812-???  ";
$fax_addr = "Fax: (+49 89) 63812-150  ";
#            123456789_123456789_123456789_

if (-f $signature)
{
    unless (rename($signature,"$signature.bak"))
    {
        die "$self: can't rename file '$signature' to '$signature.bak': $!\n";
    }
}

unless (open(SIGNATURE, ">$signature"))
{
    die "$self: can't write file '$signature': $!\n";
}

print SIGNATURE <<"VERBATIM";
--
$fullname
$mailaddr |s  |d &|m  | software design & management GmbH&Co.KG
$tel_addr |   |   |   | Thomas-Dehler-Str. 27
$fax_addr |   |   |   | 81737 Munich, Germany
VERBATIM

close(SIGNATURE);

if (-f $header)
{
    unless (rename($header,"$header.bak"))
    {
        die "$self: can't rename file '$header' to '$header.bak': $!\n";
    }
}

unless (open(HEADER, ">$header"))
{
    die "$self: can't write file '$header': $!\n";
}

print HEADER <<"VERBATIM";
From: $user\@sdm.de ($fullname)
Reply-To: $user\@sdm.de
Organization: sd&m GmbH & Co. KG Munich, Germany
VERBATIM

close(HEADER);

unless (open(RELMRC, "<$elmrc"))
{
    die "$self: can't read file '$elmrc': $!\n";
}
unless (rename($elmrc,"$elmrc.bak"))
{
    die "$self: can't rename file '$elmrc' to '$elmrc.bak': $!\n";
}
unless (open(WELMRC, ">$elmrc"))
{
    die "$self: can't write file '$elmrc': $!\n";
}

while (<RELMRC>)
{
    if (/^\s*fullname\s+=/)
    {
        $_ = "fullname = $fullname\n";
    }
    print WELMRC;
}

close(RELMRC);
close(WELMRC);

__END__