This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
proc jc num {. http://www.jerkcity.com/jerkcity$num.gif [html [lindex [regexp -inline {<font size="-1".*?>(.*?)</td>} [wget http://www.jerkcity.com/jerkcity$num.html]] 1]]} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
proc welcome args { | |
set i [lsearch -exact $args to] | |
set w [bt to irc] | |
if {$args eq ""} { | |
set n [bt [name]] | |
} elseif {$i == -1} { | |
set n [bt [join $args]] | |
} else { | |
set n [bt [join [lrange $args 0 [expr $i-1]]]] | |
set w [bt to [join [lrange $args [expr $i+1] end]]] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
sub route { | |
my ($url) = @_; | |
my @parts = split(m{/}, $url); | |
return _error(400) unless '' eq shift @parts; # doesn't begin with / | |
@parts = grep { '' ne $_ } @parts; # clean out any '//' | |
my $sub = shift @parts; | |
$sub = 'root' if !defined($sub); | |
return _error(404) if $sub =~ m/^_/; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import java.util.Arrays; | |
import java.lang.Math; | |
boolean play = false; | |
int sx, sy; | |
int[][][] world; | |
float density = 0.5; | |
int drawState = 20; | |
int fr = 30; | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
sub backupDatabases { | |
my ($accountid, $target) = @_; | |
my @aList = &dbQuery($dbh, "select username from accounts where _rowid = " . $accountid); | |
my $username = $aList[0]->{'username'}; | |
my $resp; | |
my @fileList = split(/,/, $target); | |
… | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use File::Find; | |
use Apache::Admin::Config; | |
my $sn2a = {}; | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
onSuccess: function(transport) { | |
var json = transport.responseText.evalJSON(true); | |
$H(json).each(function (pair) { | |
$H(pair.value).each(function (item) { | |
$(pair.key).insert('<li class="'+item.value.status+'"><span>'+item.key+'</span><ul><li>'+item.value.mtime+'</li><li>'+item.value.size+'</li></ul></li>'); | |
}); | |
}); | |
… | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
HEY | |
YOU GOT YOUR BOOB IN MY SCOTCH | |
WOOOO! | |
YEAH | |
COME ON | |
BOOOOOOOOB SCOTCH! | |
BOOB SCOTCH ON THE ROCKS | |
BOOOOOOOOB SCOTCH! | |
BOOB SCOTCH ON THE ROCKS | |
WELL I THINK WE NEED TO SIT DOWN AND TALK |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# let me out of this Issue One | |
# This is part of an apache config file that ships with Lasso 8.5. | |
<Location ~ "^.*\.[Ll][Aa][Ss][Ss][Oo]$"> | |
SetHandler lasso8-handler | |
</Location> | |
<Location ~ "^.*\.[Ll][Aa][Ss][Ss][Oo][Aa][Pp][Pp]$"> | |
SetHandler lasso8-handler |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
ADCReferenceLibraryIcon | |
AFPServerIcon | |
Accounts | |
Actions | |
AlertCautionBadgeIcon | |
AlertCautionIcon | |
AlertNoteIcon | |
AlertStopIcon | |
AliasBadgeIcon | |
AppleLogoIcon |
OlderNewer