ravnx

#!/usr/bin/perl -w
# This will search the CDR logs for DND toggles for a user.
# Run it from cron if you want, its quiet. If you don't specify a date,
# it will pull today's date.
use strict;
use MIME::Lite;
use Time::Local;

my $ext = $ARGV[0] or die "Must provide extension number";

ravnx

#!/usr/bin/perl -w
# This script will check for if more than $maxoffline phones are offline and 
# change the first daynight mode via asterisk if we go over the limit, and alert the user
# Set this up in crontab to run during business hours. This probably could be done safer, and better
# using the AMI interface. But needed something done during an outage, so this got hacked together.
use strict;
use MIME::Lite;

# debug mode
my $debug = $ARGV[0] || 0;

ravnx

#!/usr/bin/python3
""" 
    This script will dump host stats from your Nagios4 status.dat as JSON.

    You can put this in your /usr/lib/cgi-bin/nagios4 directory and chmod +x this file, 
    then, to access it remotely use python requests:
        r = requests.get('https://nagiosinstall-location.com/nagios4/cgi-bin/status2json.py', auth=HTTPDigestAuth(user,pass))
        print(r.json())

    You might need to add .py to your http.conf cgi handlers.

ravnx

<?php

print("<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n");
print("<MyIPPhoneDirectory clearlight=\"true\">\n");
print("<Prompt>Prompt</Prompt>\n");
    set_time_limit(5);                                                        # Set max execution time
    $output = shell_exec("/usr/sbin/asterisk -rx \"database show AMPUSER\" | grep cidname"); # grab cidname and number cleanly
    $outAry = explode("\n",$output);                                          # explode to array
    foreach ($outAry as $line) {                                              # loop array
        # /AMPUSER/1000/cidname                             : TX03 Receptionist  

ravnx

#!/usr/bin/perl -w
# Quick script to hack out a directory for a mac address. I use it for the
# receptionist's BLF on her IP650 with sidecars.
use strict;
use Polycom::Contact::Directory;
use DBI;

# Grab the MAC address from ARGV and make a file
my $mac = $ARGV[0] or die "No MAC Specified\n";
my $contactFile = "/tftpboot/polycom/contacts/$mac-directory.xml";

ravnx

#!/usr/bin/perl -w
# This perl script will do a quick and dirty parse from
# outlook vcal to evolution ical format
# Last Update:Thu Feb 05 11:49:59 CST 2004
## New note: Putting this here for archival purposes. Not even sure if outlook uses vcs anymore.
use strict;

my $file = $ARGV[0] or die "No filename specified";
   die if (!-e $file);
my $newfile = $file;

ravnx

Keybase proof

I hereby claim:

• I am ravnx on github.
• I am michaelp713 (https://keybase.io/michaelp713) on keybase.
• I have a public key whose fingerprint is A8EB 25D7 BF9C 8EDB 4C37 E855 6EDA 5B69 4ECB F69E

To claim this, I am signing this object: