home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / live / usr / X11R6 / lib / X11 / cbb / log.pl < prev    next >
Perl Script  |  1998-10-07  |  3KB  |  82 lines
  1. #!/usr/bin/perl
  2. #  log.pl - logging functions
  3. #
  4. #  Written by Christopher Browne.  Started November 1, 1994.
  5. #  Modified by Curtis Olson.
  6. #
  7. #  Copyright (C) 1994  Christopher B. Browne cbrowne@io.org
  8. #  Copyright (C) 1994 - 1997  Curtis L. Olson  - curt@sledge.mn.org
  9. #
  10. #  This program is free software; you can redistribute it and/or modify
  11. #  it under the terms of the GNU General Public License as published by
  12. #  the Free Software Foundation; either version 2 of the License, or
  13. #  (at your option) any later version.
  14. #
  15. #  This program is distributed in the hope that it will be useful,
  16. #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. #  GNU General Public License for more details.
  19. #
  20. #  You should have received a copy of the GNU General Public License
  21. #  along with this program; if not, write to the Free Software
  22. #  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23.  
  24. # $Id: log.pl,v 2.5 1997/01/18 03:28:44 curt Exp $
  25. # (Log is kept at end of this file)
  26.  
  27.  
  28. package CBB;
  29.  
  30. use strict;   # don't take no guff
  31.  
  32.  
  33. # Create a log entry
  34. sub log_txn {
  35.     my($command_line) = @_;
  36.     my($home) = &file_dirname($CBB::current_file);
  37.  
  38.     print DEBUG "File is $CBB::current_file\n" if $CBB::debug;
  39.     print DEBUG "logging to $home/alltxns.log\n" if $CBB::debug;
  40.  
  41.     open(LOG, ">>$home/alltxns.log");
  42.     print LOG &log_fmt_date() . " " . $command_line . "\n";
  43.     close(LOG);
  44.  
  45. }
  46.  
  47.  
  48. # return the current date/time in log format
  49. sub log_fmt_date {
  50.     my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) 
  51.     = localtime(time);
  52.     return sprintf("19%02d/%02d/%02d %02d:%02d:%02d", $year, $mon+1, $mday, 
  53.     $hour, $min, $sec);
  54. }
  55.  
  56.  
  57. 1;                # need to return a true value
  58.  
  59.  
  60. # ----------------------------------------------------------------------------
  61. # $Log: log.pl,v $
  62. # Revision 2.5  1997/01/18 03:28:44  curt
  63. # Added "use strict" pragma to enforce good scoping habits.
  64. #
  65. # Revision 2.4  1996/12/17 14:53:59  curt
  66. # Updated copyright date.
  67. #
  68. # Revision 2.3  1996/09/26 19:45:10  curt
  69. # Fixed a small bug that would cause debugging to be turned off if it was on.
  70. #
  71. # Revision 2.2  1996/07/13 02:57:48  curt
  72. # Version 0.65
  73. # Packing Changes
  74. # Documenation changes
  75. # Changes to handle a value in both debit and credit fields.
  76. #
  77. # Revision 2.1  1996/02/27  05:35:47  curt
  78. # Just stumbling around a bit with cvs ... :-(
  79. #
  80. # Revision 2.0  1996/02/27  04:43:00  curt
  81. # Initial 2.0 revision.  (See "Log" files for old history.)
  82.