Add example on how to use post-processing scripts for sending custom notification when slicing is done.

This commit is contained in:
Henrik Brix Andersen 2012-07-31 22:48:47 +02:00
parent 83fccf0875
commit af224bbb8d

View 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);