… | |
… | |
415 | } |
415 | } |
416 | |
416 | |
417 | # extract cookies from jar |
417 | # extract cookies from jar |
418 | sub cookie_jar_extract($$$$) { |
418 | sub cookie_jar_extract($$$$) { |
419 | my ($jar, $uscheme, $uhost, $upath) = @_; |
419 | my ($jar, $uscheme, $uhost, $upath) = @_; |
|
|
420 | |
|
|
421 | $uhost = lc $uhost; |
420 | |
422 | |
421 | %$jar = () if $jar->{version} != 1; |
423 | %$jar = () if $jar->{version} != 1; |
422 | |
424 | |
423 | my @cookies; |
425 | my @cookies; |
424 | |
426 | |
… | |
… | |
530 | $cdom = $uhost; |
532 | $cdom = $uhost; |
531 | } |
533 | } |
532 | |
534 | |
533 | # store it |
535 | # store it |
534 | $jar->{version} = 1; |
536 | $jar->{version} = 1; |
535 | $jar->{$cdom}{$cpath}{$name} = \%kv; |
537 | $jar->{lc $cdom}{$cpath}{$name} = \%kv; |
536 | |
538 | |
537 | redo if /\G\s*,/gc; |
539 | redo if /\G\s*,/gc; |
538 | } |
540 | } |
539 | } |
541 | } |
540 | |
542 | |