mschmitt

<VirtualHost _default_:443 _default_:8443>
  
  # Force %{SERVER_PORT} to contain the actual local port of the connection
  UseCanonicalPhysicalPort On

  RewriteEngine On

  # Reverse Proxy to localhost:80 if connection was to port 443
  RewriteCond %{SERVER_PORT} =443
  RewriteRule (.*) http://localhost$1 [P]

mschmitt

mount | perl -a -n -e '$F[4]!~/^ext\d/&&next;
$F[2]=~/(^\/oracle|sapdata|oraarch|mirrlog|origlog|^\/(|boot|home|tmp|var)$)/&&next;
$F[0]=~s/\/dev\/mapper\/datavg-//;
printf"command[check_disk_%s]=/usr/lib64/nagios/plugins/check_disk -w 25%% -c 20%% -p %s\n",$F[0],$F[2]'

mschmitt

#!/bin/bash

# Overlay PNG logo on JPG files. Operation is done in-place,
# so please work only on copies of your original files.
#
# The logo is stored inline within this script, so we don't have
# to schlepp around an additional file. Replace the logo by using: 
#
# openssl base64 < myownlogo.png 
#

mschmitt

perl -ne'/^$/&&last;$d.=$_;END{$d=~s/\n\s+/ /g;print $d;}'

mschmitt

<?php phpinfo(); ?>

mschmitt

#!/usr/bin/perl -w

use strict;
use Frontier::Client;
use Data::Dumper;
use Term::ReadKey;

my $find_package;
if ($ARGV[0]){
	$find_package = $ARGV[0];

mschmitt

#!/usr/bin/perl -w
use diagnostics;
use strict;
use POSIX qw(setsid);
use Crypt::Passwd::XS;
use Tk;

# Fork off.
if (1){
	fork() && exit;

mschmitt

#!/bin/sh

# Aktuelle IP
IP=`lynx --dump --source http://www.ipv4.dyn.f00.net/ip.php` 
IP6=2001:db8::1234:5678

KEY='dynupdate-meinkey:UGVuaXMhCg=='
HOST='meinhost.dyn.meinedomain.de'

nsupdate -y $KEY <<Ende

mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;
#use File::Navigate; (bundled below)

my $nav = File::Navigate->new($ARGV[0]);

my @connects = @{$nav->find(qr/sshd\[\d+\]: Connection from .+ port \d/)};

foreach (@connects){

mschmitt

// Arduino Leonardo: Send key when a button is pressed.

void setup() {
  pinMode(12, INPUT_PULLUP);
  Keyboard.begin();
}

void loop() {
  //if the button is pressed
  if(digitalRead(12)==LOW){