version 1.3, 2000/07/11 08:20:53 |
version 1.4, 2000/07/27 06:45:15 |
Line 203 foreach (keys %DEFAULTVALUE) |
|
Line 203 foreach (keys %DEFAULTVALUE) |
|
$barequery = ""; |
$barequery = ""; |
foreach (@stickyvars) { |
foreach (@stickyvars) { |
# construct a query string with the sticky non default parameters set |
# construct a query string with the sticky non default parameters set |
if (defined($input{$_}) && $input{$_} ne "" && $input{$_} ne $DEFAULTVALUE{$_}) { |
if (defined($input{$_}) && $input{$_} ne "" && defined($DEFAULTVALUE{$_}) && $input{$_} ne $DEFAULTVALUE{$_}) { |
if ($barequery) { |
if ($barequery) { |
$barequery = $barequery . "&"; |
$barequery = $barequery . "&"; |
} |
} |
|
|
$string =~ s/>/>/g; |
$string =~ s/>/>/g; |
|
|
# get URL's as link .. |
# get URL's as link .. |
$string =~ s§(http|ftp)(://[-a-zA-Z0-9%.~:_/]+)([?&]([-a-zA-Z0-9%.~:_]+)=([-a-zA-Z0-9%.~:_])+)*§<A HREF="$1$2$3">$1$2$3</A>§; |
$string =~ s§(http|ftp|https)(://[-a-zA-Z0-9%.~:_/]+)([?&]([-a-zA-Z0-9%.~:_]+)=([-a-zA-Z0-9%.~:_])+)*§<A HREF="$1$2$3">$1$2$3</A>§; |
# get e-mails as link |
# get e-mails as link |
$string =~ s§([-a-zA-Z0-9_.]+@([-a-zA-Z0-9]+\.)+[A-Za-z]{2,4})§<A HREF="mailto:$1">$1</A>§; |
$string =~ s§([-a-zA-Z0-9_.]+@([-a-zA-Z0-9]+\.)+[A-Za-z]{2,4})§<A HREF="mailto:$1">$1</A>§; |
|
|
Line 1170 sub doCheckout { |
|
Line 1170 sub doCheckout { |
|
} |
} |
} |
} |
else { |
else { |
$revopt = ""; |
$revopt = "-rHEAD"; |
if ($use_moddate) { |
if ($use_moddate) { |
readLog($fullname); |
readLog($fullname); |
$moddate=$date{$symrev{HEAD}}; |
$moddate=$date{$symrev{HEAD}}; |
Line 1185 sub doCheckout { |
|
Line 1185 sub doCheckout { |
|
# Safely for a child process to read from. |
# Safely for a child process to read from. |
if (! open($fh, "-|")) { # child |
if (! open($fh, "-|")) { # child |
open(STDERR, ">&STDOUT"); # Redirect stderr to stdout |
open(STDERR, ">&STDOUT"); # Redirect stderr to stdout |
exec("cvs", "-d$cvsroot", "co", "-p", $revopt, $where); |
exec("cvs", "-d", "$cvsroot", "co", "-p", "$revopt", "$where"); |
} |
} |
#=================================================================== |
#=================================================================== |
#Checking out squid/src/ftp.c |
#Checking out squid/src/ftp.c |
Line 1198 sub doCheckout { |
|
Line 1198 sub doCheckout { |
|
while(<$fh>) { |
while(<$fh>) { |
last if (/^\*\*\*\*/); |
last if (/^\*\*\*\*/); |
$revision = $1 if (/^VERS: (.*)$/); |
$revision = $1 if (/^VERS: (.*)$/); |
$filename = $1 if (/^Checking out (.*)$/); |
if (/^Checking out (.*)$/) { |
$filename =~ s/^\.\/*//; |
$filename = $1; |
|
$filename =~ s/^\.\/*//; |
|
} |
$cvsheader .= $_; |
$cvsheader .= $_; |
} |
} |
if ($filename ne $where) { |
if ($filename ne $where) { |