# Return: None
#------------------------------------------------------------------------------
sub error {
- print "Error: $_[0].\n";
+ print STDERR "Error: $_[0].\n";
exit 1;
}
sub warning {
my $messagestring=shift;
debug("$messagestring",1);
-# if ($WarningMessages) {
-# if ($HTMLOutput) {
-# $messagestring =~ s/\n/\<br \/\>/g;
-# print "$messagestring<br />\n";
-# }
-# else {
- print "$messagestring\n";
-# }
-# }
+ print STDERR "$messagestring\n";
}
#------------------------------------------------------------------------------
# error
#-------------------------------------------------------
sub error {
- print "Error: $_[0].\n";
+ print STDERR "Error: $_[0].\n";
exit 1;
}
my $thirdmessage=shift||"";
my $donotshowsetupinfo=shift||0;
if ($Debug) { debug("$message $secondmessage $thirdmessage",1); }
- print "$message";
- print "\n";
+ print STDERR "$message";
+ print STDERR "\n";
exit 1;
}
# Return: None
#------------------------------------------------------------------------------
sub error {
- print "Error: $_[0].\n";
+ print STDERR "Error: $_[0].\n";
exit 1;
}
# Return: None
#------------------------------------------------------------------------------
sub error {
- print "Error: $_[0].\n";
+ print STDERR "Error: $_[0].\n";
exit 1;
}
sub warning {
my $messagestring=shift;
if ($Debug) { debug("$messagestring",1); }
- print "$messagestring\n";
+ print STDERR "$messagestring\n";
}
#-----------------------------------------------------------------------------
#-------------------------------------------------------
sub error {
- print "Error: $_[0].\n";
+ print STDERR "Error: $_[0].\n";
exit 1;
}