--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/checkver.pl	Thu Aug 07 23:35:03 2008 +0000
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+# Usage: updatever.pl <basever> <top_srcdir> <version file>
+
+my $svnversion = "svnversion";
+my $basever = $ARGV[0];
+my $top_srcdir = $ARGV[1];
+my $outfile = $ARGV[2];
+
+my $rev = "";
+my $full_ver = "$basever";
+
+if( $svnversion ) {
+   $rev = `$svnversion "$top_srcdir"`;
+   chomp $rev;
+   if( $rev == "exported" ) {
+      $rev = "";
+   } else {
+      $full_ver = "${basever}.${rev}";
+   }
+}
+my $header = "/* Autogenerated by checkver.pl */";
+my $output = "${header}\n".
+             "const char lxdream_package_name[] = \"lxdream $basever\";\n" .
+             "const char lxdream_short_version[] = \"$basever\";\n" .
+             "const char lxdream_full_version[] = \"$full_ver\";\n" .
+             "const char lxdream_copyright[] = \"Copyright (C) 2005-2008 Nathan Keynes\";\n";
+
+my $oldfile = "";
+if( -e $outfile ) {
+    open(VERSIONFILE, "<$outfile") || die "Unable to read from $outfile\n";
+    $oldfile = join "", <VERSIONFILE>;
+    close(VERSIONFILE);
+}
+
+if( $oldfile ne $output ) {
+    open(VERSIONFILE, ">$outfile") || die "Unable to write to $outfile\n";
+    print VERSIONFILE $output;
+    close(VERSIONFILE);
+}
\ No newline at end of file