nik/davical
1
0
Fork 0
mirror of https://gitlab.com/davical-project/davical.git synced 2026-08-23 17:26:02 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use the right options when we are making a "HEAD" request. Much faster.

Browse Source
This commit is contained in:
Andrew McMillan 2006-11-20 22:38:27 +13:00
parent 2f10b2bf4e
commit a73c430280
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
testing/dav_test
View File

@ -12,6 +12,7 @@ my @arguments = ( "--basic", "--proxy", "", "--silent" );
push @arguments, "--verbose" if ( defined($ARGV[2]) );
my $url;
my $is_head_request = 0;
my @auth = ( "--user", "user1:user1" );
my $datafile = "tests/$suite/$test.data";
@ -41,7 +42,12 @@ while( <TEST> ) {
};
/^\s*TYPE\s*=\s*(\S.*)$/ && do {
push @arguments, "--request", $1;
if ( $1 eq "HEAD" ) {
$is_head_request = 1;
}
else {
push @arguments, "--request", $1;
}
};
/^\s*HEADER\s*=\s*(\S.*)$/ && do {
@ -64,6 +70,8 @@ EOERROR
exit (2);
}
push @arguments, "--head" if ( $is_head_request );
push @arguments, @auth;
if ( -f $datafile ) {
@ -75,10 +83,10 @@ else {
}
# print @arguments;
# print "\n";
push @arguments, $url;
print join " ", "curl", @arguments, "\n" if ( defined($ENV{'DEBUG'}) );
open RESULTS, "-|", "curl", @arguments;
while( <RESULTS> ) {
print;