From 3e0ec32fcae874429ad78dd32ee7f7a86ad466e7 Mon Sep 17 00:00:00 2001 From: Conrad Lara - KG6JEI Date: Thu, 26 Jun 2014 21:29:39 -0700 Subject: [PATCH] workaround: For some reason piping yes to opkg never returns when called from perl Has been seen with yes, and echo y, etc. Loops do not return. In order to allow packages that do not need interaction to install we have pulled out 'yes' for now. --- files/www/cgi-bin/admin | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/files/www/cgi-bin/admin b/files/www/cgi-bin/admin index 5833e90a..15f69698 100755 --- a/files/www/cgi-bin/admin +++ b/files/www/cgi-bin/admin @@ -321,7 +321,7 @@ foreach(`cat /etc/permpkg 2>/dev/null`) if($parms{button_ul_pkg} and -f "/tmp/web/upload/file") { system "mv -f /tmp/web/upload/file /tmp/web/upload/newpkg.ipk"; - push @pkg_output, `yes | opkg -force-overwrite install /tmp/web/upload/newpkg.ipk 2>&1`; + push @pkg_output, `opkg -force-overwrite install /tmp/web/upload/newpkg.ipk 2>&1`; system "rm -rf /tmp/opkg-*"; } @@ -330,7 +330,7 @@ if($parms{button_dl_pkg} and $parms{dl_pkg} ne "default") { if(get_default_gw() ne "none") { - push @pkg_output, `yes | opkg -force-overwrite install $parms{dl_pkg} 2>&1`; + push @pkg_output, `opkg -force-overwrite install $parms{dl_pkg} 2>&1`; } else {