[interchange-cvs] interchange - heins modified dist/src/mod_perl2/Interchange/Link.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Mon Jan 24 23:15:24 EST 2005


User:      heins
Date:      2005-01-25 04:15:24 GMT
Modified:  dist/src/mod_perl2/Interchange Link.pm
Log:
* Add die_page routine called in some places.

Revision  Changes    Path
1.5       +22 -2     interchange/dist/src/mod_perl2/Interchange/Link.pm


rev 1.5, prev_rev 1.4
Index: Link.pm
===================================================================
RCS file: /var/cvs/interchange/dist/src/mod_perl2/Interchange/Link.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Link.pm	25 Jan 2005 04:03:35 -0000	1.4
+++ Link.pm	25 Jan 2005 04:15:24 -0000	1.5
@@ -2,7 +2,7 @@
 
 # Interchange::Link -- mod_perl 1.99/2.0 module for linking to Interchange
 #
-# $Id: Link.pm,v 1.4 2005/01/25 04:03:35 jon Exp $
+# $Id: Link.pm,v 1.5 2005/01/25 04:15:24 mheins Exp $
 #
 # Copyright (C) 2002-2005 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -45,7 +45,7 @@
 
 =head1 VERSION
 
-$Revision: 1.4 $
+$Revision: 1.5 $
 
 =head1 SYNOPSIS
 
@@ -406,6 +406,26 @@
 
 # Return this message to the browser when the server is not running.
 # Log an error log entry if set to notify
+
+sub die_page {
+
+    my $r = shift;
+    my $msg;
+
+    warn "ALERT: bad pipe signal received for $ENV{SCRIPT_NAME}\n";   
+
+    $r->content_type ("text/html");
+    $r->print (<<EOF);
+<HTML><HEAD><TITLE>Interrupted</TITLE></HEAD>
+<BODY BGCOLOR="#FFFFFF">
+<H3>Someone pressed stop...</H3>
+<P>
+We have aborted this request because someone terminated it.
+Please try again soon.
+</BODY></HTML>
+EOF
+
+}
 
 sub server_not_running {
 








More information about the interchange-cvs mailing list