Updated version information in README and FAQ

[onis.git] / onis

diff --git a/onis b/onis
index 94bcc73..5c2bb2e 100755 (executable)
--- a/onis
+++ b/onis
@@ -1,12 +1,12 @@
 #!/usr/bin/perl
 ##########################################################################
-#    onis 0.7.2                                               2005-01-21 #
+#    onis 0.8.0                                               2005-04-17 #
 #---=============--------------------------------------------------------#
 # Language: Perl                                                         #
 # Purpose:  Generating statistics                                        #
 # Input:    IRC-Logfiles                                                 #
 # Output:   One HTML file                                                #
-# Version:  0.7.2 (unstable)                                             #
+# Version:  0.8.0 (unstable)                                             #
 # License:  GPL                                                          #
 # Homepage: http://verplant.org/onis/                                    #
 # Authors:  Florian octo Forster <octo@verplant.org>                     #
@@ -27,7 +27,7 @@ BEGIN
        # 0x0400   Data::Core (dump incoming data to stderr)
        # 0x0800   Data::Core (initializing)
        # 0x1000   Onis::Users
-       $::DEBUG = 0x0200;
+       $::DEBUG = 0x0000;
 }
 
 use strict;
@@ -49,12 +49,12 @@ if (!$VERSION)
 }
 
 our $FileInfo;
-our $PURGE_LOGS = 0;
+our $PurgeLogs = 0;
 
 print STDERR $/, __FILE__, ': $Id$' if ($::DEBUG);
 
 parse_argv (@ARGV);
-read_config (get_config ('config') ? get_config ('config') : 'config');
+read_config (get_config ('config') ? get_config ('config') : 'onis.conf');
 read_config (scalar get_config ('theme')) if (get_config ('theme'));
 
 my $output = get_config ('output');
@@ -71,6 +71,7 @@ foreach ('Core', get_config ('plugin'))
 
 if (!get_config ('input'))
 {
+       # TODO: Make a complete (!) lsit..
        print STDERR <<EOF;
 
 Usage: $0 [options] <logfile> [logfile logfile ..]
@@ -137,12 +138,12 @@ if (get_config ('purge_logs'))
        my $temp = lc (get_config ('purge_logs'));
        if (($temp eq 'truncate') or ($temp eq 'shorten'))
        {
-               $PURGE_LOGS = 1;
+               $PurgeLogs = 1;
        }
        elsif (($temp eq 'delete') or ($temp eq 'remove')
                        or ($temp eq 'del'))
        {
-               $PURGE_LOGS = 2;
+               $PurgeLogs = 2;
        }
 }
 
@@ -195,7 +196,7 @@ for (get_config ('input'))
        }
        
        # truncate
-       if ($PURGE_LOGS == 1)
+       if ($PurgeLogs == 1)
        {
                unless (open ($logfile, '+< ' . $file))
                {
@@ -212,7 +213,7 @@ for (get_config ('input'))
                }
        }
        
-       if ($PURGE_LOGS)
+       if ($PurgeLogs)
        {
                unless (flock ($logfile, LOCK_EX))
                {
@@ -264,11 +265,11 @@ for (get_config ('input'))
                }
        }
 
-       if ($PURGE_LOGS and (($status == 1)
+       if ($PurgeLogs and (($status == 1)
                                or ($status == 2)
                                or ($status == 3)))
        {
-               if (($PURGE_LOGS > 1)
+               if (($PurgeLogs > 1)
                        #and (($position + 1) >= $size)
                        )
                {