Sending an error message to the user - Perl

sending error message

Snippet Code


  
Rate this page :
  [ 0 votes]

sub ErrorHTML { my $s = join "</li>n<li>",@_; print "Content-type: text/htmlnn"; print <<HTML; <html> <body bgcolor="white"> <blockquote><blockquote><h4>Message:</h4><ul> <li>$s</li> </ul></blockquote></blockquote></body></html> HTML exit; }

Tags


Ask Questions

Ask Question