Skip to content

Instantly share code, notes, and snippets.

View hinnerk-a's full-sized avatar

Hinnerk Altenburg hinnerk-a

View GitHub Profile
hinnerk-a / postfix_registered_trademark.php
Created January 3, 2015 21:19
Postfix all occurrences of a trademark with ® (PHP function and optional WordPress hook)
Author: Hinnerk Altenburg
Author URI:
Trademark: 'WP-ImmoMakler' is a registered trademark of Hinnerk Altenburg
Copyright: © 2015 Hinnerk Altenburg (
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License, version 2, as
published by the Free Software Foundation.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
hinnerk-a /
Created June 30, 2011 11:31
Set a custom HTTP User-Agent in Perl with WWW::Mechanize
use WWW::Mechanize;
my $initial_user_agent = 'Mozilla/5.0 (Linux; U; Android 2.2; de-de; HTC Desire HD Build/FRF91) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1';
my @user_agents = (
'Mozilla/5.0 (Windows; U; Windows NT 6.1; nl; rv: Gecko/20101203 Firefox/3.6.13',
'Mozilla/5.0 (iPad; U; CPU iPhone OS 3_2 like Mac OS X; en-us) AppleWebKit/531.21.10 (KHTML, like Gecko) Mobile/7D11',
'Mozilla/5.0 (iPhone; U; CPU iPhone OS 4_3_3 like Mac OS X; en-us) AppleWebKit/533.17.9 (KHTML, like Gecko) Version/5.0.2 Mobile/8J2 Safari/6533.18.5',
# Set an initial custom header with the contructor
hinnerk-a /
Created August 31, 2011 14:41
Perl: handle malformed UTF-8 strings with Encode::encode
sub encode_utf_8 {
my $string = @_;
my $utf8_encoded = '';
eval {
$utf8_encoded = Encode::encode('UTF-8', $string, Encode::FB_CROAK);
if ($@) {
# sanitize malformed UTF-8
$utf8_encoded = '';
hinnerk-a / Preferences.sublime-settings
Created September 28, 2012 14:14
My Custom Sublime Text User Preferences
"color_scheme": "Packages/Color Scheme - Default/Mac Classic.tmTheme",
"font_size": 12.0,
"trim_trailing_white_space_on_save": true,
"ensure_newline_at_eof_on_save": false,
"tree_animation_enabled": false,
"highlight_line": true,
"word_separators": "./\\()\"':,.;<>~!@#$%^&*|+=[]{}`~?"
hinnerk-a / wp_update_term.php
Created October 4, 2012 18:12
Using wp_update_term properly for setting parent terms in hierarchical taxonomies
// set terms
wp_set_object_terms( $post_id, $object_types, 'immomakler_object_type', true );
// make terms hierarchial by objektart
$term_parent = get_term_by( 'slug', $openimmo_data['objektart'], 'immomakler_object_type' );
$term_child = get_term_by( 'slug', $openimmo_data['objektart_detail'], 'immomakler_object_type' );
delete_option( 'immomakler_object_type_children' ); // workaround for WordPress not updating this option properly
hinnerk-a / wp_log_http_requests.php
Created May 31, 2012 20:31
WordPress filter hook for logging WP HTTP requests
function wp_log_http_requests( $response, $args, $url ) {
// set your log file location here
$logfile = plugin_dir_path( __FILE__ ) . '/http_requests.log';
// parse request and response body to a hash for human readable log output
$log_response = $response;
if ( isset( $args['body'] ) ) {