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.
20 lines
653 B
20 lines
653 B
#!/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);
|
|
|