OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Thomas Lotterer
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-tools Date: 18-Feb-2005 23:59:53
Branch: HEAD Handle: 2005021822595300
Modified files:
openpkg-tools/cmd bf-ui.pl
Log:
remove embedded code in favor of recently published
CGI::GuruMeditation
Summary:
Revision Changes Path
1.13 +1 -92 openpkg-tools/cmd/bf-ui.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-tools/cmd/bf-ui.pl
============================================================================
$ cvs diff -u -r1.12 -r1.13 bf-ui.pl
--- openpkg-tools/cmd/bf-ui.pl 15 Feb 2005 13:44:50 -0000 1.12
+++ openpkg-tools/cmd/bf-ui.pl 18 Feb 2005 22:59:53 -0000 1.13
@@ -36,6 +36,7 @@
use DBI;
use DBD::SQLite;
use MIME::Base64;
+use CGI::GuruMeditation;
# configure optional debugging
$Data::Dumper::Purity = 1;
@@ -1375,98 +1376,6 @@
return $dbh;
}
-# internal handling of fatal errors
-BEGIN {
- $SIG{__DIE__} = sub {
- my ($msg) = @_;
- my $hint = '';
- if ($msg =~ m|line\s+(\d+)|) {
- my $line = $1;
- my $io = new IO::File "<$0";
- my @code = $io->getlines();
- $io->close();
- my $i = -1;
- $hint = join("", map { s/^/sprintf("%d: ", $line+$i++)/se; $_; }
@code[$line-2..$line]);
- }
- print STDOUT
- "Content-Type: text/html; charset=ISO-8859-1\n" .
- "\n" .
- "<html>\n" .
- " <head>\n" .
- " <title>GURU MEDITATION</title>\n" .
- " <style type=\"text/css\">\n" .
- " HTML {\n" .
- " width: 100%;\n" .
- " height: auto;\n" .
- " }\n" .
- " BODY {\n" .
- " background: #cccccc;\n" .
- " margin: 0 0 0 0;\n" .
- " padding: 0 0 0 0;\n" .
- " }\n" .
- " DIV.canvas {\n" .
- " background: #000000;\n" .
- " border: 20px solid #000000;\n" .
- " }\n" .
- " DIV.error1 {\n" .
- " border-top: 4px solid #cc3333;\n" .
- " border-left: 4px solid #cc3333;\n" .
- " border-right: 4px solid #cc3333;\n" .
- " border-bottom: 4px solid #cc3333;\n" .
- " padding: 10px 10px 10px 10px;\n" .
- " font-family: sans-serif, helvetica, arial;\n"
.
- " background: #000000;\n" .
- " color: #cc3333;\n" .
- " }\n" .
- " DIV.error2 {\n" .
- " border-top: 4px solid #000000;\n" .
- " border-left: 4px solid #000000;\n" .
- " border-right: 4px solid #000000;\n" .
- " border-bottom: 4px solid #000000;\n" .
- " padding: 10px 10px 10px 10px;\n" .
- " font-family: sans-serif, helvetica, arial;\n"
.
- " background: #000000;\n" .
- " color: #cc3333;\n" .
- " }\n" .
- " SPAN.title {\n" .
- " font-size: 200%;\n" .
- " font-weight: bold;\n" .
- " }\n" .
- " TT.text {\n" .
- " font-weight: bold;\n" .
- " }\n" .
- " </style>\n" .
- " <script language=\"JavaScript\">\n" .
- " var count = 0;\n" .
- " function blinker() {\n" .
- " var obj = document.getElementById('error');\n" .
- " if (count++ % 2 == 0) {\n" .
- " obj.className = 'error1';\n" .
- " }\n" .
- " else {\n" .
- " obj.className = 'error2';\n" .
- " }\n" .
- " setTimeout('blinker()', 1000);\n" .
- " }\n" .
- " </script>\n" .
- " </head>\n" .
- " <body onLoad=\"setTimeout('blinker()', 1);\">\n" .
- " <div class=\"canvas\">\n" .
- " <div id=\"error\" class=\"error1\">\n" .
- " <span class=\"title\">GURU MEDITATION</span>\n" .
- " <p>\n" .
- " <tt class=\"text\">\n" .
- " $msg<br>\n" .
- " </tt>\n" .
- " <pre>\n$hint</pre>\n" .
- " </div>\n" .
- " </div>\n" .
- " </body>\n" .
- "</html>\n";
- exit(0);
- }
-}
-
__END__
=pod
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [email protected]
