summaryrefslogtreecommitdiff
path: root/src/BuildPackage.pm
diff options
context:
space:
mode:
authordavidovski <david@davidovski.xyz>2022-01-30 02:34:51 +0000
committerdavidovski <david@davidovski.xyz>2022-01-30 02:34:51 +0000
commit4a5d2a3c22096c563608ce2e3603ea40810f030b (patch)
tree20a4cec9c6b010598c562d8f38faa11b19e41909 /src/BuildPackage.pm
parentd4d14ed58d10ee3e5a71d6e664409c1283529406 (diff)
moved everything to bash again
Diffstat (limited to 'src/BuildPackage.pm')
-rwxr-xr-xsrc/BuildPackage.pm85
1 files changed, 0 insertions, 85 deletions
diff --git a/src/BuildPackage.pm b/src/BuildPackage.pm
deleted file mode 100755
index 61087f2..0000000
--- a/src/BuildPackage.pm
+++ /dev/null
@@ -1,85 +0,0 @@
-package BuildPackage;
-
-use strict;
-use warnings;
-
-use File::Basename;
-use XibUtil qw/extract_from_file extract md5_sum/;
-
-sub extract_source{
- return XibUtil::extract_from_file(@_, qr/^SOURCE=(.+)$/);
-}
-
-sub extract_branch{
- return XibUtil::extract_from_file(@_, qr/^BRANCH=(.+)$/);
-}
-
-sub extract_version{
- return XibUtil::extract_from_file(@_, qr/^PKG_VER=(.+)$/);
-}
-
-sub get_built_version{
- my ($build_file) = @_;
- my @package_split = split(/\//, $build_file);
- my $repo = $package_split[-2];
- my $name = basename($build_file, ".xibuild");
- my $dest = "$main::export/repo/$repo/$name";
-
- my $pkg = "$dest.xipkg";
- my $info = "$dest.xipkg.info";
- my $used_build = "$dest.xibuild";
-
- if (-e $pkg && -e $info) {
- return md5_sum($used_build);
- }
-}
-
-sub clear_build_folder{
- rmtree("$main::chroot/build");
-}
-
-sub fetch_source{
- my ($build_file) = @_;
-
- mkdir("$main::chroot/build");
- mkdir("$main::chroot/build/source");
- chdir("$main::chroot/build/source");
-
- my $source = extract_source($build_file);
- my $branch = extract_branch($build_file);
- my $PKG_VER = extract_version($build_file);
-
- if (XibUtil::is_git_repo($source, $branch)) {
- print("Fetching git repo $source version $PKG_VER\n");
- system("git clone $source .");
- system("git checkout $branch");
-
- } else {
- print("downloading file $source\n");
- my $downloaded_file = basename($source);
- system("curl $source $downloaded_file");
- extract("$downloaded_file");
- system("pwd; cp -r */* .")
-
- }
-
- # download source to $chroot/build/mysource.tgz
- # extract source to $chroot/build/source
-}
-
-sub build_package{
- my ($build_file) = @_;
-
- my $existing_version = get_built_version($build_file);
- if (defined($existing_version) && $existing_version eq md5_sum($build_file)) {
- # do not build
- print("do not build\n");
- return
- }
- # build
- fetch_source($build_file);
-
-
-
-}
-1;