#!/usr/bin/perl
use strict;

eval 'use constant NAME_MAXLENGTH => 30' unless(defined(&NAME_MAXLENGTH));
eval 'use constant LINK_MAXLENGTH => 256' unless(defined(&LINK_MAXLENGTH));
eval 'use constant SUBJECT_MAXLENGTH => 256' unless(defined(&SUBJECT_MAXLENGTH));
eval 'use constant POST_MAXLENGTH => 8192' unless(defined(&POST_MAXLENGTH));

1;
##</code><code>##

my $dir = dirname($ENV{"SCRIPT_FILENAME"})."/";
require("$dir.config_defaults.pl");

##</code><code>##

&error("Subject is too long/empty.") if (length $$subject > &SUBJECT_MAXLENGTH || ($$subject eq "" && $mode eq "post"));

##</code><code>##

[error] -e: Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::[very long fullpath]post_2epl::SUBJECT_MAXLENGTH called at (eval 50) line 195.\n