postfish/touch-version

   1 #!/usr/bin/perl
   2
   3 if(open F,"version.h"){
   4         $line=<F>;
   5         close F;
   6
   7         if(open F,">version.h"){
   8
   9             print F "$line";
  10             chomp($line=`date`);
  11             print F "/* DO NOT EDIT: Automated versioning hack [$line] */\n";
  12             close F;
  13             0;
  14         }else{
  15             print "touch-version: Failed to write new version.h\n";
  16             1;
  17         }
  18 }else{
  19         print "touch-version: Failed to open version.h\n";
  20         1;
  21 }