Browse Source

First commit

master
Stefano Marinelli 7 years ago
parent
commit
e41b932e17
  1. 12
      chillicount.sh
  2. 3
      chillicount1.sh
  3. 19
      chillikill.pl
  4. 20
      chillilisten.pl
  5. 7
      launchbrowser.sh
  6. 4
      launchde.sh

12
chillicount.sh

@ -0,0 +1,12 @@ @@ -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

3
chillicount1.sh

@ -0,0 +1,3 @@ @@ -0,0 +1,3 @@
#!/bin/sh
/dragas/chillicount.sh $1 &

19
chillikill.pl

@ -0,0 +1,19 @@ @@ -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);

20
chillilisten.pl

@ -0,0 +1,20 @@ @@ -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);

7
launchbrowser.sh

@ -0,0 +1,7 @@ @@ -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;

4
launchde.sh

@ -0,0 +1,4 @@ @@ -0,0 +1,4 @@
#!/bin/bash
/usr/bin/x11docker --vt=2 --xorg --desktop --sharedir=/media/usb0 --lang=it --hostipc --alsa --printer --user=4242 regcodrea.dragas.net/bibliomate
pkill -9 X;
exit;
Loading…
Cancel
Save