diff options
Diffstat (limited to 'user/cgi/user.cgi')
-rwxr-xr-x | user/cgi/user.cgi | 94 |
1 files changed, 0 insertions, 94 deletions
diff --git a/user/cgi/user.cgi b/user/cgi/user.cgi deleted file mode 100755 index 00589e6..0000000 --- a/user/cgi/user.cgi +++ /dev/null @@ -1,94 +0,0 @@ -#!/usr/bin/env ruby - -require 'cgi' - -def llink(href, text) - if $cgi.path_info == href - $cgi.a(href) { "[ #{text} ⇓ ]" } - else - $cgi.a(href) { "[ #{text} ]" } - end -end - -def rlink(href, text) - $cgi.a(href: href, target: "_blank") { "[ #{text} ⇗ ] " } -end - -def toplinks - $cgi.table(id: "toplinks") { - $cgi.tr { - $cgi.td { llink("/" , "Home" ) } + - $cgi.td { rlink("https://git.4574.co.uk/", "Git" ) } + - $cgi.td { llink("/stuff-i-want" , "Stuff I Want") } - } - } -end - -def rquote - [ - "~ sweet ~", - "User_4574 uses Linux, and loves life.", - "User_4574 shall arrange the blocks and toil, for ever and a day.", - "User_4574 likes the number 7.", - "ex scientia veritas", - "User_4574 will blow things up for money.", - "User_4574 dreams it possible.", - "(define (! ?) (? ?)) (! !)", - "User_4574 lets her pain fade down.", - "User_4574 maintains vigilance during disablement conditions.", - "User_4574 is established on the localiser.", - "Memetic Hazard.", - "Every six months User_4574 checks the oil level of the drive housing, and if necessary tops up with IBM 15 to the level of the inspection hole.", - "User_4574 remembers tomorrow.", - "User_4574 <3s OpenBSD", - "Expectation is directly proportional to performance.", - "User_4574 is taking hits! Hull strength falling.", - "User_4574 is not on fire.", - "User_4574 syncs on green.", - "User_4574 always reads the plaque.", - "User_4574's work ethic is IEFBR14.", - "User_4574 clears the link pack area.", - "vivat diu et prosperet.", - "The White Zone is for loading and unloading only.", - "User_4574 copies run start.", - "User_4574 shows standby brie.", - "All hail the glow cloud.", - "User_4574 tries at all times, without surrender, to be on good terms with all people.", - "This is Delta Team. All production is down, repeat, all production is down.", - "User_4574 glows in the dark turning dust to gold.", - "NAT is evil.", - "User_4574 chooses to have the ball in hand behind the headstring.", - "User_4574 likes to think she could make Knuth cry if she wanted to.", - "Due to a lack of interest, tomorrow has been cancelled. We apologize for any inconvenience caused.", - "This is the panic office: Section 9-17 may have been hit. Activate the following procedure.", - "Nothing, and everything, is possimpable." - ].sample -end - -def page(title, jumbotitle = title) - load "#{title.downcase.gsub(?\s, ?-)}.cgi" - - $cgi.out { - $cgi.html { - $cgi.head { - $cgi.title { "User_4574's Lair / #{title}" } + - $cgi.link(rel: "stylesheet", href: "styles.css") - } + - $cgi.body { - $cgi.h1("class" => "jumbo") { jumbotitle } + - $cgi.div { toplinks } + - $page + - $cgi.div(id: "quote") { rquote } - } - } - } -end - -$cgi = CGI.new("html5") - -case $cgi.path_info -when "/" - page("Home", "User_4574's Lair") -when /^\/stuff-i-want/ - page("Stuff I Want") -end |