123456789101112131415161718192021 |
- use strict;
- use warnings;
- use File::Basename qw(basename);
- use WebService::Prowl;
- 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);
|