Merge branch 'master' of feistymeow.org:feisty_meow

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

diff --git a/scripts/math/inc_num.pl b/scripts/math/inc_num.pl
deleted file mode 100644 (file)
index acecc29..0000000
--- a/scripts/math/inc_num.pl
+++ /dev/null
@@ -1,62 +0,0 @@
-#!/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;
-