Skip to content

Instantly share code, notes, and snippets.

View MagnusEnger's full-sized avatar

Magnus Enger MagnusEnger

View GitHub Profile
#!/usr/bin/perl
use Digest::SHA qw( sha512_hex );
use Test::More;
use Modern::Perl;
use utf8;
my $digest1 = uc sha512_hex( 'The quick brown fox jumps over the lazy dog' );
my $truth1 = '07E547D9586F6A73F73FBAC0435ED76951218FB7D0C8D788A309D785436BBB642E93A252A954F23912547D1E8A3B5ED6E1BFD7097821233FA0538F3DB854FEE6';
is( $digest1, $truth1, 'Fox OK' );
@MagnusEnger
MagnusEnger / dvd.pl
Created September 6, 2016 11:30
Simple script to turn CSV records into MARCXML, using Catmandu
#!/usr/bin/perl
# Copyright 2015 Magnus Enger Libriotech
=head1 NAME
dvd.pl - Turn CSV into MARC.
=head1 SYNOPSIS
@MagnusEnger
MagnusEnger / .vimrc
Last active August 29, 2015 14:09
.vimrc
" .vimrc for Magnus Enger
" Show line numbers
set number
" Turn on syntax highlighting
syntax on
" Indentation
set expandtab
@MagnusEnger
MagnusEnger / ingest.pl
Created April 10, 2014 13:47
Catmandu Atom ingest v2
#!/usr/bin/perl
use Catmandu::Importer::Atom;
use Catmandu::Store::ElasticSearch;
use Data::Dumper;
use Modern::Perl;
my $feed = 'http://planet.code4lib.org/atom.xml';
# Set up importer and store
@MagnusEnger
MagnusEnger / ingest.pl
Created April 10, 2014 13:46
Catmandu Atom ingest v1
#!/usr/bin/perl
use Catmandu::Importer::Atom;
use Catmandu::Store::ElasticSearch;
use Data::Dumper;
use Modern::Perl;
my $feed = 'http://planet.code4lib.org/atom.xml';
my $importer = Catmandu::Importer::Atom->new( url => $feed );
@MagnusEnger
MagnusEnger / tab2marc.pl
Created April 2, 2014 07:11
Tab separated to MARC via Catmandu
#!/usr/bin/perl
# Copyright 2013 Magnus Enger Libriotech
=head1 NAME
tab2marc.pl - Convert some tab-delimited data to MARCXML.
=head1 SYNOPSIS
@MagnusEnger
MagnusEnger / gist:9183729
Created February 24, 2014 08:14
Minimal HTML5 doc
<!DOCTYPE HTML>
<html>
<head>
<meta charset=UTF-8">
<title>Title</title>
</head>
<body>
</body>
</html>
@MagnusEnger
MagnusEnger / catmandu_marc2rdf.pl
Last active December 29, 2015 10:39
Converting MARC to RDF, using Catmandu.
#!/usr/bin/perl
use Catmandu::Importer::MARC;
use Catmandu::Exporter::RDF;
use Modern::Perl;
my $records = Catmandu::Importer::MARC->new(
file => 'sample_records.marcxml',
type => 'XML',
);
@MagnusEnger
MagnusEnger / get_syspref.sh
Created October 30, 2013 08:46
This script is based on the commands made available by a package installation of Koha. It takes the name of a syspref as its argument, then prints the value of that syspref for every Koha instance on the server.
#!/bin/bash
# Check that the user is root
if [ "$(whoami)" != "root" ]; then
echo "Sorry, you are not root."
exit 1
fi
die() {
echo "$@" 1>&2
@MagnusEnger
MagnusEnger / gist:5925789
Created July 4, 2013 08:05
kete_backgroundrb_and_zebra_boot
#!/bin/bash
### BEGIN INIT INFO
# Provides: kbzb
# Required-Start: $mysql $all
# Required-Stop: $mysql
# Default-Start: 2
# Default-Stop:
# Short-Description: Reboot all Backgroundrb and Zebra for Kete instances
### END INIT INFO