Moving NSCP Directory Server from DirectoryBranch to TRUNK, initial drop. (foxworth)ldapserver7x

1 files changed, 49 insertions, 0 deletions

diff --git a/buildnum.pl b/buildnum.pl
new file mode 100755
index 00000000..6b184f21
--- /dev/null
+++ b/buildnum.pl
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+#--------------------------------------------
+# buildnum.pl
+#
+# Generates a dated build number and writes
+# out a buildnum.dat file in a user specified
+# subdirectory.
+#
+# Usage: buildnum.pl -p <platform dir>
+#--------------------------------------------
+
+use Getopt::Std;
+use FileHandle;
+                                                                                             
+autoflush STDERR 1;
+                                                                                             
+getopts('p:H');
+                                                                                             
+if ($opt_H) {exitHelp();}
+
+# Load arguments
+$platdir = $opt_p || exitHelp();
+$buildnum_file = "./$platdir/buildnum.dat";
+
+# Get current time
+@now = gmtime;
+
+# Format buildnum as YYYY.DDD.HHMM
+$year = $now[5] + 1900;
+$doy = $now[7] + 1;
+if ($doy < 100) { $doy = 0 . $doy; }
+$tod = $now[2] . $now[1];
+$buildnum = "$year.$doy.$tod";
+
+# Write buildnum.dat
+open(BUILDNUM,">$buildnum_file") || die "Error: Can't create $buildnum_file: $!\n";
+print BUILDNUM "\\\"$buildnum\\\"";
+close(BUILDNUM);
+
+#---------- exitHelp subroutine ----------
+sub exitHelp {
+    print(STDERR "$0: Generates a dated build number.
+
+    \tUsage: $0 -p <platform>
+
+    \t-p <platform>             Platform subdirectory.
+    \t-H                        Print this help message\n");
+    exit(0);
+}