From 48a1b592a91ca586e1443e98952ed4368b7de1f2 Mon Sep 17 00:00:00 2001
From: Thomas Willingham <founder@kakste.com>
Date: Sun, 3 Jun 2012 21:01:39 +0100
Subject: [PATCH] Infinite Improbability Drive - a very simple addon to make
 navigating randprof less cumbersome.  Wouldn't normally put something this
 simple in the the git, but it was user requested, and now other admins have
 expressed interest in having it here.

---
 .../infiniteimprobabilitydrive.css            |  4 ++
 .../infiniteimprobabilitydrive.php            | 49 +++++++++++++++++++
 2 files changed, 53 insertions(+)
 create mode 100644 infiniteimprobabilitydrive/infiniteimprobabilitydrive.css
 create mode 100644 infiniteimprobabilitydrive/infiniteimprobabilitydrive.php

diff --git a/infiniteimprobabilitydrive/infiniteimprobabilitydrive.css b/infiniteimprobabilitydrive/infiniteimprobabilitydrive.css
new file mode 100644
index 000000000..f4be60515
--- /dev/null
+++ b/infiniteimprobabilitydrive/infiniteimprobabilitydrive.css
@@ -0,0 +1,4 @@
+section {
+	padding-left: 0px;
+	
+}
\ No newline at end of file
diff --git a/infiniteimprobabilitydrive/infiniteimprobabilitydrive.php b/infiniteimprobabilitydrive/infiniteimprobabilitydrive.php
new file mode 100644
index 000000000..dce369245
--- /dev/null
+++ b/infiniteimprobabilitydrive/infiniteimprobabilitydrive.php
@@ -0,0 +1,49 @@
+<?php
+/**
+* Name: Infinite Improbability Drive
+* Description: Infinitely Improbably Find A Random User
+* Version: 1.0
+* Author: Thomas Willingham
+*/
+
+function infiniteimprobabilitydrive_install() {
+register_hook('app_menu', 'addon/infiniteimprobabilitydrive/infiniteimprobabilitydrive.php', 'infiniteimprobabilitydrive_app_menu');
+}
+
+function infiniteimprobabilitydrive_uninstall() {
+unregister_hook('app_menu', 'addon/infiniteimprobabilitydrive/infiniteimprobabilitydrive.php', 'infiniteimprobabilitydrive_app_menu');
+
+}
+
+function infiniteimprobabilitydrive_app_menu($a,&$b) {
+$b['app_menu'][] = '<div class="app-title"><a href="infiniteimprobabilitydrive">' . t('Infinite Improbability Drive') . '</a></div>';
+}
+
+
+function infiniteimprobabilitydrive_module() {
+return;
+}
+
+
+function infiniteimprobabilitydrive_content(&$a) {
+$baseurl = $a->get_baseurl() . '/addon/infiniteimprobabilitydrive';
+$o = '';
+
+$a->page['htmlhead'] .= '<link rel="stylesheet" type="text/css" href="'.$a->get_baseurl().'/addon/infiniteimprobabilitydrive/infiniteimprobabilitydrive.css"/>';
+
+
+$baseurl = $a->get_baseurl();
+
+
+  $o .= <<< EOT
+
+<br><br>
+<p>Try another destination with the <a href="$baseurl/infiniteimprobabilitydrive">Infinite Improbability Drive</a>
+<iframe src ="$baseurl/randprof" height="1200" width="1024">
+
+
+
+EOT;
+return $o;
+    
+}
\ No newline at end of file