Skip to content

Instantly share code, notes, and snippets.

View racke's full-sized avatar

Stefan Hornburg (Racke) racke

64 followers · 54 following
View GitHub Profile
@racke
racke / github-release-message.pl.md
Created November 18, 2022 11:50 — forked from ikedas/github-release-message.pl.md
Build message for release announcement of Sympa

Run: github-release-message.pl sympa-community/sympa 6.2.70.

#! /usr/bin/env perl

use strict;
use warnings;

use English qw(-no_match_vars);
use JSON;
@racke
racke / start-sympa
Created December 18, 2019 12:15
Scripts and templates for Sympa Docker Container
#! /bin/bash -e
export PERL5LIB="/home/sympa/bin:/home/sympa/lib/perl5"
/home/sympa/write-sympa-conf
/home/sympa/bin/sympa.pl
@racke
racke / 450_local-config_sympa_aliases
Created September 10, 2017 12:44
Sympa Exim Config
#--------------
# Using alias pipe definitions for the Sympa lists in /etc/mail/sympa/aliases
sympa_aliases:
debug_print = "R: system_aliases for $local_part@$domain"
driver = redirect
domains = +local_domains
allow_fail
allow_defer
data = ${lookup{$local_part}lsearch{/etc/mail/sympa/aliases}}
user = sympa
@racke
racke / gist:17102e2fab740f309e31d520a66534cb
Created April 14, 2016 09:51
Solution for custom DH scripts
package PerlDance::Schema::Upgrades::2016;
use Moo;
use DateTime;
has schema => (
is => 'ro',
required => 1,
);
@racke
racke / script
Created November 18, 2015 13:50
Git filter branch
git filter-branch \
--prune-empty \
--index-filter '
git ls-tree -z -r --name-only --full-tree $GIT_COMMIT \
| grep -z -v "^applications/CalevoMobile/lib/CalevoMobile/Schema" \
| xargs -0 -r git rm --cached -r
' \
-- \
feature/split_out_schema
git filter-branch \
@racke
racke / dh-prepare-upgrade
Last active November 24, 2021 05:18
DH scripts
#!/usr/bin/env perl
use warnings;
use strict;
use Dancer qw/:script/;
use Dancer::Plugin::DBIC;
use DBIx::Class::DeploymentHandler;
my $schema = schema;
@racke
racke / plackup-app.pl
Created June 23, 2015 09:58
Generic plackup script for camps
#!/bin/bash
# determine camp number
for CAMPDIR in "$PWD" "${PWD%/*}" "${PWD%/*/*}"; do
if [[ $CAMPDIR =~ ([[:digit:]]+)$ ]]; then
CAMPNUMBER=${BASH_REMATCH[1]}
break
fi
done
@racke
racke / SessionCrossover.pm
Created April 3, 2014 07:32
Interchange5 Session Crossover Plugin
package Dancer::Plugin::Interchange5::SessionCrossover;
use warnings;
use strict;
use Dancer::Plugin;
use Dancer qw/:syntax/;
use Storable qw/thaw freeze/;
# this plugin nesting is not going to work with D2, until further notice :-\
use Dancer::Plugin::Database;
@racke
racke / html2flute
Created March 21, 2014 11:41
HTML2FLUTE - rough try
#!/usr/bin/env perl
use strict;
use warnings;
use File::Spec;
use File::Copy::Recursive qw/rcopy/;
use File::Find;
use Data::Dumper;
use XML::Twig;
use File::Path qw/mkpath/;
@racke
racke / gist:8297992
Created January 7, 2014 11:23
#! /usr/bin/env perl
use strict;
use warnings;
use Dancer ':script';
use Getopt::Long;
use Dancer::Plugin::Interchange6;
my $duration;