#######################################################################
BEGIN {
- push(@INC, "modules");
+ unshift @INC, "modules/YAML"; # Use our own version of YAML.
+ push @INC, "modules"; # Only use our own versions of modules if there's no system version.
}
# setup defaults, DO NOT CHANGE
$pos = rindex $0, '/';
$script = substr($0, $pos + 1);
+$form->{login} =~ s|.*/||;
+
if (-e "$userspath/nologin" && $script ne 'admin.pl') {
print "content-type: text/plain