simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

made getsqlite.pl possible to download a snapshot version of SQLite

Browse source
This commit is contained in:
Kenichi Ishigaki 2015-10-10 15:37:38 +09:00
parent d3d9abe909
commit 726d1b56b8
1 changed files with 27 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
util/SQLiteUtil.pm
View file

@ -226,15 +226,16 @@ sub download_url {
join '', join '',
"http://www.sqlite.org/", "http://www.sqlite.org/",
($version->year ? $version->year."/" : ""), ($version->year ? $version->year."/" : ""),
"sqlite-".($version->archive_type)."-$version.tar.gz"; "sqlite-".($version->archive_type)."-$version".$version->extension;
} }
sub mirror { sub mirror {
my $version = shift; my $version = shift;
my $file = "$SRCDIR/sqlite-$version.tar.gz"; my $name = "sqlite-$version".$version->extension;
my $file = "$SRCDIR/$name";
unless (-f $file) { unless (-f $file) {
my $url = download_url($version); my $url = download_url($version);
print "Downloading $version...\n"; print "Downloading $version from $url...\n";
my $res = HTTP::Tiny->new->mirror($url => $file); my $res = HTTP::Tiny->new->mirror($url => $file);
die "Can't mirror $file: ".$res->{reason} unless $res->{success}; die "Can't mirror $file: ".$res->{reason} unless $res->{success};
} }
@ -242,7 +243,11 @@ sub mirror {
unless ($dir && -d $dir) { unless ($dir && -d $dir) {
my $cwd = Cwd::cwd; my $cwd = Cwd::cwd;
chdir($SRCDIR); chdir($SRCDIR);
system("tar xf sqlite-$version.tar.gz"); if ($version->is_snapshot) {
system("unzip -d sqlite-$version -o $name");
} else {
system("tar xf $name");
}
chdir($cwd); chdir($cwd);
$dir = srcdir($version) or die "Can't find srcdir"; $dir = srcdir($version) or die "Can't find srcdir";
} }
@ -280,6 +285,9 @@ sub new {
elsif ($version =~ m/^3(?:[0-9]{2}){2,3}$/) { elsif ($version =~ m/^3(?:[0-9]{2}){2,3}$/) {
@parts = $version =~ /^(3)([0-9]{2})([0-9]{2})([0-9]{2})?$/; @parts = $version =~ /^(3)([0-9]{2})([0-9]{2})([0-9]{2})?$/;
} }
elsif ($version =~ m/^(20\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) {
@parts = ($1, $2, $3, $4, $5);
}
else { else {
die "improper <version> format for [$version]\n"; die "improper <version> format for [$version]\n";
} }
@ -288,6 +296,7 @@ sub new {
sub as_num { sub as_num {
my $self = shift; my $self = shift;
return sprintf '%04u%02u%02u%02u%02u', map {$_ || 0} @$self[0..4] if $self->is_snapshot;
sprintf '%u%02u%02u%02u', map {$_ || 0} @$self[0..3]; sprintf '%u%02u%02u%02u', map {$_ || 0} @$self[0..3];
} }
@ -298,6 +307,7 @@ sub dotted {
sub year { sub year {
my $self = shift; my $self = shift;
return "snapshot" if $self->is_snapshot;
my $version = $self->as_num; my $version = $self->as_num;
return 2015 if $version >= 3080800; return 2015 if $version >= 3080800;
return 2014 if $version >= 3080300; return 2014 if $version >= 3080300;
@ -306,7 +316,19 @@ sub year {
} }
sub archive_type { sub archive_type {
shift->as_num > 3070400 ? "autoconf" : "amalgamation"; my $self = shift;
return "amalgamation" if $self->is_snapshot;
$self->as_num > 3070400 ? "autoconf" : "amalgamation";
}
sub is_snapshot {
shift->[0] =~ /^20\d\d/;
}
sub extension {
my $self = shift;
return ".zip" if $self->is_snapshot;
return ".tar.gz";
} }
1; 1;