Randy Smith | 30 Jun 02:58 2007
Picon
Picon

vuser/lib/VUser/Log File.pm,NONE,1.1

Update of /cvsroot/vuser/vuser/lib/VUser/Log
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26552/lib/VUser/Log

Added Files:
	File.pm 
Log Message:
Add new module to log to files.

--- NEW FILE: File.pm ---
package VUser::Log::File;
use warnings;
use strict;

# Copyright 2005 Randy Smith <perlstalker <at> vuser.org>
# $Id: File.pm,v 1.1 2007/06/30 00:58:40 perlstalker Exp $

our $VERSION = "0.3.0";

use VUser::ExtLib qw(strip_ws);
use VUser::Log qw(:levels);
our  <at> ISA = qw(VUser::Log);

use IO::File;

my $c_sec = 'Log File';

my  <at> levels = ('', 'DEBUG', 'INFO', 'NOTICE', 'WARN',
	      'ERROR', 'CRIT', 'ALERT', 'EMERG');

sub init {
(Continue reading)

Randy Smith | 30 Jun 02:58 2007
Picon
Picon

vuser MANIFEST,1.19,1.20

Update of /cvsroot/vuser/vuser
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26552

Modified Files:
	MANIFEST 
Log Message:
Add new module to log to files.

Index: MANIFEST
===================================================================
RCS file: /cvsroot/vuser/vuser/MANIFEST,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** MANIFEST	24 Apr 2007 16:54:32 -0000	1.19
--- MANIFEST	30 Jun 2007 00:58:40 -0000	1.20
***************
*** 11,14 ****
--- 11,15 ----
  lib/VUser/Log.pm
  lib/VUser/Log/Syslog.pm
+ lib/VUser/Log/File.pm
  lib/VUser/Meta.pm
  lib/VUser/ResultSet.pm

-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
(Continue reading)

Randy Smith | 30 Jun 03:01 2007
Picon
Picon

vuser/lib/VUser/Log File.pm,1.1,1.2

Update of /cvsroot/vuser/vuser/lib/VUser/Log
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27778

Modified Files:
	File.pm 
Log Message:
Doc updates

Index: File.pm
===================================================================
RCS file: /cvsroot/vuser/vuser/lib/VUser/Log/File.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** File.pm	30 Jun 2007 00:58:40 -0000	1.1
--- File.pm	30 Jun 2007 01:01:13 -0000	1.2
***************
*** 82,86 ****
  =head1 DESCRIPTION

! Sends vuser logs to syslog. This will probably not work on Windows systems.

  =head1 CONFIGURATION
--- 82,88 ----
  =head1 DESCRIPTION

! Log to a file. VUser::Log::File allows the file to be moved or rotated
! without stopping while vuser is running. (This is especially important if
! you are using vsoapd.) The missing file will be recreated as needed.

(Continue reading)

Randy Smith | 30 Jun 03:03 2007
Picon
Picon

vuser/lib/VUser/Log File.pm,1.2,1.3

Update of /cvsroot/vuser/vuser/lib/VUser/Log
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28563

Modified Files:
	File.pm 
Log Message:
Oops. Forgot to remove a couple of debugging statements.

Index: File.pm
===================================================================
RCS file: /cvsroot/vuser/vuser/lib/VUser/Log/File.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** File.pm	30 Jun 2007 01:01:13 -0000	1.2
--- File.pm	30 Jun 2007 01:03:11 -0000	1.3
***************
*** 45,53 ****
      $out .= "$msg\n";

-     print STDERR "Out: $out";
- 
      eval {
  	print $self->{'fh'} ($out);
- 	print STDERR "After print\n";
      };

--- 45,50 ----

-------------------------------------------------------------------------
(Continue reading)

Randy Smith | 30 Jun 03:22 2007
Picon
Picon

vuser/lib/VUser/Log File.pm,1.3,1.4

Update of /cvsroot/vuser/vuser/lib/VUser/Log
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2058

Modified Files:
	File.pm 
Log Message:
Fix weird non-printing error.

Index: File.pm
===================================================================
RCS file: /cvsroot/vuser/vuser/lib/VUser/Log/File.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** File.pm	30 Jun 2007 01:03:11 -0000	1.3
--- File.pm	30 Jun 2007 01:22:28 -0000	1.4
***************
*** 28,31 ****
--- 28,32 ----
      my $fh = new IO::File;
      if ($fh->open(">> ".$self->log_file)) {
+ 	$fh->autoflush(1);
  	$self->add_member('fh', $fh);
      } else {
***************
*** 46,60 ****

      eval {
! 	print $self->{'fh'} ($out);
      };
(Continue reading)


Gmane