6 use Digest::MD5 qw(md5_hex);
8 chdir("/home/jquery/www/src/");
11 print $cgi->header('text/javascript');
12 my $c = $cgi->param('c') || 'compressed';
13 my $v = $cgi->param('v') || 'latest';
15 #$v = "0.10" if ( $v eq 'latest' );
20 } elsif ( $v eq 'debug' ) {
25 my @files = $cgi->param('files') ?
26 split(',', join(',', $cgi->param('files')) ):
27 ("jquery","fx","event","ajax");
29 if ($cgi->param('custom') && $cgi->param('custom') !~ /-/) {
30 $c = $cgi->param('custom');
33 my $md5 = $cgi->param('custom') || join('-',dupe(@files),$v,$c);
34 my $j = "build/$md5\.js";
35 my $stamp = "/* Built " . localtime() . " */\n";
37 if ( !-e $j && !$live ) {
41 print F $c eq 'compressed' ? &Pack::pack($f, 62, 1, 0) : $f;
44 if ( $c eq 'compressed' ) {
46 $tj =~ s/$c\.js$/sane\.js/;
54 if ( $cgi->param('files') ) {
55 print $cgi->redirect("/src/$v/$md5/");
57 #print $cgi->header('text/javascript');
61 my $t = `cat copyright.txt $j`;
62 $v = $v eq 'latest' ? 'Current' : "Version $v";
63 $t =~ s/\$VERSION/$v/ig;
64 $t =~ s/\$MD5/$md5/ig;
65 my $url = $cgi->param('v') . "/";
66 $url .= $cgi->param('custom') . "/" if ( $cgi->param('custom') );
67 $t =~ s/\$URL/$url/ig;
75 $f .= `cat $_/$_\-$v\.js`;
83 $check{$_} = 1 foreach (@_);
84 return sort keys %check;