X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=old-door-deamon%2Fdoor_daemon.pl;fp=old-door-deamon%2Fdoor_daemon.pl;h=0000000000000000000000000000000000000000;hp=af2a85b051d2e5daf63c6a33c7cc452657f917d8;hb=ef0255ffe0a390c49c6e2c3e41fb5312032a4f00;hpb=5f90a9da59975c3bf81efc461fcd13637e4e0e5d

diff --git a/old-door-deamon/door_daemon.pl b/old-door-deamon/door_daemon.pl
deleted file mode 100755
index af2a85b..0000000
--- a/old-door-deamon/door_daemon.pl
+++ /dev/null
@@ -1,60 +0,0 @@
-#!/usr/bin/perl -w
-use IO::Handle;
-
-my $fifofile = "/root/door_cmd.fifo";
-unless( -p $fifofile) 
-{
-  unlink $fifofile;
-  system("mkfifo -m 600 $fifofile") && die "Can't mkfifo $fifofile: $!";
-  system("setfacl -m u:otti:rw $fifofile");
-  system("setfacl -m u:asterisk:rw $fifofile");
-}
-
-open($logfile,'>>/var/log/tuer.log');
-$logfile->autoflush(1);
-print $logfile localtime()." Door Daemon started\n";
-
-print `/root/ledoff`;
-system('ln -sf /var/www/indexclosed.html /var/www/index.html');
-my $tuer=0;
-my $who="";
-
-sub handler
-{
-  #local($sig) = @_;
-  print $logfile localtime()." Door Daemon stopped\n";
-  close $logfile;
-  close $fifo if (defined $fifo);
-  exit(0);
-}
-
-$SIG{'INT'} = 'handler';
-$SIG{'QUIT'} = 'handler';
-$SIG{'KILL'} = 'handler';
-
-while (1)
-{
-  open($fifo,"< $fifofile");
-	while (my $cmd = <$fifo>)
-	{
-	  if ($cmd =~ /^(\w+)\s*(.*)$/)
-	  {
-	    $who=$2;
-	    if    ($1 eq "open")   {$tuer=1;}
-	    elsif ($1 eq "close")  {$tuer=0;}
-	    elsif ($1 eq "toggle") {$tuer=not $tuer;}
-	  }
-
-	  if ($tuer)
-	  {
-	    print `/root/ledon`;
-	    system('ln -sf /var/www/indexopen.html /var/www/index.html');
-	    print $logfile localtime()." Door opened by $who\n";
-	  } else {
-	    print `/root/ledoff`;
-	    system('ln -sf /var/www/indexclosed.html /var/www/index.html');
-	    print $logfile localtime()." Door closed by $who\n";
-	  }
-	}
-  close($fifo);
-}