mirror of
https://bitbucket.org/smil3y/kdelibs.git
synced 2025-02-25 11:22:50 +00:00
12 lines
272 B
Perl
12 lines
272 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
while(<>) {
|
||
|
|
$treatAllAsSessionCookies = 1 if (/IgnoreExpirationDate=true/);
|
||
|
|
}
|
||
|
|
|
||
|
|
printf("# DELETE IgnoreExpirationDate\n");
|
||
|
|
if ($treatAllAsSessionCookies) {
|
||
|
|
printf("# DELETE CookieGlobalAdvice\n");
|
||
|
|
printf("CookieGlobalAdvice=AcceptForSession\n");
|
||
|
|
}
|