Merge pull request #91 from mariux64/replace-perl

Use system perl

clusterd/clusterd

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 
 use warnings;
 use strict;

kvm_monitor/kvm_monitor.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#! /usr/local/system/perl/bin/perl -w
 
 use strict;
 # use Data::Dumper; $Data::Dumper::Sortkeys=1;

make-automaps/make-automaps

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 
 use strict;
 use warnings;

mkmotd/mkmotd.pl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 use strict;
 use warnings;
 

mxgrub/mxgrub

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 use strict;
 use warnings;
 use Getopt::Long;

mxmirror/mxmirror

@@ -1,9 +1,8 @@
-#!/usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 
 use Socket;
 use Sys::Hostname;
 use Getopt::Long;
-use Date::Calc;
 
 use strict;
 use warnings;
@@ -237,23 +236,16 @@ sub mirrors_reverse {
 sub get_mirror_status {
     my $mirror = shift;
 
-    my $status;
-    my $days;
-
     return 'REMOTE' unless($hostname eq $mirror->{destination}->{host});
 
     if(open(F, '<', "$mirror->{destination}->{hostpath}/.PMIRROR_STATUS")) {
         my $line = <F>;
         close F;
 
-        ($status, $days) = $line =~ /^(\S+) (\d+) /;
+        my ($status, $timestamp) = $line =~ /^(\S+) (\d+) /;
 
         if($status eq 'OK') {
-            my ($year,$month,$day, $hour,$min,$sec, $doy,$dow,$dst) = Date::Calc::Gmtime($days);
-
-            $days = Date::Calc::Delta_Days($year,$month,$day, Date::Calc::Today());
-
-            return $days;
+            return sprintf ("%2.2f",(time()-$timestamp)/24/60/60);
         }
 
         return $line;

mxnetctl/mxnetctl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 use strict;
 use warnings;
 

mxraid/mxraid_assemble

@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#! /usr/local/system/perl/bin/perl -w
 
 use strict;
 

mxrouter/mxrouterctl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 use strict;
 use warnings;
 

mxvlan/mxvlanctl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 use strict;
 use warnings;
 

netlog/netlog

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 
 use warnings;
 use strict;

pdist/pdist

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 
 # https://github.molgen.mpg.de/mariux64/mxtools
 

pkgadmin/pkgadmin

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 use strict;
 use warnings;
 

pmirror/pmirror

@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/local/system/perl/bin/perl
 
 # https://github.molgen.mpg.de/mariux64/mxtools
 

put_websafe/put_websafe

@@ -1,4 +1,4 @@
-#! /usr/local/bin/perl -w
+#! /usr/local/system/perl/bin/perl -w
 use strict;
 use LWP::UserAgent;
 use HTTP::Request::Common qw(POST $DYNAMIC_FILE_UPLOAD);