# Another HTML-lint Ķե
#   ***ե̾ htmllint.env ˲̾Ƥ***
#   Υե htmllint.cgitagslist.cgi ɤ߹ߤޤ
#   htmllint.pm ⡢Υե뤬ɤ߹ߤޤʤƤưޤ
#   򤦤ޤפơ¾ͤ鸫ʤ褦ˤƤ

# CGI ѥǥ쥯ȥ (ХѥCGIХѥǻꡢʤ٤ХѥˤƤ)
$RULEDIR  = './';        # §եξ
#$LOGSDIR = './logs/';   # եξ (פʤ饳ȥ)
$TMPDIR   = '/tmp/';     # ƥݥեξ
$IMGDIR   = './';        # ᡼եξ
$TAGSLIST = '';          # åѤξ (ʤ饭å夷ʤ)
                         # ꤹȤϥŬͿƤ

# HTML ѥǥ쥯ȥ (CGI Ϥ HTML ǻȤ)
$HTMLDIR    = './';                     # HTMLեξ
$GATEWAYURL = $HTMLDIR.'htmllint.html'; # ȥ HTML
$EXPLAIN    = $HTMLDIR.'explain.html';  #  HTML (HTML)
$CGIROOT    = $HTMLDIR;                 # CGIξ
$IMGROOT    = $HTMLDIR;                 # ᡼եξ

# 󥯥롼ɥѥɲ
unshift @INC, '.', $RULEDIR;

# ǥեȵ§ե (Windows/MacǤ . Ϥޤե̵)
$HTMLLINTRC = '.htmllintrc';

# HTMLեĥ (ɽ)
$HTMLEXT = 'html?|[sp]ht(ml?)?';

# index.html (ɽ)
$INDEXHTML = "index\\.($HTMLEXT)";

# ɥᥤ (פʤ饳ȥ)
# IPǻꤹȤ 192.168.1.64/26 Τ褦˥ޥ꤬Ǥޤ
# IP 0 ξ硢㤨 192.168.0.0/16 ΤȤ /16 פǤ
# ̾ΤȤбIP̤ꤷƤޤȤդƤ
# IPǻꤹϡŬѾ񤯤ȤǤޤ
# 㤨С192.168.1.0/24 ˤڡ 192.168.1.0/24 ʳ
# åʤϡ192.168.1.0/24!192.168.1.0/24 Ƚ񤯤ȤǤޤ
# ޤ192.168.1.0/24 Υڡ 192.168.1.64/26 鸡ʤ
# 192.168.1.0/24*192.168.1.64/26 Ƚ񤯤ȤǤޤ
# IP¾Υɥᥤˤ񤯤ȤǤޤ
#@EXCEPTDOMAINS = qw(uso800.ac.jp);

# ɥᥤ (פʤ饳ȥ)
# @EXCEPTDOMAINSǤҤääƤ⡢ǻꤷƤɥᥤȤʤޤ
#@PERMITDOMAINS = qw(fake.uso800.ac.jp www.uso800.ac.jp);

# ץ饤IP (ػߤȤȥ)
#$PERMITPRIVATEIP = 1;

# LWP  Jcode.pm λѤ¤ (¤ȤȤ򳰤)
#$NOUSELWP = 1;
#$NOUSEJCODE = 1;

# httpreq.pl/LWP  HTML θ³ (KB) (0 ̵)
$MAXHTMLSIZE = 512;

# httpreq.pl/LWP ѥॢȻ () ( 180)
#$TIMEOUT = 3*60;

# httpreq.pl/LWP ѥץ (פʤ饳ȥ)
#$HTTP_PROXY = 'firewall:8080';

# httpreq.pl/LWP ѥΡץɥᥤꥹ (פʤ饳ȥ)
#@HTTP_NOPROXY = qw(noproxy domain names list);

# htmllint.cgi ǥեǤ褦ˤ (פʤ饳ȥ)
# Ǥեϡ饤ȾΥեǤϤʤƥоΥե
# ؤȤդƤ (ĤޤꡢեȤΤΤǤ)
# äơλϡ***ʥаʳǤϥƥǤ***
# λˤꡢfile:// ǻϤޤץȥ URL ˻Ǥ褦ˤʤޤ
# ֥饦ϡ򥯥饤ȾΥեȤƼޤǤϥо
# ΥեȤƼΤդƤ
# WindowsΥФǤϡC: Τ褦ʥɥ饤̾Ϥޤե̾⵭ҤǤޤ
#$GETLOCALFILE = 1;

# CGI Ϥ HTML δɤδ (ȥȤƤ)
#$KANJICODE = 'JIS';    # JIS/EUC/SJIS/UTF8 Τ줫

# Lynx (פ뤤̤ʤ饳ȥ)
#$LYNX = '/usr/local/bin/lynx -dump -nolist -force_html';

# w3m (פ뤤̤ʤ饳ȥ)
#   顼ǽΤʤ -M λԲ
#   -e  EUCShift JIS ʤ -s
#$W3M = '/usr/local/bin/w3m -dump -T text/html -M -e';

# Ͽѥե (פʤ饳ȥ)
#   # ʬǯ֤ޤ
#$SCOREFILE    = "${LOGSDIR}score#.log";
#$SCORECOUNTER = "${LOGSDIR}score.cnt";

# ٹѥե (פʤ饳ȥ)
#   # ʬǯ֤ޤ
#$STATFILE = "${LOGSDIR}statistics#.log";

# Ͽɥᥤ (פʤ饳ȥ)
#@EXCEPTSCORES = qw(uso800.ac.jp);

# Muquit's Access Counter CGI (פ뤤̤ʤ饳ȥ)
#$COUNTER = '/usr/local/www/cgi-bin/Count.cgi';

# ӥåؿ
# sub BusyCheck() {
#   ˤ礴ˤԤʤäơlint ʤȤǤʤΤ褦 *ʸ* ֤
#     q|ѺƤޤ⤦Ф餯ƤåƤ|;
#   ʸ 0 ֤ lint Ԥʤ
#    Perl ץȤǤ뤳
#   㤨мΤ褦ʤ
#   my $ps = `ps -axw`; ޤ `ps -efA`; ʤ
#   my $cnt = 0;
#   $cnt++ while $ps =~ m#/htmllint/htmllint.cgi#og;
#   ($cnt >= 100)? 'Ƥޤ': '';
# }

# ؿ
#sub EndProc() {
#    htmllint.cgi  END{} ǸƤФ
#}

1;
