| … | |
… | |
| 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 | |
