blob: c0632d122ad7cd2d411936d92a4e4ce3b4cfc66f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
#!/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://<ip:5000>/ 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 = <DATA>
};
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__
<html>
<head>
<title>Slic3r</title>
</head>
<body>
<h1>Slic3r</h1>
<form method="POST" action="gcode">
<p>Select an stl file:
<input type="file" name="stlfile" />
</p>
<input type="submit" value="Slice!" />
</form>
</body>
</html>
|
