--- googlecode.com/svn/trunk/Meteor/Syslog.pm	2006/12/08 16:52:58	9
+++ googlecode.com/svn/trunk/Meteor/Syslog.pm	2006/12/14 16:29:42	11
@@ -1,108 +1,108 @@
-#!/usr/bin/perl -w
-###############################################################################
-#   Meteor
-#   An HTTP server for the 2.0 web
-#   Copyright (c) 2006 contributing authors
-#
-#   Subscriber.pm
-#
-#	Description:
-#	Convenience interface to syslog
-#
-###############################################################################
-#
-#   This program is free software; you can redistribute it and/or modify it
-#   under the terms of the GNU General Public License as published by the Free
-#   Software Foundation; either version 2 of the License, or (at your option)
-#   any later version.
-#
-#   This program is distributed in the hope that it will be useful, but WITHOUT
-#   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-#   FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
-#   more details.
-#
-#   You should have received a copy of the GNU General Public License along
-#   with this program; if not, write to the Free Software Foundation, Inc.,
-#   59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-#
-#   For more information visit www.meteorserver.org
-#
-###############################################################################
-
-package Meteor::Syslog;
-###############################################################################
-
-	use strict;
-	use Sys::Syslog;
-	
-###############################################################################
-# Configuration
-###############################################################################
-
-	$Meteor::Syslog::DEFAULT_FACILITY='daemon';
-	
-	$Meteor::Syslog::_open=0;		# set to 1 by _open
-	
-###############################################################################
-# Implementation
-###############################################################################
-sub ::syslog {
-	
-	if($::CONF{'Debug'})
-	{
-		my $priority=shift;
-		my $format=shift;
-		
-		$format=~s/\%m/$!/g;
-		
-		print STDERR "$::PGM($priority): ";
-		print STDERR sprintf($format,@_);
-		print STDERR "\n" unless(substr($format,-1) eq "\n");
-		
-		return;
-	}
-	else
-	{
-		# No expensive syslog calls for debug!
-		return if($_[0] eq 'debug');
-	}
-	
-	unless($Meteor::Syslog::_open)
-	{
-		my $facility=$::CONF{'SyslogFacility'} || $Meteor::Syslog::DEFAULT_FACILITY;
-		openlog($::PGM,0,$facility);
-		$Meteor::Syslog::_open=1;
-	}
-	
-	syslog(@_);
-}
-
-sub myWarn {
-	local $SIG{'__DIE__'}='';
-	local $SIG{'__WARN__'}='';
-	
-	&::syslog('warning',$_[0]);
-}
-
-sub myDie {
-	local $SIG{'__DIE__'}='';
-	local $SIG{'__WARN__'}='';
-		
-	my $inEval=0;
-	my $i=0;
-	my $sub;
-	while((undef,undef,undef,$sub)=caller(++$i))
-	{
-		$inEval=1, last if $sub eq '(eval)';
-	}
-	
-	unless($inEval)
-	{
-		&::syslog('err',$_[0]);
-		$Meteor::Socket::NO_WARN_ON_CLOSE=1;
-		exit;
-	}
-}
-
-1;
+#!/usr/bin/perl -w
+###############################################################################
+#   Meteor
+#   An HTTP server for the 2.0 web
+#   Copyright (c) 2006 contributing authors
+#
+#   Subscriber.pm
+#
+#	Description:
+#	Convenience interface to syslog
+#
+###############################################################################
+#
+#   This program is free software; you can redistribute it and/or modify it
+#   under the terms of the GNU General Public License as published by the Free
+#   Software Foundation; either version 2 of the License, or (at your option)
+#   any later version.
+#
+#   This program is distributed in the hope that it will be useful, but WITHOUT
+#   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+#   FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
+#   more details.
+#
+#   You should have received a copy of the GNU General Public License along
+#   with this program; if not, write to the Free Software Foundation, Inc.,
+#   59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+#   For more information visit www.meteorserver.org
+#
+###############################################################################
+
+package Meteor::Syslog;
+###############################################################################
+
+	use strict;
+	use Sys::Syslog;
+	
+###############################################################################
+# Configuration
+###############################################################################
+
+	$Meteor::Syslog::DEFAULT_FACILITY='daemon';
+	
+	$Meteor::Syslog::_open=0;		# set to 1 by _open
+	
+###############################################################################
+# Implementation
+###############################################################################
+sub ::syslog {
+	
+	if($::CONF{'Debug'})
+	{
+		my $priority=shift;
+		my $format=shift;
+		
+		$format=~s/\%m/$!/g;
+		
+		print STDERR "$::PGM($priority): ";
+		print STDERR sprintf($format,@_);
+		print STDERR "\n" unless(substr($format,-1) eq "\n");
+		
+		return;
+	}
+	else
+	{
+		# No expensive syslog calls for debug!
+		return if($_[0] eq 'debug');
+	}
+	
+	unless($Meteor::Syslog::_open)
+	{
+		my $facility=$::CONF{'SyslogFacility'} || $Meteor::Syslog::DEFAULT_FACILITY;
+		openlog($::PGM,0,$facility);
+		$Meteor::Syslog::_open=1;
+	}
+	
+	syslog(@_);
+}
+
+sub myWarn {
+	local $SIG{'__DIE__'}='';
+	local $SIG{'__WARN__'}='';
+	
+	&::syslog('warning',$_[0]);
+}
+
+sub myDie {
+	local $SIG{'__DIE__'}='';
+	local $SIG{'__WARN__'}='';
+		
+	my $inEval=0;
+	my $i=0;
+	my $sub;
+	while((undef,undef,undef,$sub)=caller(++$i))
+	{
+		$inEval=1, last if $sub eq '(eval)';
+	}
+	
+	unless($inEval)
+	{
+		&::syslog('err',$_[0]);
+		$Meteor::Socket::NO_WARN_ON_CLOSE=1;
+		exit;
+	}
+}
+
+1;
 ############################################################################EOF
\ No newline at end of file