Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 13 lines (8 sloc) 174 Bytes
#!/usr/bin/perl -w
use strict;
my ( $device, $script ) = @ARGV;
open SCRIPT, $script or die;
while ( <SCRIPT> ) {
chomp;
system( './runon', $device, 'shell', $_ );
}
Something went wrong with that request. Please try again.