Add example on how to use post-processing scripts for sending custom notification when slicing is done.
This commit is contained in:
parent
83fccf0875
commit
af224bbb8d
21
utils/post-processing/prowl-notification.pl
Executable file
21
utils/post-processing/prowl-notification.pl
Executable file
@ -0,0 +1,21 @@
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
# Example post-processing script for sending a Prowl notification upon
|
||||
# completion. See http://www.prowlapp.com/ for more info.
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::Basename qw(basename);
|
||||
use WebService::Prowl;
|
||||
|
||||
# set your Prowl API key here
|
||||
my $apikey = '';
|
||||
|
||||
my $file = basename $ARGV[0];
|
||||
my $prowl = WebService::Prowl->new(apikey => $apikey);
|
||||
my %options = (application => 'Slic3r',
|
||||
event =>'Slicing Done!',
|
||||
description => "$file was successfully generated");
|
||||
printf STDERR "Error sending Prowl notification: %s\n", $prowl->error
|
||||
unless $prowl->add(%options);
|
Loading…
Reference in New Issue
Block a user