added buildpackage

2 files changed, 79 insertions, 1 deletions

diff --git a/src/BuildPackage.pm b/src/BuildPackage.pm
new file mode 100755
index 0000000..afcb65a
--- /dev/null
+++ b/src/BuildPackage.pm
@@ -0,0 +1,78 @@
+package BuildPackage;
+
+use strict;
+use warnings;
+
+use File::Basename "basename";
+use Digest::MD5;
+
+sub md5_sum{
+    my ($file) = @_;
+
+    open(my $fh, "<", $file) or die "Cannot open $file: $!";
+    binmode($fh);
+
+    return Digest::MD5->new->addfile($fh)->hexdigest;
+}
+
+sub extract_ver_hash{
+    my $info_file = $_;
+    open (my $fh, "<", $info_file) or warn "Cannot open $info_file";
+    while (my $line = <$fh>) {
+        if ($line =~ /^VER_HASH=(.+)$/) {
+            return $1;
+        }
+    }
+}
+sub extract_ver_hash{
+    my $info_file = $_;
+    open (my $fh, "<", $info_file) or warn "Cannot open $info_file";
+    while (my $line = <$fh>) {
+        if ($line =~ /^VER_HASH=(.+)$/) {
+            return $1;
+        }
+    }
+}
+
+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 $source_url = $_;
+   
+    mkdir("$main::chroot/build")
+    mkdir("$main::chroot/build/source")
+
+    # download source to $chroot/build/mysource.tgz
+    # extract source to $chroot/build/source
+}
+
+sub build_package{
+    my ($build_file) = @_;
+
+    $existing_version = get_built_version($build_file);
+    if (defined($existing_version) && $existing_version eq md5_sum($build_file)) {
+        # do not build
+        return
+    } 
+    # build
+    
+
+}
diff --git a/src/xib.pl b/src/xib.pl
index 74ea8b7..ba3afc9 100755
--- a/src/xib.pl
+++ b/src/xib.pl
@@ -28,6 +28,7 @@ use Getopt::Long "HelpMessage";
 use File::Basename;
 use lib dirname (__FILE__);
 use BuildOrder "determine_build_order";
+use BuildPackage;
 
 our $BUILDFILES_REPO = "https://xi.davidovski.xyz/git/buildfiles.git";
 
@@ -55,7 +56,6 @@ sub pull_buildfiles{
     }
 } 
 
-
 unless (caller) {
     prepare_xib_environment();
     my $file = "$chroot/buildorder";