Robert Drake rfdrake

## onms_template.py
<?xml version="1.0" encoding="UTF-8"?>
<model-import xmlns="http://xmlns.opennms.org/xsd/config/model-import"
    date-stamp="2009-01-11T19:25:03.851-05:00"
    foreign-source="netbox-2022">

{% for device in queryset %}
    {% if device.status == 'active' and device.primary_ip4 and ( 'No Monitoring' not in device.tags.names() ) %}
        {% set netbox_url = 'https://YOURNETBOXHOST/dcim/devices/' %}
        {% set id = device.cf.bbsites_id or 'nb'~device.id %}
        {% set url = '<a href=' ~ netbox_url ~ device.id ~ ' target="_blank">' ~ netbox_url ~ device.id ~ '</a>' %}

## qnap_conn_types
conn_action	name
10,	Login OK
11,	Logout
9,	Login Fail
3,	Write
2,	Read
8,	Rename
14,	Move
5,	MakeDir
1,	Delete

## dhcp_lease_parse.pl
#!/usr/bin/perl

use strict;
use warnings;
use Marpa::R2;

my $DSL = <<'END_DSL';
    lexeme default = latm => 1
    :discard ~ Whitespace
    :discard ~ Comment

## copy-module-to-perlbrew
# this is an absolute hack used to workaround the fact we can't add build-deps
# to travis-ci containers.  It's better than some alternatives, but most
# people might want to stick with "sudo: true" instead of doing this.

# Ok, this is worthless because system perls are built with threading and perlbrew isn't.
#     Error:  Can't load '/home/travis/perl5/perlbrew/perls/5.20/lib/5.20.0/x86_64-linux/auto/GD/GD.so' for module GD: /home/travis/perl5/perlbrew/perls/5.20/lib/5.20.0/x86_64-linux/auto/GD/GD.so: undefined symbol: PL_thr_key at /home/travis/perl5/perlbrew/perls/5.20/lib/5.20.0/x86_64-linux/DynaLoader.pm line 193.

# need system perl to get the include path right
# curl https://....githubstuff.com | /usr/bin/perl - | sh -x

## repl.rc
use feature 'say'; # to don't write \n all the time
use Data::Dumper;
use Term::ANSIColor;

# pretty print data structures
sub pp { print Data::Dumper->Dump([@_]) }

load_plugin qw(
    FancyPrompt
    ReadLineHistory       Colors

## apache::vhost.pp
class apache_vhosts (
    $vhosts = hiera('apache::vhosts', {}),
    $options = [ "-Indexes", "+FollowSymLinks", "+MultiViews" ],
    $override = [ "All" ],
)
{

    # why all this trouble when create_resources supports default?  Because we need to know the $name

    validate_hash($vhosts)

## rancid-fe
#! /usr/bin/perl5
##
## $Id: rancid-fe.in 2296 2011-04-27 18:18:56Z heas $
##
## rancid 2.3.8
## Copyright (c) 1997-2008 by Terrapin Communications, Inc.
## All rights reserved.
##
## This code is derived from software contributed to and maintained by
## Terrapin Communications, Inc. by Henry Kilmer, John Heasley, Andrew Partan,

## rtrcolor.pl
#!/usr/bin/perl -w

# Copyright (C) 2007 Robert Drake
# This module is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
#  version 2 of the License, or (at your option) any later version.
#
# This module is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of

## ifs.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<head>
<meta content="text/html;charset=utf-8" http-equiv="Content-Type">
<meta content="utf-8" http-equiv="encoding">
</head>
<html>
 <body bgcolor="#000000">
     <center>
     <canvas id="canvas" width="800" height="600"/>
     </center>

## raid1.cfg
# This puts all files in one partition.  You'll need to change proxy settings
# (USERNAME, PASSWORD, PROXYSERVER) and crypted passwords, as well as the
# get_domain string to your dns domain.

# This is not quite fully automatic.  It will prompt you for hostname.  If you
# want to automatically fill in the hostname you'll need to provide it in the
# kernel APPEND line by saying netcfg/get_hostname=hostname

# If you've never setup preseeding, the first step is going to be getting PXE
# netinstall working.  You don't need a full CD, you just need netboot/debian-installer/amd64/linux
	<?xml version="1.0" encoding="UTF-8"?>
	<model-import xmlns="http://xmlns.opennms.org/xsd/config/model-import"
	date-stamp="2009-01-11T19:25:03.851-05:00"
	foreign-source="netbox-2022">

	{% for device in queryset %}
	{% if device.status == 'active' and device.primary_ip4 and ( 'No Monitoring' not in device.tags.names() ) %}
	{% set netbox_url = 'https://YOURNETBOXHOST/dcim/devices/' %}
	{% set id = device.cf.bbsites_id or 'nb'~device.id %}
	{% set url = '<a href=' ~ netbox_url ~ device.id ~ ' target="_blank">' ~ netbox_url ~ device.id ~ '</a>' %}
	conn_action name
	10, Login OK
	11, Logout
	9, Login Fail
	3, Write
	2, Read
	8, Rename
	14, Move
	5, MakeDir
	1, Delete
	#!/usr/bin/perl

	use strict;
	use warnings;
	use Marpa::R2;

	my $DSL = <<'END_DSL';
	lexeme default = latm => 1
	:discard ~ Whitespace
	:discard ~ Comment
	# this is an absolute hack used to workaround the fact we can't add build-deps
	# to travis-ci containers. It's better than some alternatives, but most
	# people might want to stick with "sudo: true" instead of doing this.

	# Ok, this is worthless because system perls are built with threading and perlbrew isn't.
	# Error: Can't load '/home/travis/perl5/perlbrew/perls/5.20/lib/5.20.0/x86_64-linux/auto/GD/GD.so' for module GD: /home/travis/perl5/perlbrew/perls/5.20/lib/5.20.0/x86_64-linux/auto/GD/GD.so: undefined symbol: PL_thr_key at /home/travis/perl5/perlbrew/perls/5.20/lib/5.20.0/x86_64-linux/DynaLoader.pm line 193.

	# need system perl to get the include path right
	# curl https://....githubstuff.com \| /usr/bin/perl - \| sh -x
	use feature 'say'; # to don't write \n all the time
	use Data::Dumper;
	use Term::ANSIColor;

	# pretty print data structures
	sub pp { print Data::Dumper->Dump([@_]) }

	load_plugin qw(
	FancyPrompt
	ReadLineHistory Colors
	class apache_vhosts (
	$vhosts = hiera('apache::vhosts', {}),
	$options = [ "-Indexes", "+FollowSymLinks", "+MultiViews" ],
	$override = [ "All" ],
	)
	{

	# why all this trouble when create_resources supports default? Because we need to know the $name

	validate_hash($vhosts)
	#! /usr/bin/perl5
	##
	## $Id: rancid-fe.in 2296 2011-04-27 18:18:56Z heas $
	##
	## rancid 2.3.8
	## Copyright (c) 1997-2008 by Terrapin Communications, Inc.
	## All rights reserved.
	##
	## This code is derived from software contributed to and maintained by
	## Terrapin Communications, Inc. by Henry Kilmer, John Heasley, Andrew Partan,
	#!/usr/bin/perl -w

	# Copyright (C) 2007 Robert Drake
	# This module is free software; you can redistribute it and/or
	# modify it under the terms of the GNU Library General Public
	# License as published by the Free Software Foundation; either
	# version 2 of the License, or (at your option) any later version.
	#
	# This module is distributed in the hope that it will be useful,
	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
	<head>
	<meta content="text/html;charset=utf-8" http-equiv="Content-Type">
	<meta content="utf-8" http-equiv="encoding">
	</head>
	<html>
	<body bgcolor="#000000">
	<center>
	<canvas id="canvas" width="800" height="600"/>
	</center>
	# This puts all files in one partition. You'll need to change proxy settings
	# (USERNAME, PASSWORD, PROXYSERVER) and crypted passwords, as well as the
	# get_domain string to your dns domain.

	# This is not quite fully automatic. It will prompt you for hostname. If you
	# want to automatically fill in the hostname you'll need to provide it in the
	# kernel APPEND line by saying netcfg/get_hostname=hostname

	# If you've never setup preseeding, the first step is going to be getting PXE
	# netinstall working. You don't need a full CD, you just need netboot/debian-installer/amd64/linux