~ubuntu-branches/ubuntu/utopic/slic3r/utopic

« back to all changes in this revision

Viewing changes to utils/post-processing/prowl-notification.pl

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

utils/post-processing/prowl-notification.pl

 

1

#!/usr/bin/perl

 

2

#

 

3

# Example post-processing script for sending a Prowl notification upon

 

4

# completion. See http://www.prowlapp.com/ for more info.

 

5

 

 

6

use strict;

 

7

use warnings;

 

8

 

 

9

use File::Basename qw(basename);

 

10

use WebService::Prowl;

 

11

 

 

12

# set your Prowl API key here

 

13

my $apikey = '';

 

14

 

 

15

my $file = basename $ARGV[0];

 

16

my $prowl = WebService::Prowl->new(apikey => $apikey);

 

17

my %options = (application => 'Slic3r',

 

18

               event =>'Slicing Done!',

 

19

               description => "$file was successfully generated");

 

20

printf STDERR "Error sending Prowl notification: %s\n", $prowl->error

 

21

    unless $prowl->add(%options);

Loggerhead is a web-based interface for Breezy
Version: 2.0.1