Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Perl code to send a message to Pushover.

  • Loading branch information...
commit ea643f555469a4ebb4d9481401c192c3d3ab9538 0 parents
Dave Cross authored

Showing 1 changed file with 20 additions and 0 deletions. Show diff stats Hide diff stats

  1. 20  message
20  message
... ...
@@ -0,0 +1,20 @@
  1
+#!/usr/bin/perl
  2
+
  3
+use strict;
  4
+use warnings;
  5
+use 5.010;
  6
+
  7
+use WebService::Pushover;
  8
+use Data::Dumper;
  9
+
  10
+my $push = WebService::Pushover->new
  11
+    or die( "Unable to instantiate WebService::Pushover.\n" );
  12
+ 
  13
+my %params = (
  14
+    token   => $ENV{PUSHOVER_APP},
  15
+    user    => $ENV{PUSHOVER_USER},
  16
+    title   => 'Pushover from Perl',
  17
+    message => shift || 'Test message',
  18
+);
  19
+ 
  20
+say Dumper $push->message( %params );

0 notes on commit ea643f5

Please sign in to comment.
Something went wrong with that request. Please try again.