use strict;
package RTF::Config;
use Exporter;
use vars qw(@EXPORT @ISA $OS $LOG_FILE $LOG_CMD);
@ISA = qw(Exporter);
@EXPORT = qw($LOG_CMD $LOG_FILE $OS);
# Some stuff borrowed to CGI.pm
unless ($OS) {
unless ($OS = $^O) {
require Config;
$OS = $Config::Config{'osname'};
}
}
if ($OS=~/Win/i) {
$OS = 'WINDOWS';
} elsif ($OS=~/vms/i) {
$OS = 'VMS';
} elsif ($OS=~/Mac/i) {
$OS = 'MACINTOSH';
} elsif ($OS=~/os2/i) {
$OS = 'OS2';
} else {
$ENV{'PATH'} = '/bin:/usr/bin';
$OS = 'UNIX';
$LOG_CMD = "| sort -d "; #$LOG_FILE";
}
1;
__END__