Skip to content

Instantly share code, notes, and snippets.

View benclark's full-sized avatar

Ben Clark benclark

7 followers · 2 following
View GitHub Profile
@benclark
benclark / theme_D6MODULE_table_form.php
Last active December 10, 2015 20:18
Theme a series of form elements into a table (Drupal 6)
<?php
/**
* Theme a series of form elements into a table (Drupal 6).
*/
function theme_D6MODULE_table_form($form) {
$header = array();
$rows = array();
foreach (element_children($form) as $i) {
@benclark
benclark / gist:4205910
Created December 4, 2012 16:36
Phoshare link-only backup of iPhoto library to Dropbox
#!/bin/sh
nice -n 20 /Applications/Phoshare.app/Contents/MacOS/Phoshare -o -d -u -l -e . --export ~/Dropbox/Photos/Phoshare\ Backup/
@benclark
benclark / gist:3974821
Created October 29, 2012 16:50
Memcache config for settings.php (D6)
<?php
/**
* Memcache config
*/
// Check that one of the two memcache extensions are loaded.
if (extension_loaded('memcache') || extension_loaded('memcached')) {
if (!is_array($conf)) {
$conf = array();
@benclark
benclark / gist:3948044
Created October 24, 2012 18:50
Bash function to go to a specified git repo in $HOME/Sites
# Go to a specified git repo in $HOME/Sites
repo() {
local reponame=$1
local jumpto_type=$2
local jumpto_which=$3
local basedir="$HOME/Sites/$reponame"
local cd_to
if [ -z $reponame ]; then
echo "usage: repo reponame [type [which]]"
@benclark
benclark / apache_syslog.pl
Created October 24, 2012 14:01
Perl script that is capable of sending httpd logs to syslog
#!/usr/bin/perl
use Sys::Syslog qw( :DEFAULT setlogsock );
openlog('httpd', 'cons,pid', LOG_LOCAL0);
while ($log = <STDIN>) {
syslog(LOG_NOTICE, $log);
}
closelog
@benclark
benclark / lighttpd-vhosts.pl
Created October 4, 2012 21:14
Lighttpd vhosts config script
#!/usr/bin/perl -wl
use strict;
use File::Glob ':glob';
my $sitesdir = shift || "/mnt/Sites/";
sleep 1 while (!(chdir($sitesdir)));
my @sites = bsd_glob('*/{repo,trunk}');
@benclark
benclark / nodequeue_create.php
Created September 21, 2012 18:25 — forked from brockboland/nodequeue_create.php
Drupal: Create a nodequeue if it doesn't exist already
drupal_load('module', 'nodequeue');
// Homepage Features
$queue = nodequeue_load_queue_by_name('homepage_features');
if (empty($queue)) {
$queue = new stdClass();
$queue->title = 'Homepage Features';
$queue->name = 'homepage_features';
$queue->size = 4;
$queue->owner = 'nodequeue';
@benclark
benclark / gist:3639991
Created September 5, 2012 17:01
Howto one-off install Ubercart zones for a country
drush php-eval "include_once('sites/all/modules/springboard/ubercart/uc_store/countries/japan_392_1.cif'); japan_install();"
@benclark
benclark / Preferences.sublime-settings
Created August 10, 2012 18:31
My Sublime Text 2 preferences
{
"auto_indent": true,
"bold_folder_labels": true,
"color_scheme": "Packages/Color Scheme - Default/IDLE.tmTheme",
"create_window_at_startup": false,
"default_line_ending": "unix",
"detect_indentation": false,
"ensure_newline_at_eof_on_save": true,
"fallback_encoding": "UTF-8",
"find_selected_text": true,
@benclark
benclark / gist:3145218
Created July 19, 2012 16:47
Render the node teaser field in a row below the other fields in a table view
<?php
/**
* Implementation of theme_preprocess_views_view_table().
*/
function demcctheme_preprocess_views_view_table(&$vars) {
$view = &$vars['view'];
switch ($view->name) {
case 'og_topics':
if ($view->current_display == 'block_1') {
// Render the node teaser field in a row *below* the other fields.