Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asn1c
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Libraries
asn1c
Commits
a1ec12f3
Commit
a1ec12f3
authored
Mar 18, 2005
by
Lev Walkin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
comments
parent
81c5fc5b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
10 deletions
+17
-10
asn1c/webcgi/asn1c.cgi
asn1c/webcgi/asn1c.cgi
+17
-10
No files found.
asn1c/webcgi/asn1c.cgi
View file @
a1ec12f3
...
...
@@ -20,7 +20,7 @@ $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
';
$defaultUserEmail
=
'
your@email
-for-reply
';
$warn
=
'
<CENTER><FONT SIZE=+1><B>
';
$unwarn
=
'
</B></FONT></CENTER>
';
...
...
@@ -169,7 +169,7 @@ if(defined($tmpEmail)) {
if
(
$userEmail
eq
$defaultUserEmail
)
{
IssueRedirect
();
bark
("
Please enter <FONT COLOR=red>your own</FONT>
"
.
"
email address,
"
.
"
valid
email address,
"
.
"
instead of default
\"
<FONT COLOR=darkred>
$defaultUserEmail
</FONT>
\"
");
}
if
(
$userEmail
ne
$previousEmail
)
{
...
...
@@ -406,10 +406,12 @@ $form =
"
<FORM METHOD=POST ACTION=
$myName
ENCTYPE=
\"
multipart/form-data
\"
>
"
.
"
Pick the ASN.1 module file:<BR>
\n
"
.
"
<INPUT TYPE=file NAME=file SIZE=35><BR clear=all>
\n
"
.
"
Alternatively, enter the ASN.1 specification into the area below
:<BR>
\n
"
.
"
<TEXTAREA NAME=text ROWS=1
5
COLS=60>
\n
"
.
"
Or enter the ASN.1 module text into the following area
:<BR>
\n
"
.
"
<TEXTAREA NAME=text ROWS=1
6
COLS=60>
\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
"
.
"
TestModule { iso org(3) dod(6) internet(1) private(4)
\n
"
.
"
1 spelio(9363) software(1) asn1c(5) webcgi(2) 1 }
\n
"
...
...
@@ -424,12 +426,13 @@ $form =
.
"
</TEXTAREA><BR>
\n
"
.
"
<P>
"
.
"
<FONT SIZE=-1>
"
.
"
These options may be
enabl
ed to control the compiler's behavior:<BR>
\n
"
.
"
These options may be
us
ed 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=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=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
"
.
"
<I>... the command line ASN.1 compiler, <A HREF=
$ASN1C_Page
>asn1c</A>, supports many other parameters</I>.
"
.
"
</FONT>
"
.
"
<P>
\n
"
.
"
<INPUT TYPE=submit VALUE=
\"
Proceed with ASN.1 compilation
\"
>
"
...
...
@@ -487,8 +490,11 @@ foreach my $trans (sort { $b cmp $a } @transactions) {
$results
=
"
<FONT COLOR=darkgreen><B>
"
.
"
Compiled OK</B></FONT><BR>
\n
";
}
else
{
$results
=
"
<FONT COLOR=darkred>
"
.
"
Error during compilation:
$ec
</FONT><BR>
\n
";
my
$why
=
$ec
;
$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
"
...
...
@@ -507,7 +513,7 @@ foreach my $trans (sort { $b cmp $a } @transactions) {
.
escapeHTML
(
$origTime
)
.
"
&file=
$f
"
.
"
&show=tgz
\"
>
"
.
"
Fetch
result
s (.tgz)</A></NOBR>
"
.
"
Fetch
compiled C source
s (.tgz)</A></NOBR>
"
if
$allowFetchResults
;
if
(
$ec
ne
"
0
")
{
local
(
$eml
,
@resp
);
...
...
@@ -533,6 +539,7 @@ foreach my $trans (sort { $b cmp $a } @transactions) {
.
"
expect results in a few hours.<B></FONT>
";
}
else
{
$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=hidden NAME=transHelp VALUE=
\"
$tNum
--
$trans
\"
>
"
.
'
<INPUT TYPE=Submit VALUE="Help me fix it!">
'
...
...
@@ -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>
"
.
"
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
"
.
"
<BR><B><FONT COLOR=darkred>Please consider clicking on
an appropriate "<I>Help me fix it!</I>" link
above.</FONT></B><BR>
\n
"
.
"
<BR><B><FONT COLOR=darkred>Please consider clicking on
the appropriate "<I>Help me fix it!</I>" 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
"
.
"
<BR>This is <B>free</B>, and highly advisable.
\n
"
.
"
Your request will help us make a better compiler!
\n
"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment