File disable-lang.patch of Package OcsInventory-Unix-Agent

Overview Repositories Revisions Requests Users Attributes Meta

File disable-lang.patch of Package OcsInventory-Unix-Agent

--- Ocsinventory-Unix-Agent-2.1.1/lib/Ocsinventory/Agent/Common.pm-orig	2015-08-19 15:18:16.843492749 -0300
+++ Ocsinventory-Unix-Agent-2.1.1/lib/Ocsinventory/Agent/Common.pm	2015-08-19 15:19:19.242492988 -0300
@@ -918,19 +918,7 @@
 
   # To avoid strange breakage I remove the unprintable characters in the XML
   foreach (split "\n", $content) {
-    if (! m/\A(
-    [\x09\x0A\x0D\x20-\x7E]            # ASCII
-    | [\xC2-\xDF][\x80-\xBF]             # non-overlong 2-byte
-    |  \xE0[\xA0-\xBF][\x80-\xBF]        # excluding overlongs
-    | [\xE1-\xEC\xEE\xEF][\x80-\xBF]{2}  # straight 3-byte
-    |  \xED[\x80-\x9F][\x80-\xBF]        # excluding surrogates
-    |  \xF0[\x90-\xBF][\x80-\xBF]{2}     # planes 1-3
-    | [\xF1-\xF3][\x80-\xBF]{3}          # planes 4-15
-    |  \xF4[\x80-\x8F][\x80-\xBF]{2}     # plane 16
-    )*\z/x) {
       s/[[:cntrl:]]//g;
-      $self->{logger}->debug("non utf-8 '".$_."'");
-    }
 
     # Is that a good idea. Intent to drop some nasty char
     # s/[A-z0-9_\-<>\/:\.,#\ \?="']//g;
--- Ocsinventory-Unix-Agent-2.1.1/lib/Ocsinventory/Agent/Backend/OS/Linux/Network/Networks.pm-orig	2015-08-19 15:16:31.173492343 -0300
+++ Ocsinventory-Unix-Agent-2.1.1/lib/Ocsinventory/Agent/Backend/OS/Linux/Network/Networks.pm	2015-08-19 15:17:43.477492621 -0300
@@ -77,7 +77,7 @@
   my $duplex;
 
   my %gateway;
-  foreach (`route -n`) {
+  foreach (`LANG=C route -n`) {
     if (/^(\d+\.\d+\.\d+\.\d+)\s+(\d+\.\d+\.\d+\.\d+)/) {
       $gateway{$1} = $2;
     }
@@ -91,7 +91,7 @@
 
 
 
-  foreach my $line (`ifconfig -a`) {
+  foreach my $line (`LANG=C ifconfig -a`) {
     if ($line =~ /^$/ && $description && $macaddr) {
       # end of interface section
       # I write the entry
@@ -104,7 +104,7 @@
       $binsubnet = $binip & $binmask if ($binip && $binmask);
       $ipsubnet = ip_bintoip($binsubnet,4) if $binsubnet;
 
-      my @wifistatus = `iwconfig $description 2>>/dev/null`;
+      my @wifistatus = `LANG=C iwconfig $description 2>>/dev/null`;
       if ( @wifistatus > 2 ) {
         $type = "Wifi";
       }
@@ -130,7 +130,7 @@
       } elsif (can_run("brctl")) {
         # Let's guess
         my %bridge;
-        foreach (`brctl show`) {
+        foreach (`LANG=C brctl show`) {
           next if /^bridge name/;
           $bridge{$1} = 1 if /^(\w+)\s/;
         }
--- Ocsinventory-Unix-Agent-2.1.1/lib/Ocsinventory/Agent/Backend/OS/Linux/Sounds.pm-orig	2015-08-19 15:14:31.068220034 -0300
+++ Ocsinventory-Unix-Agent-2.1.1/lib/Ocsinventory/Agent/Backend/OS/Linux/Sounds.pm	2015-08-19 15:14:49.983220107 -0300
@@ -7,7 +7,7 @@
   my $params = shift;
   my $common = $params->{common};
 
-  foreach(`lspci`){
+  foreach(`LANG=C lspci`){
 
     if(/audio/i && /^\S+\s([^:]+):\s*(.+?)(?:$([^()]+)$)?$/i){

Places

File disable-lang.patch of Package OcsInventory-Unix-Agent

Places