Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;

...
eval 'use constant POST_MAXLENGTH => 8192' unless(defined(&POST_MAXLEN
+GTH));

1;
  2. or download this
    my $dir = dirname($ENV{"SCRIPT_FILENAME"})."/";
require("$dir.config_defaults.pl");
  3. or download this
    &error("Subject is too long/empty.") if (length $$subject > &SUBJECT_M
+AXLENGTH || ($$subject eq "" && $mode eq "post"));
  4. or download this
    [error] -e: Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::[v
+ery long fullpath]post_2epl::SUBJECT_MAXLENGTH called at (eval 50) li
+ne 195.\n