git update working

diff --git a/tools/gitupdate.pl b/tools/gitupdate.pl
index 56faf7ce941794b2808240ae862aa112fb0ac286..87ac84a27b64ed94454a8d50354b4e0285dbf47b 100755 (executable)
--- a/tools/gitupdate.pl
+++ b/tools/gitupdate.pl
@@ -9,11 +9,16 @@ use CGI::Carp qw(fatalsToBrowser);
 my $query = $ENV{'QUERY_STRING'};
 
 sub cmd {
-       my @x = qx(cmd." 2>&1");
-       print Dumper @x;
+       my ($c) = @_;
+       $c .= " 2>&1";
+       my @x = qx($c);
+       foreach (@x) {
+               print "> ".$_;
+       }
 }
 
 
+
 print "Running Git Update\n";
 
 unless ($query =~ m/stable/) {
@@ -31,6 +36,8 @@ unless ($query =~ m/config/) {
 print "Undoing changes in config files\n";
 cmd("git checkout -- ../config ../temp");
 
+print "Pulling new data from server\n";
+cmd("git pull ");
 
 unless ($query =~ m/config/) {
        print "Copying configuration file folder back\n";