#!/usr/bin/perl -w # # $Id$ # ############################################################################ # The following preferences may be modified to match the local environment # ############################################################################ # Directory with the users data. $TMPDIR = '/tmp/asn1c-cgi-jail/'; $SUIDHelper = './asn1c-suid-helper'; $SkeletonsDir = '/usr/local/share/asn1c'; # Will be needed only once $CompilerLocation = '/usr/local/bin/asn1c'; # asn1c binary location $HelpDBFile = $TMPDIR . '/var/db/Help-DB'; # Help requests database $HashProgramPath = 'md5'; # Program to hash the input $DM = 0750; # Directory mode for all mkdirs $MaxHistoryItems = 5; # Number of items in History $DynamicHistory = 'yes'; # Full/Short history $safeFilename = '^[a-z0-9_-]+[.a-z0-9_-]*$'; # Safe filename $ASN1C_Page = 'http://lionet.info/asn1c'; $HelpEmail = 'asn1c@lionet.info'; $defaultUserEmail = 'your@email-for-reply'; $warn = '
"; ################################################### # The code below rarely requires any modification # ################################################### use CGI qw/param cookie header upload escapeHTML/; $|=1; # Enable AutoFlush (for older versions of Perl) my $redirect = ''; # No redirection by default my $redirect_bottom = ''; # No redirection text by default my $content = ''; # Default content is empty sub IssueRedirect() { $redirect = ""; $redirect_bottom = "
Analysis:
"; $results .= join(""; $results .= "(Hide full text)"; } else { $results .= "
", @resp); $results .= "
Analysis: $resp[0]
";
$results .= "(Show full text)";
}
} elsif($eml) {
$results .= "
"
. "Status: manual help requested
"
. " by $eml,
"
. "expect results in a few hours.";
} else {
$results .= '
'
. "To get free help, leave a return address:
"
. "
"
. ""
. ''
. ''
;
$atLeastOneError = 1;
}
}
$trColor = ' BGCOLOR=#f8f8f8';
$trColor = ' BGCOLOR=#d0ffe0' unless($CountHistoryItems);
$tNum = '' . $tNum . '' unless($CountHistoryItems);
$history .= "
"
. "
|
\n"
. "ASN.1 Input\n" . "$form" . " | $history \n" . " |
" . "Privacy Note: this page is tailored " . "to your browser using a cryprographically strong cookie. " . "Other users will see their own (different) data. " . "(Read more...)" . "" . " |