- The commands are now dispatched in Command.pm. Only the method exec_command() is...

[devedit.git] / modules / Output.pm
diff --git a/modules/Output.pm b/modules/Output.pm

index e8d4bad8ee25661cbb6a70de179b5ba3856e1cd7..e30dd83c696614d278e119244b89a1a33ca162b2 100644 (file)
--- a/modules/Output.pm
+++ b/modules/Output.pm
@@ -6,7 +6,7 @@ package Output;
  # HTML generating routines
  #
  # Author:        Patrick Canterino <patshaping@gmx.net>
-# Last modified: 09-22-2003
+# Last modified: 2003-10-13
  #
  
  use strict;
@@ -32,6 +32,7 @@ use base qw(Exporter);
  # htmlhead()
  #
  # Generate the head of a HTML document
+# (a text/html HTTP header will also be created)
  #
  # Params: Title and heading
  #
@@ -52,7 +53,7 @@ sub htmlhead($)
  <title>$title</title>
  <meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
  </head>
-<body bgcolor="#FFFFFF">
+<body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000">
  
  <h1>$title</h1>
  
@@ -78,24 +79,35 @@ sub htmlfoot
  #
  # Format an error message
  #
-# Params: Error message
+# Params: 1. Error message
+#         2. Virtual path to which a link should be displayed (optional)
  #
  # Return: Formatted message (Scalar Reference)
  
-sub error($)
+sub error($;$)
  {
- my $message = shift;
+ my ($message,$path) = @_;
  
   my $output = htmlhead("Error");
   $output   .= "<p>$message</p>";
- $output   .= htmlfoot;
+
+ if($path)
+ {
+  $path = encode_entities($path);
+
+  $output .= "\n\n";
+  $output .= "<p><a href=\"$ENV{'SCRIPT_NAME'}?command=show&file=$path\">Back to $path</a></p>";
+ }
+
+ $output .= htmlfoot;
  
   return \$output;
  }
  
  # abort()
  #
-# Print and error message and exit script
+# Print an error message and exit script
+# ^^^^^
  #
  # Params: Error message
  
@@ -116,15 +128,9 @@ sub abort($)
  
  sub error_in_use($)
  {
- my $file = encode_entities(shift);
- my $dir  = upper_path($file);
-
- my $message = htmlhead("File in use");
- $message   .= "<p>The file '$file' is currently editet by someone else.</p>\n\n";
- $message   .= "<a href=\"$ENV{'SCRIPT_NAME'}?command=show&file=$dir\"><p>Back to $dir</a></p>";
- $message   .= htmlfoot;
+ my $file = shift;
  
- return \$message;
+ return error("The file '".encode_entities($file)."' is currently editet by someone else.",upper_path($file));
  }
  
  # equal_url()