Update copyright notice

[empserver] / scripts / xdump.pl

diff --git a/scripts/xdump.pl b/scripts/xdump.pl
old mode 100644 (file)
new mode 100755 (executable)
index 1d71644..63dc8a7
--- a/scripts/xdump.pl
+++ b/scripts/xdump.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
 #
 # xdump example program.
-# Copyright (C) 2006-2010 Markus Armbruster
+# Copyright (C) 2006-2012 Markus Armbruster
 #
-# This program is free software; you can redistribute it and/or modify
+# Empire is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
+# the Free Software Foundation, either version 3 of the License, or
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
@@ -14,8 +14,7 @@
 # GNU General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 # Connect to server, xdump everything into tables, then print the
 # tables.
@@ -123,20 +122,6 @@ for my $tab (@{$table_by_name{table}}) {
     parse_xdump(send_cmd("xdump $tab->{uid} *"), $tab->{uid});
 }
 
-# xdump ver
-{
-    # pick an unused tuid:
-    my $tuid = $#meta_by_uid + 1;
-    # hack the table of tables:
-    push @{$table_by_name{table}}, {uid => $tuid, name => 'version'};
-    # xdump meta ver
-    $meta_by_uid[$tuid] = $meta_by_name{version} = [];
-    parse_xdump(send_cmd('xdump meta ver'), $tuid);
-    # xdump ver
-    $table_by_uid[$tuid] = $table_by_name{version} = [];
-    parse_xdump(send_cmd('xdump ver'), $tuid);
-}
-
 $dumper->dumpValue(\@table_by_uid);