Commit a1ec12f3 authored by Lev Walkin's avatar Lev Walkin

comments

parent 81c5fc5b
...@@ -20,7 +20,7 @@ $DynamicHistory = 'yes'; # Full/Short history ...@@ -20,7 +20,7 @@ $DynamicHistory = 'yes'; # Full/Short history
$safeFilename = '^[a-z0-9_-]+[.a-z0-9_-]*$'; # Safe filename $safeFilename = '^[a-z0-9_-]+[.a-z0-9_-]*$'; # Safe filename
$ASN1C_Page = 'http://lionet.info/asn1c'; $ASN1C_Page = 'http://lionet.info/asn1c';
$HelpEmail = 'asn1c@lionet.info'; $HelpEmail = 'asn1c@lionet.info';
$defaultUserEmail = 'your@email'; $defaultUserEmail = 'your@email-for-reply';
$warn = '<CENTER><FONT SIZE=+1><B>'; $warn = '<CENTER><FONT SIZE=+1><B>';
$unwarn = '</B></FONT></CENTER>'; $unwarn = '</B></FONT></CENTER>';
...@@ -169,7 +169,7 @@ if(defined($tmpEmail)) { ...@@ -169,7 +169,7 @@ if(defined($tmpEmail)) {
if($userEmail eq $defaultUserEmail) { if($userEmail eq $defaultUserEmail) {
IssueRedirect(); IssueRedirect();
bark("Please enter <FONT COLOR=red>your own</FONT> " bark("Please enter <FONT COLOR=red>your own</FONT> "
. "email address, " . "valid email address, "
. "instead of default \"<FONT COLOR=darkred>$defaultUserEmail</FONT>\""); . "instead of default \"<FONT COLOR=darkred>$defaultUserEmail</FONT>\"");
} }
if($userEmail ne $previousEmail) { if($userEmail ne $previousEmail) {
...@@ -406,10 +406,12 @@ $form = ...@@ -406,10 +406,12 @@ $form =
"<FORM METHOD=POST ACTION=$myName ENCTYPE=\"multipart/form-data\">" "<FORM METHOD=POST ACTION=$myName ENCTYPE=\"multipart/form-data\">"
. "Pick the ASN.1 module file:<BR>\n" . "Pick the ASN.1 module file:<BR>\n"
. "<INPUT TYPE=file NAME=file SIZE=35><BR clear=all>\n" . "<INPUT TYPE=file NAME=file SIZE=35><BR clear=all>\n"
. "Alternatively, enter the ASN.1 specification into the area below:<BR>\n" . "Or enter the ASN.1 module text into the following area:<BR>\n"
. "<TEXTAREA NAME=text ROWS=15 COLS=60>\n" . "<TEXTAREA NAME=text ROWS=16 COLS=60>\n"
. "/*\n" . "/*\n"
. " * This ASN.1 specification is given for illustrative purposes\n" . " * This ASN.1 specification is given for illustrative purposes.\n"
. " * Your own ASN.1 module must be properly formed too!\n"
. " * (Make sure it has BEGIN/END statements, etc.)\n"
. " */\n" . " */\n"
. "TestModule { iso org(3) dod(6) internet(1) private(4)\n" . "TestModule { iso org(3) dod(6) internet(1) private(4)\n"
. " 1 spelio(9363) software(1) asn1c(5) webcgi(2) 1 }\n" . " 1 spelio(9363) software(1) asn1c(5) webcgi(2) 1 }\n"
...@@ -424,12 +426,13 @@ $form = ...@@ -424,12 +426,13 @@ $form =
. "</TEXTAREA><BR>\n" . "</TEXTAREA><BR>\n"
. "<P>" . "<P>"
. "<FONT SIZE=-1>" . "<FONT SIZE=-1>"
. "These options may be enabled to control the compiler's behavior:<BR>\n" . "These options may be used to control the compiler's behavior:<BR>\n"
. "<INPUT TYPE=checkbox NAME=optDebugL> Debug lexer (<I>-Wdebug-lexer</I>)<BR>\n" . "<INPUT TYPE=checkbox NAME=optDebugL> Debug lexer (<I>-Wdebug-lexer</I>)<BR>\n"
. "<INPUT TYPE=checkbox NAME=optE> Just parse and dump (do not compile) (<I>-E</I>)<BR>\n" . "<INPUT TYPE=checkbox NAME=optE> Just parse and dump (do not compile) (<I>-E</I>)<BR>\n"
. "<INPUT TYPE=checkbox NAME=optEF> Parse, perform semantic checks, and dump (<I>-E -F</I>)<BR>\n" . "<INPUT TYPE=checkbox NAME=optEF> Parse, perform semantic checks, and dump (<I>-E -F</I>)<BR>\n"
. "<INPUT TYPE=checkbox NAME=optNT CHECKED=on> Employ native machine types (e.g. <b>double</b> instead of <b>REAL_t</b>) (<I>-fnative-types</I>)<BR>\n" . "<INPUT TYPE=checkbox NAME=optNT CHECKED=on> Employ native machine types (e.g. <b>double</b> instead of <b>REAL_t</b>) (<I>-fnative-types</I>)<BR>\n"
. "<INPUT TYPE=checkbox NAME=optCN> Prevent name clashes in compiled output (<I>-fcompound-names</I>)<BR>\n" . "<INPUT TYPE=checkbox NAME=optCN> Prevent name clashes in compiled output (<I>-fcompound-names</I>)<BR>\n"
. "<I>... the command line ASN.1 compiler, <A HREF=$ASN1C_Page>asn1c</A>, supports many other parameters</I>."
. "</FONT>" . "</FONT>"
. "<P>\n" . "<P>\n"
. "<INPUT TYPE=submit VALUE=\"Proceed with ASN.1 compilation\">" . "<INPUT TYPE=submit VALUE=\"Proceed with ASN.1 compilation\">"
...@@ -487,8 +490,11 @@ foreach my $trans (sort { $b cmp $a } @transactions) { ...@@ -487,8 +490,11 @@ foreach my $trans (sort { $b cmp $a } @transactions) {
$results = "<FONT COLOR=darkgreen><B>" $results = "<FONT COLOR=darkgreen><B>"
. "Compiled OK</B></FONT><BR>\n"; . "Compiled OK</B></FONT><BR>\n";
} else { } else {
$results = "<FONT COLOR=darkred>" my $why = $ec;
. "Error during compilation: $ec</FONT><BR>\n"; $why = "<NOBR>Invalid input file</NOBR>" if $ec == 65;
$results = "<FONT COLOR=darkred SIZE=-1>"
. "<NOBR>ASN.1 compiler error:</NOBR> "
. "$why</FONT><BR>\n";
} }
$allowFetchResults = $ec eq "0" $allowFetchResults = $ec eq "0"
...@@ -507,7 +513,7 @@ foreach my $trans (sort { $b cmp $a } @transactions) { ...@@ -507,7 +513,7 @@ foreach my $trans (sort { $b cmp $a } @transactions) {
. escapeHTML($origTime) . escapeHTML($origTime)
. "&file=$f" . "&file=$f"
. "&show=tgz\">" . "&show=tgz\">"
. "Fetch results (.tgz)</A></NOBR>" . "Fetch compiled C sources (.tgz)</A></NOBR>"
if $allowFetchResults; if $allowFetchResults;
if($ec ne "0") { if($ec ne "0") {
local ($eml, @resp); local ($eml, @resp);
...@@ -533,6 +539,7 @@ foreach my $trans (sort { $b cmp $a } @transactions) { ...@@ -533,6 +539,7 @@ foreach my $trans (sort { $b cmp $a } @transactions) {
. "expect results in a few hours.<B></FONT>"; . "expect results in a few hours.<B></FONT>";
} else { } else {
$results .= '<P>' $results .= '<P>'
. "<FONT SIZE=-2>To get free help, leave a return address:</FONT><BR>"
. "<INPUT TYPE=text NAME=email VALUE=\"$userEmail\"><BR>" . "<INPUT TYPE=text NAME=email VALUE=\"$userEmail\"><BR>"
. "<INPUT TYPE=hidden NAME=transHelp VALUE=\"$tNum--$trans\">" . "<INPUT TYPE=hidden NAME=transHelp VALUE=\"$tNum--$trans\">"
. '<INPUT TYPE=Submit VALUE="Help me fix it!">' . '<INPUT TYPE=Submit VALUE="Help me fix it!">'
...@@ -603,7 +610,7 @@ if($history) { ...@@ -603,7 +610,7 @@ if($history) {
. "<FONT COLOR=darkred><B>Bottom line:</B> ASN.1 compiler was unable to process some of the input files.</FONT><BR>" . "<FONT COLOR=darkred><B>Bottom line:</B> ASN.1 compiler was unable to process some of the input files.</FONT><BR>"
. "This is typically caused by syntax errors in the input files.\n" . "This is typically caused by syntax errors in the input files.\n"
. "Such errors are normally fixed by removing or adding a couple of characters in the ASN.1 module.<BR>\n" . "Such errors are normally fixed by removing or adding a couple of characters in the ASN.1 module.<BR>\n"
. "<BR><B><FONT COLOR=darkred>Please consider clicking on an appropriate &quot;<I>Help me fix it!</I>&quot; link above.</FONT></B><BR>\n" . "<BR><B><FONT COLOR=darkred>Please consider clicking on the appropriate &quot;<I>Help me fix it!</I>&quot; button above.</FONT></B><BR>\n"
. "An email will be sent to a person who will gladly fix the ASN.1 module for you. (The typical turn-around time is less than 24 hours.)\n" . "An email will be sent to a person who will gladly fix the ASN.1 module for you. (The typical turn-around time is less than 24 hours.)\n"
. "<BR>This is <B>free</B>, and highly advisable.\n" . "<BR>This is <B>free</B>, and highly advisable.\n"
. "Your request will help us make a better compiler!\n" . "Your request will help us make a better compiler!\n"
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment