Changeset 319 for server/trunk/web/bin

Timestamp:

01/16/11 20:51:53 (13 years ago)

Author:

nanardon

Message:

• delete old paste in maintenance task

File:

• server/trunk/web/bin/sophie_cron (modified) (1 diff)

server/trunk/web/bin/sophie_cron

@@ -1 +1 @@
 #!/bin/env perl
 
-require RPC::XML;
-require RPC::XML::Client;
+use strict;
+use warnings;
+use RPC::XML;
+use RPC::XML::Client;
+use Getopt::Long;
 
-my $xmlcli = RPC::XML::Client->new('http://localhost.localdomain/rpc');
+GetOptions(
+        's=s' => \my $server,
+) or die "Wrong options";
+
+
+my $xmlcli = RPC::XML::Client->new($server || 'http://localhost.localdomain/rpc');
 
 my $tasks = $xmlcli->send_request('admin.maintenance.tasks');