src/hg/encode/encodeMkGeoPkg/encodeMkGeoPkg 1.1

Index: src/hg/encode/encodeMkGeoPkg/encodeMkGeoPkg
===================================================================
RCS file: src/hg/encode/encodeMkGeoPkg/encodeMkGeoPkg
diff -N src/hg/encode/encodeMkGeoPkg/encodeMkGeoPkg
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ src/hg/encode/encodeMkGeoPkg/encodeMkGeoPkg	17 Apr 2010 04:37:57 -0000	1.1
@@ -0,0 +1,40 @@
+#!/usr/bin/env perl -w
+
+use warnings;
+use strict;
+
+use lib "/cluster/bin/scripts";
+use Encode;
+use HgAutomate;
+use HgDb;
+
+use vars qw/
+    $opt_db
+    $opt_verbose
+    /;
+
+sub usage {
+    print STDERR <<END;
+usage: encodeMkGeoPkg database table
+
+    -verbose=num        Set verbose level to num (default 1).
+END
+exit 1;
+}
+
+############################################################################
+# Main
+
+my $now = time();
+
+my $ok = GetOptions("verbose=i"
+                    );
+usage() if (!$ok);
+$opt_verbose = 1 if (!defined $opt_verbose);
+
+usage() if (scalar(@ARGV) < 2);
+
+my $db = HgDb->new(DB => $ARGV[0]);
+$tableName = $ARGV[1]
+
+print $tableName