From 20c9aafecfb762d8b258c410ba6c915684a8fb5b Mon Sep 17 00:00:00 2001 From: John Resig Date: Wed, 22 Mar 2006 16:08:59 +0000 Subject: [PATCH] Nuked the browse directory - has been moved to web. --- browse/.htaccess | 5 - browse/Pack.pm | 467 ------------------------------------------ browse/ParseMaster.pm | 207 ------------------- browse/browse-new.cgi | 85 -------- browse/browse.cgi | 51 ----- browse/copyright.txt | 17 -- 6 files changed, 832 deletions(-) delete mode 100644 browse/.htaccess delete mode 100644 browse/Pack.pm delete mode 100644 browse/ParseMaster.pm delete mode 100755 browse/browse-new.cgi delete mode 100755 browse/browse.cgi delete mode 100644 browse/copyright.txt diff --git a/browse/.htaccess b/browse/.htaccess deleted file mode 100644 index bd61da62..00000000 --- a/browse/.htaccess +++ /dev/null @@ -1,5 +0,0 @@ -RewriteEngine On -RewriteRule ^$ /docs/SourceCode/ [L,QSA] -RewriteRule ^([^/]+).js$ browse-new.cgi?v=$1 [L,QSA] -RewriteRule ^([^/]+)/$ browse-new.cgi?v=$1 [L,QSA] -RewriteRule ^([^/]+)/([a-z0-9-]+)/?$ browse-new.cgi?v=$1&custom=$2 [L,QSA] diff --git a/browse/Pack.pm b/browse/Pack.pm deleted file mode 100644 index fbd22923..00000000 --- a/browse/Pack.pm +++ /dev/null @@ -1,467 +0,0 @@ -#Pack (July 2005) -# Based on "Pack.js" by Dean Edwards -# Ported to Perl by Rob Seiler, ELR Software Pty Ltd -# Copyright 2005. License - -package Pack; -use strict; -use Data::Dumper; - -use ParseMaster; - -# Package wide variable declarations -use vars qw/$VERSION $PM_VERSION - $_X_encodePrivate $_JSunpack $_JSdecode %baseLookup - $_X_encode10 $_X_encode36 $_X_encode62 $_X_encode95 - $_JSencode10 $_JSencode36 $_JSencode62 $_JSencode95 - @_X_parsers - $_X_script $_X_encoding $_X_fastDecode $_X_specialChars - /; -$VERSION = '024'; -$PM_VERSION = $ParseMaster::VERSION; - -# Package wide constants -my $X_IGNORE = q{$1}; -my $X_ENCODE = q/\x24encode\(\x24count\)/; # NB: requires g modifier -my $PERL = 'perl'; # Flag to indicate whether we need to use one of our "internal" Perl encoding functions -my $JSCRIPT = 'jscript'; # or embed a pre-build JScript encoding function -######################################## - -################## -sub pack($$$$) { # require 4 arguments -################## -#print Dumper(@_); - ($_X_script, $_X_encoding, $_X_fastDecode, $_X_specialChars) = @_; - # validate parameters (sort of!) - $_X_script .= "\n"; - $_X_encoding = ($_X_encoding > 95) ? 95 : $_X_encoding; - - @_X_parsers = (); # Reset parsers - -#################### - sub _X_pack($) { # require 1 argument -#################### - # apply all parsing routines - my $X_script = shift; - for (my $i = 0; $inew(); - # make safe - $parser->escapeChar("\\"); - # protect strings - $parser->add(q/'[^'\n\r]*'/, $X_IGNORE); - $parser->add(q/"[^"\n\r]*"/, $X_IGNORE); - # remove comments - $parser->add(q/\/\/[^\n\r]*[\n\r]/); - $parser->add(q/\/\*[^*]*\*+([^\/][^*]*\*+)*\//); - # protect regular expressions - $parser->add(q/\s+(\/[^\/\n\r\*][^\/\n\r]*\/g?i?)/, q{$2}); # IGNORE - $parser->add(q/[^\w\x24\/'"*)\?:]\/[^\/\n\r\*][^\/\n\r]*\/g?i?/, $X_IGNORE); - # remove: ;;; doSomething(); - $parser->add(q/;;[^\n\r]+[\n\r]/) if ($_X_specialChars); - # remove redundant semi-colons - $parser->add(q/;+\s*([};])/, q{$2}); - # remove white-space - $parser->add(q/(\b|\x24)\s+(\b|\x24)/, q{$2 $3}); - $parser->add(q/([+\-])\s+([+\-])/, q{$2 $3}); - $parser->add(q/\s+/, ''); - # done - return $parser->exec($X_script); - } - -############################### - sub _X_encodeSpecialChars { # -############################### - my $X_script = shift; - my $parser = ParseMaster->new(); - # replace: $name -> n, $$name -> $$na - $parser->add(q/((\x24+)([a-zA-Z\x24_]+))(\d*)/, - sub { - my $X_offset = pop; - my @X_match = @_; - my $X_length = length($X_match[$X_offset+2]); - my $lengthnext = length($X_match[$X_offset+3]); - my $X_start = $X_length - ((($X_length - $lengthnext) > 0) ? ($X_length - $lengthnext) : 0); - my $str = $X_match[$X_offset+1]; - $str = substr($str,$X_start,$X_length) . $X_match[$X_offset+4]; - return "$str"; - }); - # replace: _name -> _0, double-underscore (__name) is ignored - my $X_regexp = q/\b_[A-Za-z\d]\w*/; - # build the word list - my %X_keywords = &_X_analyze($X_script, $X_regexp, $_X_encodePrivate); -#print Dumper(%X_keywords); - # quick ref - my $X_encoded = \$X_keywords{X_encoded}; # eg _private1 => '_0',_private2 => '_1'; -#print Dumper($X_encoded); - $parser->add($X_regexp, sub {my $X_offset = pop; my @X_match = @_; return ${$X_encoded}->{$X_match[$X_offset]};}); - - return $parser->exec($X_script); - }; - -########################### - sub _X_encodeKeywords { # -########################### - my $X_script = shift; - # escape high-ascii values already in the script (i.e. in strings) - if ($_X_encoding > 62) {$X_script = &_X_escape95($X_script)}; - # create the parser - my $parser = ParseMaster->new(); - my $X_encode = &_X_getEncoder($_X_encoding,$PERL); - # for high-ascii, don't encode single character low-ascii - my $X_regexp = ($_X_encoding > 62) ? q/\w\w+/ : q/\w+/; - # build the word list - my %X_keywords = &_X_analyze($X_script, $X_regexp, $X_encode); -#print Dumper(%X_keywords); - my $X_encoded = \$X_keywords{X_encoded}; # eg alert => 2, function => 10 etc - # encode - $parser->add($X_regexp, sub {my $X_offset = pop; my @X_match = @_; return ${$X_encoded}->{$X_match[$X_offset]};}); - # if encoded, wrap the script in a decoding function - - return $X_script && _X_bootStrap(\$parser->exec($X_script), \%X_keywords); - } - -#################### - sub _X_analyze { # -#################### -#print Dumper(@_); - my ($X_script, $X_regexp, $X_encode) = @_; - # analyse - # retreive all words in the script - my @X_all = $X_script =~ m/$X_regexp/g; # Save all captures in a list context - my %XX_sorted = (); # list of words sorted by frequency - my %XX_encoded = (); # dictionary of word->encoding - my %XX_protected = (); # instances of "protected" words - if (@X_all) { - my @X_unsorted = (); # same list, not sorted - my %X_protected = (); # "protected" words (dictionary of word->"word") - my %X_values = (); # dictionary of charCode->encoding (eg. 256->ff) - my %X_count = (); # word->count - my $i = scalar(@X_all); my $j = 0; my $X_word = ''; - # count the occurrences - used for sorting later - do { - $X_word = '$' . $X_all[--$i]; - if (!exists($X_count{$X_word})) { - $X_count{$X_word} = [0,$i]; # Store both the usage count and original array position (ie a secondary sort key) - $X_unsorted[$j] = $X_word; - # make a dictionary of all of the protected words in this script - # these are words that might be mistaken for encoding - $X_values{$j} = &$X_encode($j); - my $v = '$'.$X_values{$j}; - $X_protected{$v} = $j++; - } - # increment the word counter - $X_count{$X_word}[0]++; - } while ($i); -#print Dumper (%X_values); -#print Dumper (@X_unsorted); -#print Dumper (%X_protected); - # prepare to sort the word list, first we must protect - # words that are also used as codes. we assign them a code - # equivalent to the word itself. - # e.g. if "do" falls within our encoding range - # then we store keywords["do"] = "do"; - # this avoids problems when decoding - $i = scalar(@X_unsorted); - do { - $X_word = $X_unsorted[--$i]; - if (exists($X_protected{$X_word})) { - $XX_sorted{$X_protected{$X_word}} = substr($X_word,1); - $XX_protected{$X_protected{$X_word}} = 1; # true - $X_count{$X_word}[0] = 0; - } - } while ($i); -#print Dumper (%XX_protected); -#print Dumper (%XX_sorted); -#print Dumper (%X_count); - # sort the words by frequency - # Sort with count a primary key and original array order as secondary key - which is apparently the default in javascript! - @X_unsorted = sort ({($X_count{$b}[0] - $X_count{$a}[0]) or ($X_count{$b}[1] <=> $X_count{$a}[1])} @X_unsorted); -#print Dumper (@X_unsorted) . "\n"; - - $j = 0; - # because there are "protected" words in the list - # we must add the sorted words around them - do { - if (!exists($XX_sorted{$i})) {$XX_sorted{$i} = substr($X_unsorted[$j++],1)} - $XX_encoded{$XX_sorted{$i}} = $X_values{$i}; - } while (++$i < scalar(@X_unsorted)); - } -#print Dumper(X_sorted => \%XX_sorted, X_encoded => \%XX_encoded, X_protected => \%XX_protected); - return (X_sorted => \%XX_sorted, X_encoded => \%XX_encoded, X_protected => \%XX_protected); - } - -###################### - sub _X_bootStrap { # -###################### - # build the boot function used for loading and decoding - my ($X_packed, $X_keywords) = @_; # Reference arguments! -#print Dumper ($X_keywords) . "\n"; - - # $packed: the packed script - dereference and escape - $X_packed = "'" . &_X_escape($$X_packed) ."'"; - - my %sorted = %{$$X_keywords{X_sorted}}; # Dereference to local variables - my %protected = %{$$X_keywords{X_protected}}; # for simplicity - - my @sorted = (); - foreach my $key (keys %sorted) {$sorted[$key] = $sorted{$key}}; # Convert hash to a standard list - - # ascii: base for encoding - my $X_ascii = ((scalar(@sorted) > $_X_encoding) ? $_X_encoding : scalar(@sorted)) || 1; - - # count: number of (unique {RS}) words contained in the script - my $X_count = scalar(@sorted); # Use $X_count for assigning $X_ascii - - # keywords: list of words contained in the script - foreach my $i (keys %protected) {$sorted[$i] = ''}; # Blank out protected words -#print Dumper(@sorted) . "\n"; - - # convert from a string to an array - prepare keywords as a JScript string->array {RS} - $X_keywords = "'" . join('|',@sorted) . "'.split('|')"; - - # encode: encoding function (used for decoding the script) - my $X_encode = $_X_encoding > 62 ? $_JSencode95 : &_X_getEncoder($X_ascii,$JSCRIPT); # This is a JScript function (as a string) - $X_encode =~ s/_encoding/\x24ascii/g; $X_encode =~ s/arguments\.callee/\x24encode/g; - my $X_inline = '$count' . ($X_ascii > 10 ? '.toString($ascii)' : ''); - - # decode: code snippet to speed up decoding - my $X_decode = ''; - if ($_X_fastDecode) { - # create the decoder - $X_decode = &_X_getFunctionBody($_JSdecode); # ie from the Javascript literal function - if ($_X_encoding > 62) {$X_decode =~ s/\\\\w/[\\xa1-\\xff]/g} - # perform the encoding inline for lower ascii values - elsif ($X_ascii < 36) {$X_decode =~ s/$X_ENCODE/$X_inline/g} - # special case: when $X_count==0 there ar no keywords. i want to keep - # the basic shape of the unpacking funcion so i'll frig the code... - if (!$X_count) {$X_decode =~ s/(\x24count)\s*=\s*1/$1=0/} - } - - # boot function - my $X_unpack = $_JSunpack; - if ($_X_fastDecode) { - # insert the decoder - $X_unpack =~ s/\{/\{$X_decode;/; - } - $X_unpack =~ s/"/'/g; - if ($_X_encoding > 62) { # high-ascii - # get rid of the word-boundaries for regexp matches - $X_unpack =~ s/'\\\\b'\s*\+|\+\s*'\\\\b'//g; # Not checked! {RS} - } - if ($X_ascii > 36 || $_X_encoding > 62 || $_X_fastDecode) { - # insert the encode function - $X_unpack =~ s/\{/\{\$encode=$X_encode;/; - } else { - # perform the encoding inline - $X_unpack =~ s/$X_ENCODE/$X_inline/; - } - - # arguments {RS} Do this before using &pack because &pack changes the pack parameters (eg $fastDecode) in Perl!! - my $X_params = "$X_packed,$X_ascii,$X_count,$X_keywords"; # Interpolate to comma separated string - if ($_X_fastDecode) { - # insert placeholders for the decoder - $X_params .= ',0,{}'; - } - - # pack the boot function too - $X_unpack = &pack($X_unpack,0,0,1); - - # the whole thing - return "eval(" . $X_unpack . "(" . $X_params . "))\n"; - }; - -####################### - sub _X_getEncoder { # -####################### - # mmm.. ..which one do i need ?? ({RS} Perl or JScript ??) - my ($X_ascii,$language) = @_; - my $perl_encoder = ($X_ascii > 10) ? ($X_ascii > 36) ? ($X_ascii > 62) ? $_X_encode95 : $_X_encode62 : $_X_encode36 : $_X_encode10; - my $jscript_encoder = ($X_ascii > 10) ? ($X_ascii > 36) ? ($X_ascii > 62) ? $_JSencode95 : $_JSencode62 : $_JSencode36 : $_JSencode10; - return ($language eq $JSCRIPT) ? $jscript_encoder : $perl_encoder; - }; - -############################# -# Perl versions of encoders # -############################# - # base10 zero encoding - characters: 0123456789 - $_X_encode10 = sub {return &_encodeBase(shift,10)}; - # base36 - characters: 0123456789abcdefghijklmnopqrstuvwxyz - $_X_encode36 = sub {return &_encodeBase(shift,36)}; - # base62 - characters: 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ - $_X_encode62 = sub {return &_encodeBase(shift,62)}; - # high-ascii values - characters: ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþ - $_X_encode95 = sub {return &_encodeBase(shift,95)}; - # Lookup character sets for baseN encoding - $baseLookup{10} = [(0..9)[0..9]]; # base 10 - $baseLookup{36} = [(0..9,'a'..'z')[0..35]]; # base 36 - $baseLookup{62} = [(0..9,'a'..'z','A'..'Z')[0..61]]; # base 62 - $baseLookup{95} = (); for (my $i=0; $i<95; $i++) {$baseLookup{95}[$i] = chr($i+161)}; # base95 (high ascii) -#print Dumper(%baseLookup); -##################### - sub _encodeBase { # -##################### - # Generic base conversion function using defined lookup arrays (perl version only) - my ($X_charCode, $base) = @_; - my $X_encoded = ''; - # Do we know this encoding? - if (exists ($baseLookup{$base})) { - if ($X_charCode == 0) {$X_encoded = $baseLookup{$base}[0]} - while($X_charCode > 0) { - $X_encoded = $baseLookup{$base}[$X_charCode % $base] . $X_encoded; - $X_charCode = int($X_charCode / $base); - } - } - else {$X_encoded = "$X_charCode"} # default is to return unchanged (ie as for base 10) if no baselookup is available - return $X_encoded; - }; - -############################# - $_X_encodePrivate = sub { # -############################# - # special _chars - my $X_charCode = shift; - return '_' . $X_charCode; - }; - -############################ - sub _X_escape($script) { # -############################ - # protect characters used by the parser - my $X_script = shift; - $X_script =~ s/([\\'])/\\$1/g; - return $X_script; - }; - -##################### - sub _X_escape95 { # -##################### - # protect high-ascii characters already in the script - my $X_script = shift; - $X_script =~ s/([\xa1-\xff])/sprintf("\\x%1x",ord($1))/eg; - return $X_script; - }; - -############################ - sub _X_getFunctionBody { # -############################ - # extract the body of a function (ie between opening/closing {}) - consistent with Dean Edwards approach - my $X_function = shift; - $X_function =~ m/^.*\{(.*)\}*$/sg; # Multiline, global (greedy) - my $start = index($X_function,'{'); - my $end = rindex($X_function,'}'); - $X_function = substr($X_function,($start+1),($end-1-$start)); - return $X_function; - }; - -###################### - sub _X_globalize { # -###################### - # set the global flag on a RegExp (you have to create a new one) !!! Unused in perl version - # my $X_regexp = shift; - }; - - # build the parsing routine - &_X_addParser(\&_X_basicCompression); - &_X_addParser(\&_X_encodeSpecialChars) if ($_X_specialChars); - &_X_addParser(\&_X_encodeKeywords) if ($_X_encoding); - - # go! - return &_X_pack($_X_script); -} - -######################## -# Javascript Literals # -######################## - -# JScript function "_unpack" - from DeanEdwards pack.js (NB: No ";" after final "}") -($_JSunpack) = <<'END_JSCRIPT_UNPACK'; -/* unpacking function - this is the boot strap function */ -/* data extracted from this packing routine is passed to */ -/* this function when decoded in the target */ -function($packed, $ascii, $count, $keywords, $encode, $decode) { - while ($count--) - if ($keywords[$count]) - $packed = $packed.replace(new RegExp('\\b' + $encode($count) + '\\b', 'g'), $keywords[$count]); - /* RS_Debug = $packed; */ /* {RS} !!!!!!!!! */ - return $packed; -} -END_JSCRIPT_UNPACK - -# JScript function "_decode" - from DeanEdwards pack.js -($_JSdecode) = <<'END_JSCRIPT_DECODE'; - /* code-snippet inserted into the unpacker to speed up decoding */ - function() { - /* does the browser support String.replace where the */ - /* replacement value is a function? */ - if (!''.replace(/^/, String)) { - /* decode all the values we need */ - while ($count--) $decode[$encode($count)] = $keywords[$count] || $encode($count); - /* global replacement function */ - $keywords = [function($encoded){return $decode[$encoded]}]; - /* generic match */ - $encode = function(){return'\\w+'}; - /* reset the loop counter - we are now doing a global replace */ - $count = 1; - } - }; -END_JSCRIPT_DECODE - -# JScript versions of encoders -($_JSencode10) = <<'END_JSCRIPT_ENCODE10'; - /* zero encoding */ - /* characters: 0123456789 */ - function($charCode) { - return $charCode; - }; -END_JSCRIPT_ENCODE10 - -($_JSencode36) = <<'END_JSCRIPT_ENCODE36'; - /* inherent base36 support */ - /* characters: 0123456789abcdefghijklmnopqrstuvwxyz */ - function($charCode) { - return $charCode.toString(36); - }; -END_JSCRIPT_ENCODE36 - -($_JSencode62) = <<'END_JSCRIPT_ENCODE62'; - /* hitch a ride on base36 and add the upper case alpha characters */ - /* characters: 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ */ - function($charCode) { - return ($charCode < _encoding ? '' : arguments.callee(parseInt($charCode / _encoding))) + - (($charCode = $charCode % _encoding) > 35 ? String.fromCharCode($charCode + 29) : $charCode.toString(36)); - }; -END_JSCRIPT_ENCODE62 - -($_JSencode95) = <<'END_JSCRIPT_ENCODE95'; - /* use high-ascii values */ - /* characters: ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþ */ - function($charCode) { - return ($charCode < _encoding ? '' : arguments.callee($charCode / _encoding)) + - String.fromCharCode($charCode % _encoding + 161); - }; -END_JSCRIPT_ENCODE95 - -########### -# END # -########### -1; # Pack # -########### diff --git a/browse/ParseMaster.pm b/browse/ParseMaster.pm deleted file mode 100644 index f07ba680..00000000 --- a/browse/ParseMaster.pm +++ /dev/null @@ -1,207 +0,0 @@ -#ParseMaster (July 25 2005) -# Based on "ParseMaster.js" by Dean Edwards -# Ported to Perl by Rob Seiler, ELR Software Pty Ltd -# Copyright 2005. License - -package ParseMaster; -use strict; -use Data::Dumper; - -# Package wide variable declarations -use vars qw/$VERSION - @_X_escaped @_X_patterns - /; - -$VERSION = '017'; - -# constants -my $X_EXPRESSION = 0; -my $X_REPLACEMENT = 1; -my $X_LENGTH = 2; - -# re's used to determine nesting levels -my $X_GROUPS = qr/\(/o; # NB: Requires g modifier! -my $X_SUB_REPLACE = qr/\$\d/o; -my $X_INDEXED = qr/^\$\d+$/o; -my $XX_ESCAPE = qr/\\./o; # NB: Requires g modifier! -my $XX_DELETED = qr/\001[^\001]*\001/o; # NB: Requires g modifier! -my $DIGIT = qr/[^\D]/o; # Yep - this is a digit - contains no non-digits - -# Constructor -sub new { - my $class = shift; - my $self = {}; - @_X_escaped = (); # Re-initialize global for each instance - @_X_patterns = (); # Re-initialize global for each instance - # Instance variables - access by similarly named set/get functions - $self->{_ignoreCase_} = 0; - $self->{_escapeChar_} = ''; - bless ($self, $class); - return $self; -} - -sub ignoreCase { - my ($self, $value) = @_; - if (defined($value)) { - $self->{_ignoreCase_} = $value; - } - return $self->{_ignoreCase_}; -} - -sub escapeChar{ - my ($self, $value) = @_; - if (defined($value)) { - $self->{_escapeChar_} = $value; - } - return $self->{_escapeChar_}; -} - -####################### -# Public Parsemaster functions - -my $X_DELETE = sub(@$) { - my $X_offset = pop; - my @X_match = @_; - return (chr(001) . $X_match[$X_offset] . chr(001)); -}; # NB semicolon required for closure! - -# create and add a new pattern to the patterns collection -sub add { - my ($self, $expression, $X_replacement) = @_; - if (!$X_replacement) {$X_replacement = $X_DELETE}; - - # count the number of sub-expressions - my $temp = &_X_internalEscape($expression); - my $length = 1; # Always at least one because each pattern is itself a sub-expression - $length += $temp =~ s/$X_GROUPS//g; # One way to count the left capturing parentheses in the regexp string - - # does the pattern deal with sub-expressions? - if ((ref($X_replacement) ne "CODE") && ($X_replacement =~ m/$X_SUB_REPLACE/)) { - if ($X_replacement =~ m/$X_INDEXED/) { # a simple lookup? (eg "$2") - # store the index (used for fast retrieval of matched strings) - $X_replacement = substr($X_replacement,1) - 1; - } - else { # a complicated lookup (eg "Hello $2 $1") - my $i = $length; - while ($i) { # Had difficulty getting Perl to do Dean's splitting and joining of strings containing $'s - my $str = '$a[$o+' . ($i-1) . ']'; # eg $a[$o+1] - $X_replacement =~ s/\$$i/$str/; # eg $2 $3 -> $a[$o+1] $a[$o+2] - $i--; - } - # build a function to do the lookup - returns interpolated string of array lookups - $X_replacement = eval('sub {my $o=pop; my @a=@_; return "' . $X_replacement . '"};'); - } - } - else {} - # pass the modified arguments - &_X_add($expression || q/^$/, $X_replacement, $length); -} - -# execute the global replacement -sub exec { -#print Dumper(@_X_patterns); - my ($self, $X_string) = @_; - my $escChar = $self->escapeChar(); - my $ignoreCase = $self->ignoreCase(); - my ($regexp,$captures) = &_getPatterns(); # Concatenated and parenthesized regexp eg '(regex1)|(regex2)|(regex3)' etc - $X_string = &_X_escape($X_string, $escChar); - if ($ignoreCase) {$X_string =~ s/$regexp/{&_X_replacement(&_matchVars($captures,\$X_string))}/gie} # Pass $X_String as a - else {$X_string =~ s/$regexp/{&_X_replacement(&_matchVars($captures,\$X_string))}/ge} # reference for speed - - $X_string = &_X_unescape($X_string, $escChar); - $X_string =~ s/$XX_DELETED//g; - return $X_string; -} - -sub _X_add { - push (@_X_patterns, [@_]); # Save each argument set as is into an array of arrays -} - -# this is the global replace function (it's quite complicated) -sub _X_replacement { - my (@arguments) = @_; -#print Dumper (@arguments); - if ($arguments[0] le '') {return ''} - # Dereference last index (source String) here - faster than in _matchVars (maybe not needed at all?) - $arguments[$#arguments] = ${$arguments[$#arguments]}; - my $i = 1; - # loop through the patterns - for (my $j=0; $jheader('text/javascript'); -my $c = $cgi->param('c') || 'compressed'; -my $v = $cgi->param('v') || 'latest'; -my $live = 0; -#$v = "0.10" if ( $v eq 'latest' ); -if ( $v eq 'dev' ) { - $live = 1; - $c = 'sane'; - $v = 'latest'; -} elsif ( $v eq 'debug' ) { - $c = 'sane'; - $v = 'latest'; -} - -my @files = $cgi->param('files') ? - split(',', join(',', $cgi->param('files')) ): - ("jquery","fx","event","ajax"); - -if ($cgi->param('custom') && $cgi->param('custom') !~ /-/) { - $c = $cgi->param('custom'); -} - -my $md5 = $cgi->param('custom') || join('-',dupe(@files),$v,$c); -my $j = "build/$md5\.js"; -my $stamp = "/* Built " . localtime() . " */\n"; - -if ( !-e $j && !$live ) { - my $f = getf(); - open( F, ">$j" ); - print F $stamp; - print F $c eq 'compressed' ? &Pack::pack($f, 62, 1, 0) : $f; - close( F ); - - if ( $c eq 'compressed' ) { - my $tj = $j; - $tj =~ s/$c\.js$/sane\.js/; - open( F, ">$tj" ); - print F $stamp; - print F $f; - close( F ); - } -} - -if ( $cgi->param('files') ) { - print $cgi->redirect("/src/$v/$md5/"); -} else { - #print $cgi->header('text/javascript'); - if ( $live ) { - print getf(); - } else { - my $t = `cat copyright.txt $j`; - $v = $v eq 'latest' ? 'Current' : "Version $v"; - $t =~ s/\$VERSION/$v/ig; - $t =~ s/\$MD5/$md5/ig; - my $url = $cgi->param('v') . "/"; - $url .= $cgi->param('custom') . "/" if ( $cgi->param('custom') ); - $t =~ s/\$URL/$url/ig; - print $t; - } -} - -sub getf { - my $f = ''; - foreach ( @files ) { - $f .= `cat $_/$_\-$v\.js`; - } - $f =~ s/\r//g; - $f; -} - -sub dupe { - my %check; - $check{$_} = 1 foreach (@_); - return sort keys %check; -} diff --git a/browse/browse.cgi b/browse/browse.cgi deleted file mode 100755 index 751af3b5..00000000 --- a/browse/browse.cgi +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/perl - -use Pack; -use CGI; -use LWP::Simple; -use Digest::MD5 qw(md5_hex); - -chdir("/home/jquery/www/src/"); - -my $cgi = new CGI(); -my $c = $cgi->param('c') || 'compressed'; -my $v = $cgi->param('v'); -#$v = "0.10" if ( $v eq 'latest' ); -my @files = $cgi->param('files') ? - split(',', join(',', $cgi->param('files')) ): - ("jquery","minifx","fx","event"); - -my $md5 = $cgi->param('custom') || join('-',dupe(@files),$v,$c); -my $j = "build/$md5\.js"; - -if ( !-e $j ) { - my $f = ''; - foreach ( @files ) { - $f .= `cat $_/$_\-$v\.js`; - } - $f =~ s/\r//g; - my $o = $c eq 'compressed' ? &Pack::pack($f, 62, 1, 0) : $f; - open( F, ">$j" ); - print F $o; - close( F ); -} - -if ( $cgi->param('files') ) { - print $cgi->redirect("/src/$v/$md5/"); -} else { - print $cgi->header('text/javascript'); - my $t = `cat copyright.txt $j`; - $v = $v eq 'latest' ? 'Current' : "Version $v"; - $t =~ s/\$VERSION/$v/ig; - $t =~ s/\$MD5/$md5/ig; - my $url = $cgi->param('v') . "/"; - $url .= $cgi->param('custom') . "/" if ( $cgi->param('custom') ); - $t =~ s/\$URL/$url/ig; - print $t; -} - -sub dupe { - my %check; - $check{$_} = 1 foreach (@_); - return sort keys %check; -} diff --git a/browse/copyright.txt b/browse/copyright.txt deleted file mode 100644 index 9fd2a074..00000000 --- a/browse/copyright.txt +++ /dev/null @@ -1,17 +0,0 @@ -/* - * jQuery - $VERSION - * New Wave Javascript - * http://jquery.com/ - * - * To use, place this HTML into the ... of your web page: - * - * - * This licensed under the Creative Commons Attribution-ShareAlike License. - * License Info: http://creativecommons.org/licenses/by-sa/2.5/ - * - *** NOTE: - * This code is compressed, for the original code please visit jquery.com. - * If you don't see anything below this comment, it's a bug with Firefox - * the code is there, it's just one long, compressed, line - trust me. - *** - */