view release on metacpan or  search on metacpan

ec  view on Meta::CPAN

#!/usr/bin/perl 

#my $RCSRevKey = '$Revision: 1.7 $'; $RCSRevKey =~ /Revision: (.*?) /;

$VERSION = "1.28";

use Fcntl;
use IO::Handle;
use Tk;
use Tk::widgets qw (TextUndo Listbox Frame CmdLine);
use Tk::SimpleFileSelect;
use Tk::ECWarning;
use EC::ECConfig;
use EC::Attachments;
use EC::Utilities;
use EC::ECIcon;

#
# Get user info
#
my $localuser = $^O =~ /Win/ ? $ENV{USERNAME} : (getpwuid ($<))[0] or 
    die "Could not determine your login name: $!\n";

#
#  Path names for library files.  Edit these for your configuration.
#
# Icon file name
$iconpath = inc_path ('EC/ec.xpm');
#  Configuration options file.
$cfgfilename = expand_path ('~/.ec/.ecconfig');
# Server authorization file.
$serverfilename = expand_path ('~/.ec/.servers');

$headerid = "X-Mailer: EC E-Mail Client Version $VERSION";

my $datesortorder;

# Default directory for user's file opens and saves.
my $defaultuserdir;

# User's system mailbox: Usually $config->{mailspooldir} + username.
my $systemmbox;

#
#  Get X resources from ~/.Xresources, ~/.Xdefaults, or ~/Ec
#
Tk::CmdLine::SetArguments(-class => Ec);
Tk::CmdLine::LoadResources(-file => "$ENV{HOME}/.Xdefaults");
Tk::CmdLine::LoadResources(-file => "$ENV{HOME}/.Xresources");
Tk::CmdLine::LoadResources ();

#
#  Check for configuration files.
#
if ((!-d $ENV{HOME}.'/.ec') || 
    (!-f $cfgfilename) || 
    (!-f $serverfilename)) {
    print "\nConfiguration Problem:\n";
    print "The program could not find the following configuration files:\n";
    print "1. $cfgfilename\n";
    print "2. $serverfilename\n";
    print "Refer to the file, \"README,\" and ".
	"the manual page (\"man ec\").\n";
    exit 255;
}

#
# Config hash reference.  Refer to EC::ECConfig.pm
#
my $config = EC::ECConfig::new ($cfgfilename); 

#
# Override X font resources if fonts are defined in $config
# $menufont provides the default font setting
#
Tk::CmdLine::SetResources ('*font: ' . $config -> {menufont}) 
    if defined $config -> {menufont};

Tk::CmdLine::SetResources ('*Listbox*font: ' . $config -> {listfont})
    if defined $config -> {listfont};