package TDS::System;
# $Id: System.pm,v 1.33 2000/12/15 11:44:40 tom Exp $
################################################################


=head1 NAME

TDS::System - システム変数群

=head1 DESCRIPTION

設定により変わり得るシステム変数を保持する。
他の TDS クラスから直にアクセスされる。
conf.ph により変更可能。

=head1 STATIC VARIABLES

ソースを直接参照のこと。

=cut

use Skelton;

$| = 1;

# conf.ph によって上書きされる（はず）

# site setting
$CanUseCGI = 0;
$CanUseSSI = 0;
$PerlPath = "/usr/local/bin/perl";
$SendmailPath = "/usr/sbin/sendmail";
#$EnableModperl = 0;             # tds-1.01-beta4 より廃止
#$CGIasOwner = 0;                # tds-1.01-beta4 より廃止
$TZ = "JST";
$TDS_Root = "";
&Skelton::SetInternalJcode($InternalJcode = 'euc');

sub GetInternalJcode
{
    return $InternalJcode;
}
1;
