#!/usr/bin/perl # # version.pl # # Developed by Lubomir Host 'rajo' # Copyright (c) 2004 Platon SDG, http://platon.sk/ # Licensed under terms of GNU General Public License. # All rights reserved. # # Changelog: # 2004-04-23 - created # # $Platon: dead/test/version.pl,v 1.2 2004/04/23 19:15:48 rajo Exp $ use strict; use vars qw ( $VERSION $CHANGELOG ); $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/); $CHANGELOG = ' $Log: version.pl,v $ Revision 1.3 2004/09/22 09:14:26 rajo Check cvs loginfo configuration. '; print "version.pl version $VERSION\n"; print "Changelog: $CHANGELOG\n"; # vim: ts=4 # vim600: fdm=marker fdl=0 fdc=3