|
Server IP : 173.236.192.202 / Your IP : 216.73.216.85 Web Server : Apache System : Linux iad1-shared-e1-03 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64 User : andfor18 ( 14551322) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/lftp/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] | [ Lock Shell ] | [ Logout ] |
|---|
#!/usr/bin/perl
# Copyright (c) 2001,2005,2007,2010 Alexander V. Lukyanov <lav@yars.free.net>
# See COPYING file (GNU GPL) for complete license.
# This script converts mozilla-style cookies to lftp set commands.
use strict;
use DBI;
my $file=$ARGV[0] if defined $ARGV[0];
$file=qx{
ls -t \$HOME/.netscape/cookies \\
`find \$HOME/.mozilla -name cookies.txt -or -name cookies.sqlite` | head -1
},chomp $file if !defined $file;
print "# converted from $file\n";
my %cookie;
sub add_cookie($$$$$) {
my ($domain,$path,$secure_bool,$name,$value)=@_;
for($domain,$path,$name,$value) { s/"/\\"/g; s/'/\\'/g; s/ /%20/g; }
my $secure='';
$secure=';secure' if $secure_bool eq 'TRUE' || $secure_bool eq '1';
$domain="*$domain" if $domain =~ /^\./;
$path='' if $path eq '/';
$path=";path=$path" if $path ne '';
$value="=$value" if $name ne '';
$cookie{"$domain$path$secure"}.=" $name$value";
}
if($file=~/\.sqlite$/) {
my $file1="$file.$$.tmp";
$SIG{__DIE__}=sub { unlink $file1 };
system('cp',$file,$file1);
my $dbh=DBI->connect("dbi:SQLite:dbname=$file1",'','');
unlink $file1;
my $q=$dbh->prepare("select host,path,isSecure,name,value from moz_cookies");
$q->execute;
$q->bind_columns(\my($domain,$path,$secure_bool,$name,$value));
while($q->fetch) {
add_cookie($domain,$path,$secure_bool,$name,$value);
}
} else {
open COOKIES,'<',$file or die "open($file): $!";
while(<COOKIES>)
{
chomp;
next if /^#/ or /^$/;
my ($domain,undef,$path,$secure_bool,$expires,$name,$value)=split /\t/;
add_cookie($domain,$path,$secure_bool,$name,$value);
}
}
foreach(sort keys %cookie)
{
$cookie{$_}=~s/^ //;
my $c=($_=~/;/?qq{"$_"}:$_);
print qq{set http:cookie/$c "$cookie{$_}"\n};
}