--- /dev/null
+.kateproject.d/
--- /dev/null
+{
+ "name": "Presenter"
+, "files": [ { "git": 1 } ]
+}
--- /dev/null
+/dev/shm/currentstate
\ No newline at end of file
#!/usr/bin/perl
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+use CGI;
print "Content-type: text/html\n\n";
-open FILE, "<", "presenter";
-my @data = <FILE>;
-close FILE;
-my $f = $data[0];
+my $cgi = new CGI();
+
+
+my $room = $cgi->param('room');
+if (!($room =~ /^[a-zA-Z0-9]+$/) || !(-d "store/$room")) {
+ print "Invalid room";
+ return 1;
+}
+
+my $old = $cgi->param('old');
+my $timer = 0;
+my $f;
+do {
+ open FILE, "<", "store/$room/currentstate";
+ my @data = <FILE>;
+ close FILE;
+ $f = $data[0];
+ chomp($f);
+ sleep(1) if($f eq $old);
+ }while($timer++ < 30 && $f eq $old);
print $f;
\ No newline at end of file
#!/usr/bin/perl
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+use CGI;
print "Content-type: text/html\n\n";
-my @files = qx(cd store; ls -1 * | sort);
+
+my $cgi = new CGI();
+
+
+my $room = $cgi->param('room');
+if (!($room =~ /^[a-zA-Z0-9]+$/) || !(-d "store/$room")) {
+ print "Invalid room";
+ return 1;
+}
+
+my $cmd = "cd store;cd $room; ls -1 -v";
+my @files = qx($cmd);
print "<select id=\"filelist\" size=\"20\">\n";
foreach my $f (@files) {
chomp($f);
+ next if $f eq "currentstate";
print "<option value='$f'>$f\n";
}
print "</select>";
print "Content-type: text/html\n\n";
-use Data::Dumper;
-use warnings;
-use strict;
-use utf8;
-binmode(STDIN, ":utf8");
-binmode(STDOUT, ":utf8");
-use URI::Escape qw(uri_unescape uri_escape);
print <<HDOC;
<!DOCTYPE html>
<script src="scripts.js" type="text/javascript"></script>
<meta charset="UTF-8"/>
</head>
+<body class="title">
+<h1>Remote Presenter</h1>
+<select id="roomlist" size="20">
HDOC
-print '<body class="'.$ENV{'QUERY_STRING'}.'">';
-print <<HDOC;
-<div id="content">Remote Presenter<br><-- Click to show or just watch!</div>
-<div id="control">
-<form method="post" action="uploadFiles.pl" enctype="multipart/form-data">
-<input type="file" name="upfile"><input type="submit" name="button" value="Upload">
-</form>
-<button type="button" onClick="updatefiles();">Update</button>
+my @files = qx(cd store; ls -1 -v );
-<hr>Files
-<div id="files"> </div>
-<button type="button" onClick="window.open('store/'+document.getElementById('filelist').value)">Show Me!</button><button type="button" onClick="present(document.getElementById('filelist').value)">Show All!</button>
-</div>
-</body></html>
-HDOC
-
-print "";
-
-
-
-
-
+foreach my $f (@files) {
+ chomp($f);
+ print "<option value='$f'>$f\n";
+ }
+print <<HDOC;
+</select><br>
+<button type="button" onClick="window.location='showroom.pl?'+document.getElementById('roomlist').value">Enter Room</button>
+</body>
+</html>
+HDOC
\ No newline at end of file
+++ /dev/null
-/dev/shm/presenter
\ No newline at end of file
-var currentPic = '';
+var currentPic = ' ';
function getData(command,dId,callback) {
function updatefiles() {
- getData("getfiles.pl","files");
+ room = document.getElementById("showroom").getAttribute("room");
+ getData("getfiles.pl?room="+room,"files");
}
function present(f) {
if(f != "") {
- getData("showPic.pl?"+f);
+ getData("showPic.pl?img="+f+"&room="+document.getElementById("showroom").getAttribute("room"));
}
else {
alert("Select a file to show!");
}
function updatepresentation(t) {
+ room = document.getElementById("showroom").getAttribute("room");
+ t = t.trim();
if(currentPic != t) {
currentPic = t;
- document.getElementById("content").innerHTML = '<img src="store/'+t+'">';
+ document.getElementById("content").innerHTML = '<img src="store/'+room+'/'+t+'">';
}
- setTimeout('getData("getPic.pl",null,updatepresentation)',1000);
+ setTimeout('getData("getPic.pl?old='+t+'&room='+room+'",null,updatepresentation)',1000);
}
setTimeout('updatefiles();',500);
-
-setTimeout('getData("getPic.pl",null,updatepresentation)',1000);
+setTimeout('updatepresentation(" ");',200);
#!/usr/bin/perl
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+use CGI;
print "Content-type: text/html\n\n";
+my $cgi = new CGI();
-my $t = $ENV{'QUERY_STRING'};
-$t =~ s-/--;
-system("echo $t>presenter");
+my $room = $cgi->param("room");
+if (!($room =~ /^[a-zA-Z0-9]+$/) || !(-d "store/$room")) {
+ print "Invalid room";
+ return 1;
+}
+
+
+my $t = $cgi->param("img");
+if($t =~ /[\"\$\(\)\/]/ || !(-e "store/$room/$t")) {
+ print "Invalid selection";
+ return 1;
+}
+
+system("echo $t>store/$room/currentstate");
1;
\ No newline at end of file
--- /dev/null
+#!/usr/bin/perl
+use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+
+print "Content-type: text/html\n\n";
+
+use Data::Dumper;
+use warnings;
+use strict;
+use utf8;
+binmode(STDIN, ":utf8");
+binmode(STDOUT, ":utf8");
+
+use URI::Escape qw(uri_unescape uri_escape);
+
+my $room = $ENV{'QUERY_STRING'};
+$room =~ s![\(\)/]+!!g;
+
+
+print <<HDOC;
+<!DOCTYPE html>
+<html lang="en">
+<head>
+ <title>Remote Presenter</title>
+ <link rel="stylesheet" type="text/css" href="style.css">
+ <script src="scripts.js" type="text/javascript"></script>
+ <meta charset="UTF-8"/>
+</head>
+<body id="showroom" room="$room">
+HDOC
+print <<HDOC;
+<div id="content">Remote Presenter<br><-- Click to show or just watch!</div>
+<div id="control">
+Select a file and press upload.
+<form method="post" action="uploadFiles.pl" enctype="multipart/form-data">
+<input type="hidden" name="room" value="$room">
+<input type="file" name="upfile"><input type="submit" name="button" value="Upload">
+</form>
+<hr>
+<button type="button" onClick="updatefiles();">Update file list</button>
+<div id="files"> </div>
+<button type="button" onClick="window.open('store/$room/'+document.getElementById('filelist').value)">Show Me!</button>
+<button type="button" onClick="present(document.getElementById('filelist').value)">Show All!</button>
+
+</body></html>
+HDOC
+
+
+
+
+
+
padding-left:20px;
}
-
+body.title {
+ background:#f0f0ea;
+ padding:0;
+}
+
+h1 {
+ color: #889;
+ width:100%;
+ padding-left:20px;
+ border-bottom:1px solid #aaa;
+ }
+
#control {
height:100%;
width:220px;
#content img {
height:100%;
- /*width:100%;*/
max-width:100%;
object-fit:contain;
margin:0;
padding:0;
}
-
-div.but {
- border:1px solid #aaa;
- background:#fff;
- width:100px;
- margin:5px;
- text-align:center;
- display:inline-block;
- cursor:hand;
- color:#889;
- }
+#roomlist {
+ width:200px;
+}
my $upfile = $cgi->param('upfile');
+my $room = $cgi->param('room');
+if (!($room =~ /^[a-zA-Z0-9]+$/) || !(-d "store/$room")) {
+ print "Invalid room";
+ return 1;
+}
+
+
my $basename = GetBasename($upfile);
$basename =~ s-/--;
my $fh = $cgi->upload('upfile');
-if (! open(OUTFILE, ">store/$basename") ) {
+if (! open(OUTFILE, ">store/$room/$basename") ) {
print "Can't open outfile for writing - $!";
exit(-1);
}
if($basename =~ /.pdf$/) {
my $b = $basename;
$b =~ s/.pdf//;
- system("cd store;../convert.sh $basename $b");
- system("rm store/$basename");
+ system("cd store/$room;../../convert.sh $basename $b");
+ system("rm store/$room/$basename");
}
jspc29 / labtools.git / commitdiff