Commit Diff
Diff:
a99a095cc1192c913600eadd771d93964573e5e1
a14c6cc18b78adee50cb6ec14dd02a7b15e1bf2b
Commit:
a14c6cc18b78adee50cb6ec14dd02a7b15e1bf2b
Tree:
9e13c12b403754a76191b154553a121dfbd1fede
Author:
fredgnix <fredgnix@a8afeb8c-277c-4b4a-a4f6-ef4c85adc32b>
Committer:
fredgnix <fredgnix@a8afeb8c-277c-4b4a-a4f6-ef4c85adc32b>
Date:
Tue Apr 10 13:21:57 2012 UTC
Message:
change pkgtxt to target-release
blob - 0d821d47bac777258b3b4968ffb41b30c96da17f
blob + 09d685d1097716940d09844e16e721b7c0144289
--- Pkgtxt2db.pm
+++ Pkgtxt2db.pm
@@ -158,7 +158,7 @@ sub mkdadb {
# CSV
#
sub tocsv {
- open(C, ">pkgtxt.csv") or die "Unable to open pkgtxt.csv for writing, aborting.";
+ open(C, ">$target-$release.csv") or die "Unable to open pkgtxt.csv for writing, aborting.";
# choose the CSV separator, \t = tab \@ = @ ....
# avoid the comma (,) as it is the separator for dependancies
my $c = "\;";
@@ -168,14 +168,14 @@ sub tocsv {
$p, $pkgdb{$p}[1], $pkgdb{$p}[2], $pkgdb{$p}[3], $pkgdb{$p}[4], $pkgdb{$p}[5], $pkgdb{$p}[6], $pkgdb{$p}[7], $pkgdb{$p}[8];
}
close (C);
- print "pkgtxt.csv has been built.\n";
+ print "$target-$release.csv has been built.\n";
}
#
# JSON
#
sub tojson {
- my $out = "pkgtxt.json";
+ my $out = "$target-$release.json";
my $n = keys %pkgdb;
open(J, ">$out") or die "Unable to open $out for writing, aborting.";
print J "\[\n";
@@ -207,7 +207,7 @@ sub tojson {
}
print J "\]\n";
close (J);
- print "pkgtxt.json has been built.\n";
+ print "$target-$release.json has been built.\n";
}
1;
Frédéric Galusik