From 2ea216bfaf03964488c54d88fad75ce6cd5a5612 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 1 Oct 2001 17:21:29 +0000 Subject: [PATCH] add module --- perl/Editable.pm | 30 ++++++++++++++++++++++++++++++ perl/cluster.pl | 3 ++- 2 files changed, 32 insertions(+), 1 deletion(-) create mode 100644 perl/Editable.pm diff --git a/perl/Editable.pm b/perl/Editable.pm new file mode 100644 index 00000000..b0b4e262 --- /dev/null +++ b/perl/Editable.pm @@ -0,0 +1,30 @@ +# +# A module to allow a user to create and (eventually) edit arrays of +# text and attributes +# +# This is used for creating mail messages and user script files +# +# It may be sub-classed +# +# Copyright (c) 2001 Dirk Koopman G1TLH +# +# $Id$ +# + +package Editable; + +use vars qw($VERSION $BRANCH); +$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0; +$main::build += $VERSION; +$main::branch += $BRANCH; + +sub new +{ + my $pkg = shift; + my $class = ref $pkg || $pkg; + + return {}, $class; +} + +1; diff --git a/perl/cluster.pl b/perl/cluster.pl index 169900cc..be78ffda 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -86,6 +86,7 @@ use Timer; use Route; use Route::Node; use Route::User; +use Editable; use Data::Dumper; use IO::File; @@ -112,7 +113,7 @@ $starttime = 0; # the starting time of the cluster use vars qw($VERSION $BRANCH $build $branch); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0; -$main::build += 13; # add an offset to make it bigger than last system +$main::build += 12; # add an offset to make it bigger than last system $main::build += $VERSION; $main::branch += $BRANCH; -- 2.43.0