aboutsummaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/sbodb.pl72
1 files changed, 63 insertions, 9 deletions
diff --git a/bin/sbodb.pl b/bin/sbodb.pl
index bfd997e..06c8215 100755
--- a/bin/sbodb.pl
+++ b/bin/sbodb.pl
@@ -1,9 +1,15 @@
#!/usr/bin/perl -w
-# create SBo.sqlite3 database for SBo limnoria plugin.
-# requires SLACKBUILDS.txt and TAGS.txt from the SBo repo.
-# https://slackware.uk/slackbuilds.org/14.2/SLACKBUILDS.TXT
-# https://slackware.uk/slackbuilds.org/14.2/TAGS.txt
+# create SBo.sqlite3 database for SBoTools limnoria plugin.
+# run with one argument: the path to the SBo repo. This is
+# the directory named after the version number, which contains
+# SLACKBUILDS.TXT. A git clone will *not* do, needs to be a
+# rsync or wget -r copy.
+
+# Actually only SLACKBUILDS.TXT, TAGS.txt, and the */*/*.info files
+# are used.
+
+# database isn't fully normalized. *shrug*.
print <<EOF;
pragma journal_mode = memory;
@@ -19,7 +25,11 @@ create table builds (
descrip varchar not null,
category integer not null,
version varchar not null,
- foreign key (category) references categories);
+ maintainer integer not null,
+ email integer not null,
+ foreign key (category) references categories,
+ foreign key (maintainer) references maintainers,
+ foreign key (email) references emails);
create table deps (
build_id integer not null,
@@ -32,10 +42,20 @@ create table tags (
tag varchar not null,
foreign key (build_id) references builds);
+create table maintainers (
+ id integer not null,
+ name varchar not null);
+
+create table emails (
+ id integer not null,
+ addr varchar not null);
+
create unique index t_idx on tags(build_id, tag);
EOF
+$sbopath = shift || ".";
+
$lastcat = 0;
sub get_cat_id {
my $catname = shift;
@@ -47,11 +67,38 @@ sub get_cat_id {
return $catids{$catname};
}
-open $sbtxt, "<" . ($ARGV[0] || "SLACKBUILDS.TXT") or die $!;
+$lastmaint = $lastemail = 0;
+sub get_maint {
+ my ($cat, $build) = @_;
+ open my $info, "<$sbopath/$cat/$build/$build.info" or die $!;
+ while(<$info>) {
+ /^MAINTAINER="(.*?)"/m and $mname = $1;
+ /^EMAIL="(.*?)"/m and $ename = $1;
+ }
+ close $info;
+
+ if(!$maintids{$mname}) {
+ $mname =~ s/'/''/g;
+ $lastmaint++;
+ print "insert into maintainers values($lastmaint, '$mname');\n";
+ $maintids{$mname} = $lastmaint;
+ }
+
+ if(!$emailids{$ename}) {
+ $ename =~ s/'/''/g;
+ $lastemail++;
+ print "insert into emails values($lastemail, '$ename');\n";
+ $emailids{$ename} = $lastemail;
+ }
+
+ return ($maintids{$mname}, $emailids{$ename});
+}
+
+open $sbtxt, "<" . $sbopath . "/SLACKBUILDS.TXT" or die $!;
{
local $/ = '';
while(<$sbtxt>) {
- my ($name, $cat, $ver, $deps, $desc,);
+ my ($name, $cat, $ver, $deps, $desc, $maintid, $emailid);
$deps = "";
chomp;
/^SLACKBUILD NAME:\s+(\S+)$/m and $name = $1;
@@ -70,6 +117,11 @@ open $sbtxt, "<" . ($ARGV[0] || "SLACKBUILDS.TXT") or die $!;
$buildver{$name} = $ver;
$builddeps{$name} = $deps;
$builddesc{$name} = $desc;
+
+ ($maintid, $emailid) = get_maint($cat, $name);
+ $buildmaint{$name} = $maintid;
+ $buildemail{$name} = $emailid;
+
push @builds, $name;
}
}
@@ -87,7 +139,9 @@ insert into builds values(
'$_',
'$builddesc{$_}',
$buildcat{$_},
- '$buildver{$_}');
+ '$buildver{$_}',
+ $buildmaint{$_},
+ $buildemail{$_});
EOF
}
@@ -104,7 +158,7 @@ EOF
}
}
-open $tagstxt, "<" . ($ARGV[1] || "TAGS.txt") or die $!;
+open $tagstxt, "<" . $sbopath . "/TAGS.txt" or die $!;
while(<$tagstxt>) {
my ($build, $t, @tags);
chomp;