- last changes

perl-client-examples/ProjectOpen.pm

@@ -115,7 +115,7 @@ sub _http_request {
     my $req = HTTP::Request->new(GET => $uri);
     $req->authorization_basic(ProjectOpen->email, ProjectOpen->password);
     my $res = $ua->request($req);
-    carp sprint STDERRf "ProjectOpen: request: HTTP request failed: %s", 
+    carp sprintf "ProjectOpen: request: HTTP request failed: %s", 
         $res->status_line unless $res->is_success;
 
     # print STDERR sprintf "ProjectOpen.pm: content = %s\n", $res->content;

perl-client-examples/generate-cvs-acl-group-conf.perl

@@ -29,7 +29,7 @@ use Data::Dumper;
 # Connection parameters:
 
 # Debug: 0=silent, 9=very verbose
-$debug = 1;
+$debug = 4;
 
 # Current date/time
 my $now = `/bin/date +\%Y-\%m-\%d:\%H.\%M`;
@@ -38,6 +38,8 @@ my $now = `/bin/date +\%Y-\%m-\%d:\%H.\%M`;
 # benbigboss/ben is a default user @ demo.project-open.net...
 #
 my $rest_server = "demo.project-open.net";
+my $rest_server = "192.168.21.128";
+
 my $rest_email = "bbigboss\@tigerpond.com";
 my $rest_password = "ben";