You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
653 B
21 lines
653 B
7 years ago
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use IO::Socket;
|
||
|
|
my $sock = new IO::Socket::INET (
|
||
|
|
LocalHost => '',
|
||
|
|
LocalPort => '7070',
|
||
|
|
Proto => 'tcp',
|
||
|
|
Listen => 1,
|
||
|
|
Reuse => 1,
|
||
|
|
);
|
||
|
|
die "Could not create socket: $!\n" unless $sock;
|
||
|
|
my $new_sock = $sock->accept();
|
||
|
|
while(<$new_sock>) {
|
||
|
|
# print $_;
|
||
|
|
system("sudo /dragas/chillicount1.sh $_");
|
||
|
|
system("/usr/bin/sudo /dragas/launchde.sh");
|
||
|
|
system("/usr/bin/pkill -9 X");
|
||
|
|
system("/usr/bin/pkill -9 perl");
|
||
|
|
}
|
||
|
|
close($sock);
|