still finding fudge-up on startup
[feisty_meow.git] / scripts / generator / inc_num.pl
1 #!/usr/bin/perl
2
3 ###############################################################################
4 #                                                                             #
5 #  Name   : inc_num                                                           #
6 #  Author : Chris Koeritz                                                     #
7 #  Rights : Copyright (C) 1996-$now by Author                                 #
8 #                                                                             #
9 #  Purpose:                                                                   #
10 #                                                                             #
11 #    Operates on a number stored in a text file.  the number can be retrieved #
12 #  for whatever purpose or it can be incremented.                             #
13 #                                                                             #
14 ###############################################################################
15 #  This program is free software; you can redistribute it and/or modify it    #
16 #  under the terms of the GNU General Public License as published by the Free #
17 #  Software Foundation; either version 2 of the License or (at your option)   #
18 #  any later version.  See: "http://www.gruntose.com/Info/GNU/GPL.html" for a #
19 #  version of the License.  Please send any updates to "fred@gruntose.com".   #
20 ###############################################################################
21
22 # A number is retrieved from the passed in filename and returned.
23 sub get_number {
24   local($number_file) = @_;
25 #print "num file is $number_file\n";
26   open(NUMBERING, "$number_file");
27   local($number) = int(<NUMBERING>);
28   if ($number <= 0) { $number = 1; }
29   if ($number < 10) { $number = '0'.$number; }
30   if ($number < 100) { $number = '0'.$number; }
31   if ($number < 1000) { $number = '0'.$number; }
32   # upgraded to 6 digit numbers.  whoo hoo.
33   if ($number < 10000) { $number = '0'.$number; }
34   if ($number < 100000) { $number = '0'.$number; }
35   close(NUMBERING);
36   return $number;
37 }
38
39 # the number in the passed filename is increased.
40 sub next_number {
41   local($number_file) = @_;
42   local($number) = &get_number($number_file);
43   if ($number < 0) { $number = '000000'; }
44   $number++;
45   if ($number > 999999) { $number = '000000'; }
46   open(NUMBERING, "> $number_file");
47 #print "number is now $number\n";
48   print NUMBERING "$number\n";
49   close(NUMBERING);
50 }
51
52 # stores the number specified into the file specified.
53 sub store_number {
54   local($number, $number_file) = @_;
55 #print "storing $number into $number_file\n";
56   open(NUMBERING, "> $number_file");
57   print NUMBERING "$number\n";
58   close(NUMBERING);
59 }
60
61 1;
62