Merge branch 'master' of feistymeow.org:feisty_meow

[feisty_meow.git] / scripts / generator / inc_num.pl

diff --git a/scripts/generator/inc_num.pl b/scripts/generator/inc_num.pl
new file mode 100644 (file)
index 0000000..acecc29
--- /dev/null
+++ b/scripts/generator/inc_num.pl
@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+
+###############################################################################
+#                                                                             #
+#  Name   : inc_num                                                           #
+#  Author : Chris Koeritz                                                     #
+#  Rights : Copyright (C) 1996-$now by Author                                 #
+#                                                                             #
+#  Purpose:                                                                   #
+#                                                                             #
+#    Operates on a number stored in a text file.  the number can be retrieved #
+#  for whatever purpose or it can be incremented.                             #
+#                                                                             #
+###############################################################################
+#  This program is free software; you can redistribute it and/or modify it    #
+#  under the terms of the GNU General Public License as published by the Free #
+#  Software Foundation; either version 2 of the License or (at your option)   #
+#  any later version.  See: "http://www.gruntose.com/Info/GNU/GPL.html" for a #
+#  version of the License.  Please send any updates to "fred@gruntose.com".   #
+###############################################################################
+
+# A number is retrieved from the passed in filename and returned.
+sub get_number {
+  local($number_file) = @_;
+#print "num file is $number_file\n";
+  open(NUMBERING, "$number_file");
+  local($number) = int(<NUMBERING>);
+  if ($number <= 0) { $number = 1; }
+  if ($number < 10) { $number = '0'.$number; }
+  if ($number < 100) { $number = '0'.$number; }
+  if ($number < 1000) { $number = '0'.$number; }
+  # upgraded to 6 digit numbers.  whoo hoo.
+  if ($number < 10000) { $number = '0'.$number; }
+  if ($number < 100000) { $number = '0'.$number; }
+  close(NUMBERING);
+  return $number;
+}
+
+# the number in the passed filename is increased.
+sub next_number {
+  local($number_file) = @_;
+  local($number) = &get_number($number_file);
+  if ($number < 0) { $number = '000000'; }
+  $number++;
+  if ($number > 999999) { $number = '000000'; }
+  open(NUMBERING, "> $number_file");
+#print "number is now $number\n";
+  print NUMBERING "$number\n";
+  close(NUMBERING);
+}
+
+# stores the number specified into the file specified.
+sub store_number {
+  local($number, $number_file) = @_;
+#print "storing $number into $number_file\n";
+  open(NUMBERING, "> $number_file");
+  print NUMBERING "$number\n";
+  close(NUMBERING);
+}
+
+1;
+