src/gen_build_info.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Config;
   7 use POSIX qw(strftime);
   8
   9 die "No version string supplied!\n" if($#ARGV == -1);
  10
  11 my $build = strftime "%x,%I:%M%p", gmtime;
  12 my $version = $ARGV[0];
  13
  14 open(FP, "> version.h") or die "Cannot create version.h! $!\n";
  15 print FP <<EOF;
  16 #ifndef VERSION_H
  17 #define VERSION_H
  18
  19 #define PROGNAME_STRING  "transsip"
  20 #define VERSION_STRING   "$version"
  21 #define BUILD_STRING     "$Config{archname}~$build"
  22
  23 #endif /* VERSION_H */
  24 EOF
  25
  26 close(FP);