Skip to content

Instantly share code, notes, and snippets.

View Drarok's full-sized avatar

Mat Gadd Drarok

View GitHub Profile
<HTML>
<HEAD>
<TITLE>Volume Discount</TITLE>
<SCRIPT LANGUAGE = "JavaScript">
// A program to tell a customer what volume discount they can expect.
var numberOfGiftBoxes = window.prompt('Please enter now many boxes you are purchasing.', '');
var boxes = parseFloat(numberOfGiftBoxes);
if (isNaN(boxes))
Function Explode(Separator, S : String) : TStringList;
Var
PrevPos, x : Integer;
strLen,
delimLen : Integer;
Begin
If (Separator = '') Then
Raise Exception.Create('Empty separator');
Result := TStringList.Create();
@Drarok
Drarok / EventManagerAwareTrait.php
Created October 18, 2012 15:50 — forked from Mezzle/EventManagerAwareTrait.php
ServiceLocator/EventManager Traits
<?php
namespace Protec\Stdlib;
use \Zend\EventManager\EventManagerInterface;
use \Zend\ServiceManager\ServiceLocatorAwareInterface;
trait EventManagerAwareTrait
{
protected $event_manager;
@Drarok
Drarok / TS3Radio.php
Last active December 18, 2015 00:48 — forked from JMatthewman/TS3Radio.php
<?php
// Require authentication password
require_once("auth.php");
class TS3Radio
{
protected $_clientHost;
protected $_clientPort;
vagrant@vagrant:/var/www$ cat index.sf
import io;
io.print("Hello, world!\n");
vagrant@vagrant:/var/www$ saffire exec index.sf
vagrant@vagrant:/var/www$
/usr/share/saffire/modules
/usr/share/saffire/modules/sfl
/usr/share/saffire/modules/sfl/io.sf
/usr/share/saffire/modules/sfl/saffire.sf
/usr/share/saffire/modules/Framework.sf
/usr/share/saffire/modules/Framework
/usr/share/saffire/modules/Framework/View.sf
/usr/share/saffire/modules/Framework/Http.sf
@Drarok
Drarok / gist:5958827
Created July 9, 2013 16:25
Adventure Time!
| (• ◡•)|/ \(❍ᴥ❍ʋ) Adventure Time!
@Drarok
Drarok / gist.php
Last active January 2, 2016 01:28 — forked from anonymous/gist:8218272
Converted example to use PDO.
<?php
$dsn = 'mysql:host=trolololol;dbname=WOOT!';
$username = 'yeah';
$password = 'MMMMM hmm';
$pdo = new PDO($dsn, $username, $password);
$sql = 'SELECT `date`, SUM(`Commited`) AS committedSum FROM StorageUsedByVm GROUP BY `date`';
$stmt = $pdo->query($sql);
#!/bin/bash
# Convert 'http://github.com/user/repo' remotes to 'git://github.coim/user/repo'.
for GIT_DIR in $(find . -type d -name '.git'); do
export GIT_DIR
CURRENT_URL=$(git config --get remote.origin.url);
NEW_URL=$(echo $CURRENT_URL | sed 's/^http:/git:/');
NEW_URL=$(echo $NEW_URL | sed 's/^https:/git:/');
if [ "$CURRENT_URL" != "$NEW_URL" ]; then
@Drarok
Drarok / pr-merged.sh
Last active January 4, 2016 09:29 — forked from sampart/pr-merged.sh
#!/bin/bash
# PR been merged on github? This will checkout $1 || develop, git pull, and then delete the branch you were on.
# Thanks http://stackoverflow.com/a/1593487/328817
branch_name="$(git symbolic-ref HEAD 2>/dev/null)" || branch_name="(unnamed branch)"; # detached HEAD
branch_name=${branch_name##refs/heads/};
if [ "$branch_name" = "develop" ] || [ "$branch_name" = "master" ]
then