pesterhazy

Fatal error: Uncaught exception 'Zend_Controller_Action_Exception' with message 'Forbidden' in /var/www/findfriends.openunivercity.de/application/plugins/Auth.php:61 Stack trace: #0 /opt/ZendFramework-1.11.1/library/Zend/Controller/Plugin/Broker.php(309): Application_Plugin_Auth->preDispatch(Object(Zend_Controller_Request_Http)) #1 /opt/ZendFramework-1.11.1/library/Zend/Controller/Front.php(941): Zend_Controller_Plugin_Broker->preDispatch(Object(Zend_Controller_Request_Http)) #2 /opt/ZendFramework-1.11.1/library/Zend/Application/Bootstrap/Bootstrap.php(97): Zend_Controller_Front->dispatch() #3 /opt/ZendFramework-1.11.1/library/Zend/Application.php(366): Zend_Application_Bootstrap_Bootstrap->run() #4 /var/www/findfriends.openunivercity.de/public/index.php(36): Zend_Application->run() #5 {main} thrown in /var/www/findfriends.openunivercity.de/application/plugins/Auth.php on line 61

pesterhazy

--- tmp/flashcache	2011-03-14 03:49:35.000000000 +0100
+++ bin/flashcache	2011-04-29 19:39:37.000000000 +0200
@@ -57,6 +57,7 @@
 	while (my $arg=shift(@ARGV)) {
 		if ($arg =~ /^-h$/) { usage(); }
 		if ($arg =~ /^-d$/) { $MAIN::DEBUG=1; next; }
+		if ($arg =~ /^-p$/) { $MAIN::PLAY=1; next; }
 		if ($arg =~ /^-find$/) { $opt->{find} = shift(@ARGV); next; }
 		if ($arg =~ /^-post$/) { $opt->{post} = shift(@ARGV); next; }
 		if ($arg =~ /^-dest$/) { $opt->{dest} = shift(@ARGV); next; }

pesterhazy

#!/bin/bash

# Put additional ignore patterns (one by line) in .grepignore
#

git-ag () {
	if [[ "$1" = "-a" ]]
	then
		all=1 
		shift

pesterhazy

#!/usr/bin/env zsh
#
# Grep in the files of the current git repository *with a list of exclusions*, using `git grep` or `ag`.
#
# Exclusions are defined in .grepignore. Each line is a regex suitable for grep(2); if the filename
# matches any of the regexes, it is excluded from the search.
#
# Works with zsh (bash not tested).
#
# Versions for `git grep` and `ag` are provided.

pesterhazy

dropbox-update-dotfiles () {
  src="$HOME/Dropbox/Linux/dotfiles"
  dst="$HOME"

  if [[ ! -d "$src" ]]; then
    print Using $HOME/dotfiles.
    src="$HOME/dotfiles"
  fi
  if [[ ! -d "$src" ]]; then
    print "Directory $src not found."

pesterhazy

#!/bin/bash
#
# Syntax:
#
#   ./in_vagrant [command] [args]
#
# Example usage:
#
# Set up a Vagrantfile with a config called "foo"
#

pesterhazy

(defn =* [a b]
  (if (= a b)
    true
    (do
      (println "No match:" a b)
      (println "Dfference:" )
      (clojure.pprint/pprint (clojure.data/diff a b))
      false)))

pesterhazy

(defn constrain
  "Truncate a sequence

  Returns a two-element vector to signal whether of not the seq has
  been truncated"
  [max coll]
  (let [[head tail] (split-at max coll)]
    (if (seq tail)
      [nil (take max coll)]
      [coll])))

pesterhazy

# The vagrant box provided by @zimbatm is still on 14.02. Follow
# this recipe to update the machine to 14.12
#
# Make sure you have a recent version of `vagrant` (https://www.vagrantup.com) 
# and virtualbox.

mkdir nixos-test
cd nixos-test
vagrant init zimbatm/nixbox64   # creates Vagrantfile
vagrant up                      # brings up the box

pesterhazy

(defn when-seq
  "If condition is true, perform seq operation f on xs with args; otherwise return f.

  Intended for use in the thread first macro. For example:

  (-> []
      (when-seq x conj x))

  will be [:foo] if x is :foo, [] if x is nil"
  [xs condition f & args]