projects
/
maemian
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added Parson module to parse json.
[maemian]
/
minimae-2.0
diff --git
a/minimae-2.0
b/minimae-2.0
index
cfc50ff
..
6af4525
100755
(executable)
--- a/
minimae-2.0
+++ b/
minimae-2.0
@@
-41,6
+41,12
@@
use Archive::Tar;
use Perl6::Slurp;
use RepoUtils;
use File::Basename;
use Perl6::Slurp;
use RepoUtils;
use File::Basename;
+use Parson;
+
+# find our tarball
+my $json_object = Parson->new(); # parse json file
+my $dsc = $json_object->parse_json();
+
my $tarball = $ARGV[0]; # Orignal tarball
my $repo = RepoUtils->new();
my $tarball = $ARGV[0]; # Orignal tarball
my $repo = RepoUtils->new();
@@
-57,7
+63,7
@@
else {
}
$package_name =~ tr/_/-/; # translate underscore into dash
$package_name =~ s/-[\d]$//; # trim package version
}
$package_name =~ tr/_/-/; # translate underscore into dash
$package_name =~ s/-[\d]$//; # trim package version
-$package_name =~ s/-.?maemo.$//; # trim package version
+$package_name =~ s/-.?maemo.$//; # trim maemo version
chdir("lab/"); # We're in /lab now!
$tar->extract(); # extracted tarball now in lab/
chdir("lab/"); # We're in /lab now!
$tar->extract(); # extracted tarball now in lab/