X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/03d83644ce2d958fe3e0466fa272c67f0566f4ab..977a71a3c15adbdd99d7fd5dbbbd384891e48335:/modules/Output.pm diff --git a/modules/Output.pm b/modules/Output.pm index 449731f..22d4e3c 100644 --- a/modules/Output.pm +++ b/modules/Output.pm @@ -6,7 +6,7 @@ package Output; # HTML generating routines # # Author: Patrick Canterino -# Last modified: 2004-02-06 +# Last modified: 2004-03-04 # use strict; @@ -32,7 +32,7 @@ my $tpl_error; # error_template() # -# Set the path to the template file using for error messages +# Set the path to the template file used for error messages # (I'm lazy...) # # Params: Template file @@ -84,31 +84,16 @@ sub error($;$$) # Print an error message and exit script # ^^^^^ # -# Params: Error message +# Params: 1. Error message +# 2. Hash reference: Template variables (optional) -sub abort($) +sub abort($;$) { - my $output = error(shift); + my $output = error(shift,undef,shift); print $$output; exit; } -# error_in_use() -# -# Create a message, which shows, that a -# file is currently in use -# -# Params: File, which is in use -# -# Return: Formatted message (Scalar Reference) - -sub error_in_use($) -{ - my $file = shift; - - return error("The file '".encode_entities($file)."' is currently edited by someone else.",upper_path($file)); -} - # it's true, baby ;-) 1;