6 changed files with 65 additions and 0 deletions
@ -0,0 +1,12 @@ |
|||||||
|
#!/bin/sh |
||||||
|
|
||||||
|
TOTSESSION=$1 |
||||||
|
MIN=$((TOTSESSION/60)) |
||||||
|
|
||||||
|
while [ $MIN -gt 0 ]; do |
||||||
|
clear > /dev/tty9 |
||||||
|
echo "Sessione in corso..." > /dev/tty9 |
||||||
|
echo "Minuti rimanenti: $MIN" > /dev/tty9 |
||||||
|
MIN=$((MIN-1)); |
||||||
|
sleep 59; |
||||||
|
done |
||||||
@ -0,0 +1,19 @@ |
|||||||
|
#!/usr/bin/perl |
||||||
|
|
||||||
|
use IO::Socket; |
||||||
|
my $sock = new IO::Socket::INET ( |
||||||
|
LocalHost => '', |
||||||
|
LocalPort => '7071', |
||||||
|
Proto => 'tcp', |
||||||
|
Listen => 1, |
||||||
|
Reuse => 1, |
||||||
|
); |
||||||
|
die "Could not create socket: $!\n" unless $sock; |
||||||
|
my $new_sock = $sock->accept(); |
||||||
|
while(<$new_sock>) { |
||||||
|
# print $_; |
||||||
|
# system("/usr/bin/killall VBoxSVC"); |
||||||
|
system("/usr/bin/pkill -9 X"); |
||||||
|
system("/usr/bin/pkill -9 perl"); |
||||||
|
} |
||||||
|
close($sock); |
||||||
@ -0,0 +1,20 @@ |
|||||||
|
#!/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); |
||||||
@ -0,0 +1,7 @@ |
|||||||
|
#!/bin/bash |
||||||
|
|
||||||
|
perl /dragas/chillilisten.pl & |
||||||
|
perl /dragas/chillikill.pl & |
||||||
|
x11docker --desktop --hostipc --user=1500 regcodrea.dragas.net/bibliochromium |
||||||
|
pkill -9 X; |
||||||
|
exit; |
||||||
Loading…
Reference in new issue