From cc330932d6c000070b18acaa17b5d2c95cdf6262 Mon Sep 17 00:00:00 2001 From: Mark Hindess Date: Wed, 27 Jun 2012 17:58:27 +0100 Subject: [PATCH] Revert "Simple remote interface to slic3r using plack." This reverts commit a3af688173186aa47d7cf79ad08d511f8969dbf0. --- utils/slic3r.psgi | 81 ----------------------------------------------- 1 file changed, 81 deletions(-) delete mode 100755 utils/slic3r.psgi diff --git a/utils/slic3r.psgi b/utils/slic3r.psgi deleted file mode 100755 index c0632d122..000000000 --- a/utils/slic3r.psgi +++ /dev/null @@ -1,81 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; -use File::Temp qw/tempfile/; -use Plack::Request; -use Slic3r; - -# Usage: perl -Ilib utils/slic3r.psgi -# Then point your browser at http:/// or use: -# curl -o thing.gcode -F stlfile=@/path/to/thing.stl \ -# http://127.0.0.1:5000/gcode - -use constant { - CONFIG => $ENV{SLIC3R_CONFIG}, - DEBUG => $ENV{SLIC3R_PSGI_DEBUG}, -}; - -unless (caller) { - require Plack::Runner; - Plack::Runner->run(@ARGV, $0); -} - -if (defined CONFIG) { - Slic3r::Config->load(CONFIG); -} else { - print "Using defaults as environment variable SLIC3R_CONFIG is not set\n"; -} - -Slic3r::Config->validate; - -my $form; -{ - local $/; - $form = -}; - -my $app = sub { - my $env = shift; - my $req = Plack::Request->new($env); - my $path_info = $req->path_info; - if ($path_info =~ m!^/gcode!) { - my $upload = $req->uploads->{'stlfile'}->path; - rename $upload, $upload.'.stl'; - $upload .= '.stl'; - my $print = Slic3r::Print->new; - $print->add_object_from_file($upload); - if (0) { #$opt{merge}) { - $print->add_object_from_file($_) for splice @ARGV, 0; - } - $print->duplicate; - $print->arrange_objects if @{$print->objects} > 1; - $print->validate; - my ($fh, $filename) = tempfile(); - $print->export_gcode(output_file => $filename, - status_cb => sub { - my ($percent, $message) = @_; - printf "=> $message\n"; - }); - unlink $filename; - return [ 200, ['Content-Type' => 'text/plain'], $fh ]; - } else { - return [ 200, ['Content-Type' => 'text/html'], [$form] ]; - } -}; - -__DATA__ - - - Slic3r - - -

Slic3r

-
-

Select an stl file: - -

- -
- - -