Leser: 1
7 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/perl -w use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); # Prozess aufspalten my $id=fork(); # Wenn neuer Prozess, dann "exec" # Wenn alter Prozess dann Ausgabe. unless($id) { exec('/usr/bin/vlc /root/Desktop/test.mpg --sout udp://192.168.0.254 --ttl 10 --loop'); } else { print "Content-type: text/html\n\n"; print "Stream wurde geöffnet ID:$id"; }
7 Einträge, 1 Seite |