--- deliantra/gde/GCE/Util.pm	2006/10/14 15:18:46	1.21
+++ deliantra/gde/GCE/Util.pm	2006/11/28 16:26:22	1.22
@@ -357,7 +357,14 @@
 }
 
 sub upload {
-   my ($login, $password, $path, $rev, $mapdata) = @_;
+   my ($login, $password, $srcrep, $path, $rev, $mapdata) = @_;
+   require LWP::UserAgent;
+   my $ua = LWP::UserAgent->new (
+      agent      => "gcrossedit",
+      keep_alive => 1,
+      env_proxy  => 1,
+      timeout    => 30,
+   );
    require HTTP::Request::Common;
 
    my $res = $ua->post (
@@ -365,7 +372,7 @@
       Content_Type => 'multipart/form-data',
       Content      => [
          path        => $path,
-         mapdir      => $::MAPDIR,
+         mapdir      => $srcrep,
          map         => $mapdata,
          revision    => $rev,
          cf_login    => $login, #ENV{CFPLUS_LOGIN},