X-Git-Url: http://git.asbjorn.biz/?a=blobdiff_plain;f=browse%2Fbrowse-new.cgi;fp=browse%2Fbrowse-new.cgi;h=0000000000000000000000000000000000000000;hb=20c9aafecfb762d8b258c410ba6c915684a8fb5b;hp=54f7fbeeba8a1c2b6c0d48e4e1f8f6e2aec96cb6;hpb=70d3099041b3de973b4266be0caee72b962556dd;p=jquery.git

diff --git a/browse/browse-new.cgi b/browse/browse-new.cgi
deleted file mode 100755
index 54f7fbe..0000000
--- a/browse/browse-new.cgi
+++ /dev/null
@@ -1,85 +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();
-print $cgi->header('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;
-}