--- /dev/null
+#!/bin/bash
+#convert \
+#-density 480 $1 -resize 25% \
+#-set filename:f '%t.%e' \
+#-flatten \
+#-colorspace rgb \
+#-background white \
+#-depth 8 \
+#-quality 84 \
+#PNG:'%[filename:1].png'
+
+convert -density 300x300 -resize 1440x900 -quality 80 $1 `echo $1|cut -f1 -d'.'`.png;\
--- /dev/null
+#!/usr/bin/perl
+use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+print "Content-type: text/html\n\n";
+
+open FILE, "<", "presenter";
+my @data = <FILE>;
+close FILE;
+
+my $f = $data[0];
+
+print $f;
\ No newline at end of file
--- /dev/null
+#!/usr/bin/perl
+use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+print "Content-type: text/html\n\n";
+
+my @files = qx(cd store; ls -1 * | sort);
+print "<select id=\"filelist\" size=\"20\">\n";
+foreach my $f (@files) {
+ chomp($f);
+ print "<option value='$f'>$f\n";
+ }
+print "</select>";
+
+
--- /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);
+
+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>
+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>
+
+<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 "";
+
+
+
+
+
+
--- /dev/null
+/dev/shm/presenter
\ No newline at end of file
--- /dev/null
+
+var currentPic = '';
+
+function getData(command,dId,callback) {
+
+ var xmlhttp = null;
+ var cb = null;
+ xmlhttp=new XMLHttpRequest();
+ cb = callback;
+ var destId = dId;
+ var cmd = command;
+
+ xmlhttp.onreadystatechange = function() {
+ if(xmlhttp.readyState == 4) {
+ if(document.getElementById(destId)){
+ document.getElementById(destId).innerHTML = xmlhttp.responseText;
+ }
+ if(cb) {
+ cb(xmlhttp.responseText);
+ }
+ }
+ }
+
+ xmlhttp.open("GET",command,1);
+ xmlhttp.send(null);
+ }
+
+
+function updatefiles() {
+ getData("getfiles.pl","files");
+}
+
+function present(f) {
+ getData("showPic.pl?"+f);
+}
+
+function updatepresentation(t) {
+ if(currentPic != t) {
+ currentPic = t;
+ document.getElementById("content").innerHTML = '<img src="store/'+t+'">';
+ }
+ setTimeout('getData("getPic.pl",null,updatepresentation)',1000);
+ }
+
+
+setTimeout('updatefiles();',500);
+
+setTimeout('getData("getPic.pl",null,updatepresentation)',1000);
\ No newline at end of file
--- /dev/null
+#!/usr/bin/perl
+use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+print "Content-type: text/html\n\n";
+
+
+my $t = $ENV{'QUERY_STRING'};
+$t =~ s-/--;
+
+system("echo $t>presenter");
+
+1;
\ No newline at end of file
--- /dev/null
+html {
+ height:100%;
+ margin:0;
+ padding:0;
+}
+
+
+* {
+ box-sizing:border-box;
+}
+
+
+body {
+ background: #000;
+ color:#888;
+ font-family: sans-serif;
+ height: 100%;
+ overflow:hidden;
+ margin:0;
+ padding-left:20px;
+ }
+
+
+#control {
+ height:100%;
+ width:220px;
+ left:-200px;
+ position:absolute;
+ top:0;
+ border-right:40px solid #000;
+ background:#ccb;
+ transition:left 0.3s;
+ overflow:hidden;
+ }
+
+#control:hover {
+ left:0;
+ border:0;
+ }
+
+#content {
+ height:100%;
+ width:100%;
+ position:absolute;
+ padding-right:100px;
+ }
+
+#content img {
+ height:100%;
+ 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;
+ }
+
+
\ No newline at end of file
--- /dev/null
+#!/usr/bin/perl
+use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+use CGI;
+use warnings;
+
+my $cgi = new CGI();
+print "Content-type: text/html\n\n";
+
+
+my $upfile = $cgi->param('upfile');
+
+my $basename = GetBasename($upfile);
+$basename =~ s-/--;
+
+my $fh = $cgi->upload('upfile');
+
+
+if (! open(OUTFILE, ">store/$basename") ) {
+ print "Can't open outfile for writing - $!";
+ exit(-1);
+}
+
+my $nBytes = 0;
+my $totBytes = 0;
+my $buffer = "";
+while ( $nBytes = read($upfile, $buffer, 1024) ) {
+ print OUTFILE $buffer;
+ $totBytes += $nBytes;
+}
+close(OUTFILE);
+
+
+sub GetBasename {
+ my $fullname = shift;
+
+ my(@parts);
+ # check which way our slashes go.
+ if ( $fullname =~ /(\\)/ ) {
+ @parts = split(/\\/, $fullname);
+ } else {
+ @parts = split(/\//, $fullname);
+ }
+
+ return(pop(@parts));
+}
\ No newline at end of file
jspc29 / labtools.git / commitdiff