From 2488a56f03344d1b55822ce026719f165c5023bf Mon Sep 17 00:00:00 2001 From: octo Date: Fri, 8 Apr 2005 18:44:44 +0000 Subject: [PATCH] Added automatic revision making.. --- onis | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/onis b/onis index 650d8a5..7d794b0 100755 --- a/onis +++ b/onis @@ -37,14 +37,21 @@ use Onis::Config qw/get_config parse_argv read_config/; use File::Basename qw/dirname/; use Fcntl qw/:flock/; -use vars qw/$VERSION/; +use vars qw/$VERSION $REVISION/; -$VERSION = '0.7.2'; +$VERSION = ''; +$REVISION = '$LastChangedRevision$'; + +if (!$VERSION) +{ + $VERSION = $REVISION; + $VERSION =~ s/^\D*(\d+).*/r$1/; +} our $FILEINFO; our $PURGE_LOGS = 0; -print STDERR $/, __FILE__, ': $Id: onis,v 1.18 2005/01/21 18:59:59 octo Exp $' if ($::DEBUG); +print STDERR $/, __FILE__, ': $Id$' if ($::DEBUG); parse_argv (@ARGV); read_config (get_config ('config') ? get_config ('config') : 'config'); -- 2.11.0