mudler

#cloud-config

hostname: kubedoom-{{ trunc 4 .MachineID }}
users:
- name: kairos
  # Change to your pass here
  passwd: kairos
  ssh_authorized_keys:
  # Add your github user here!
  - github:mudler

mudler

# CONFIG
SNMP_COMMUNITY=public
SYSCONTACT=dan
SYSLOCATION=Berlin
ALLOW_IP=default
# get packages
apt-get install snmpd xinetd vim

mkdir -p /opt/observium && cd /opt

mudler

#!/usr/bin/perl
# PODNAME: generate-md
use lib './lib';
use Mojo::Util qw(spurt);
use Pod::POM;
use Pod::POM::View::Pod;

use Pod::Markdown::Github;
use File::Find;
use constant SUBMODULE_DIR => "../docs/";

mudler

my $a = MyClass->new;
use Data::Dumper;
print "Test, searching for 'data': " . $a->test->big->data() . "\n";
print "Test, searching for 'inner': " . $a->big->data() . "\n";
print "Test, searching for 'innest': " . $a->innest() . "\n";
print Dumper( $a->innest );

package MyClass;
use Storable qw(dclone);

mudler

#
# corecd.py
#
# Copyright (C) 2014 Fabio Erculiani
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#

mudler

Keybase proof

I hereby claim:

• I am mudler on github.
• I am mudler (https://keybase.io/mudler) on keybase.
• I have a public key ASAZfSmMTm-xtaPVYRVaUup5ND5EALknum5lldJttO9qaQo

To claim this, I am signing this object:

mudler

Searching Mojolicious::Plugin::JQuery on cpanmetadb ...
--> Working on Mojolicious::Plugin::JQuery
Fetching http://www.cpan.org/authors/id/F/FE/FERRO/Mojolicious-Plugin-JQuery-2.11001.tar.gz
-> OK
Unpacking Mojolicious-Plugin-JQuery-2.11001.tar.gz
Entering Mojolicious-Plugin-JQuery-2.11001
Checking configure dependencies from META.json
Checking if you have ExtUtils::MakeMaker 0 ... Yes (6.66)
Configuring Mojolicious-Plugin-JQuery-2.11001
Running Makefile.PL

mudler

sub register_rpc {
    my $symbol = { eval( '%' . caller . "::" ) };
    my @RPC_PUBLIC;
    foreach my $entry ( keys %{$symbol} ) {
        no strict 'refs';
        if ( defined &{ caller . "::$entry" } ) {
            push( @RPC_PUBLIC, $entry ) if $entry =~ /^\_/;

        }
    }

mudler

#!/usr/bin/perl

use strict;
use warnings;

use constant MAX => 100;

my $sieve = '';
vec($sieve, MAX, 1) = 0;
$sieve = ~$sieve;