[GeneX-dev] patch for display-error.pl

[<ja...@op...>]

Hey Michael,

Here is the corresponding patch for display-error.pl.

jas.

Index: curation-tool/display-error.pl.in
===================================================================
RCS file: /home/opengenex/analysis_scripts_install/curation-tool/display-error.pl.in,v
retrieving revision 1.3
diff -b -B -u -r1.3 display-error.pl.in
--- curation-tool/display-error.pl.in	2001/01/22 22:37:47	1.3
+++ curation-tool/display-error.pl.in	2001/01/26 05:38:11
@@ -22,8 +22,9 @@
 $ENV{PATH} = "/bin:/usr/bin";
 delete @ENV{ 'IFS','CDPATH','ENV','BASH_ENV' };
 
-#print "Content-type: text/html\n\n";
-#print "\n<br>************Starting Auth-Login.pl!!!!!!!!<br>\n";
+# we need to escape any '@' for string interpolation
+my $contact_email = '%%CONTACT_EMAIL%%';
+$contact_email =~ s/\@/\\\@/;
 
 # Get the CGI parameters
 # The error message is passed as the first command line argument
@@ -49,7 +50,7 @@
 <p>Please include this information in any bug reports.</p>
 Sorry for the trouble. Please try again.<br>
 <hr>
-You can notify <a href=mailto:%%CONTACT_EMAIL%%>%%CONTACT_EMAIL%%</a> about this problem.<br></div>
+You can notify <a href=mailto:$contact_email>$contact_email</a> about this problem.<br></div>
 </body></html>
 EofHTML