App-BS

 view release on metacpan or  search on metacpan

lib/BS/Common.pm  view on Meta::CPAN

        $out .=
          $ENV{DEBUG} && $ENV{DEBUG} == 2
          ? join "\n",
          map { ( my $line = $_ ) =~ s/^\t/  /; "  $line" } split /\R/,
          Devel::StackTrace::WithLexicals->new(
            indent      => 1,
            skip_frames => 1
          )->as_string
          : "at $caller[1]:$caller[2]";

        say STDERR "$out\n";
        $out;
    }
}

method bsx : common ($cmd_aref, %args) {
    %args = ( in => undef, out => [], err => '' ) unless scalar keys %args;

    dmsg { cmd => $cmd_aref, args => \%args };

    run3( $cmd_aref,

lib/BS/alpm.pm  view on Meta::CPAN

##use Inline C => "alpm_initialize();";

#APPLY {
#    alpm_initialize();
#    BS::alpm::alpm_initialize();
#}

method print_self {

    #say BS::alpm::alpm_initialize();
    #say Dumper($self);
    warn np $self if $self->debug // $ENV{DEBUG};
}

script/bs-common.sh  view on Meta::CPAN

  echo ""
  exit $status
}

warn () {
    for err in "$@"; do
      >&2 echo " [!!] $err"
    done
}

say () {
  for msg in "$@"; do
    echo " :: $msg"
  done
}

script/bs-pacman  view on Meta::CPAN

    warn Dumper( { argv => \@ARGV } ) . "\n";
}

my @out;
my @overwrite = $ARGV[0] eq '-S' ? qw(--overwrite '*' --noconfirm) : ();
push @overwrite, '--needed' if $ENV{ASNEEDED};

my $ret = run3(
    [ 'pacman', @overwrite, '--verbose', @ARGV ],
    \*STDIN,
    sub { chomp $_[0]; say $_[0]; push @out, $_[0] },
    sub { chomp $_[0]; warn $_[0]; }
);

my $status = $?;

if ( $ENV{DEBUG} ) {
    warn Dumper(
        overwrite => \@overwrite,
        status    => $status,
        ret       => $ret,

script/buildpkg.sh  view on Meta::CPAN

resolve_pkgbase() {
  pkgstr=$1
  #target=$2

  #pacinfo "$1"
  pacinfo="$(pacinfo "$pkgstr" <&-)"
  err=$?
  
  [[ $err -ne 0 ]] && return $err

  $(perl -e 'use v5.40; my (%matches) = $ARGV[0] =~ /(Base|Repository):\s+([a-z0-9\-]+)/g; say join "\n", map { "export pkg" . lc substr($_, 0, 4) . "=$matches{$_}" } keys %matches' "$pacinfo")

  [[ $? -ne 0 ]] && return $?
  
  echo "$pkgrepo/$pkgbase"
}

get_pkgbuild() {
  (pkg="$1"
   target="$2"

script/buildpkg.sh  view on Meta::CPAN

  target="$2"

  sudo cp -vaf "$target/"{makepkg.conf,pacman.conf} "$CHROOT/root/etc/"
  sudo cp -vaf "$target/"{makepkg.conf,pacman.conf} "$CHROOT/nameless/etc/"

  startts="$(epoch)"
  localbuilt=()

  cd "$BS_ROOT/pkgbuild/$pkg" || return $?

  say "Adding keys included in $pkg PKGBUILD repo..."
  gpg --verbose --import keys/pgp/*.asc
  
  say "Building $pkg in CHROOT at $CHROOT..."
  makechrootpkg -Cunc -- -CLAfisc

  echo "Updating $pkg .SRCINFO..."
  makepkg --printsrcinfo > ".SRCINFO"
 
  endts=$(epoch)
  
  localbuilt=$("$(makepkg --packagelist)")
  built+=${localbuilt[@]}

script/makepkgs.sh  view on Meta::CPAN

  #echo "$pkgrepo"
  echo "$pkgstr"
}

resolve_pkgbase() {
  pkgstr=$1
  pacinfo="$(pacinfo "$pkgstr" <&-)"

  [[ $err -ne 0 ]] && return $err

  $(perl -e 'use v5.40; my (%matches) = $ARGV[0] =~ /(Base|Repository):\s+([a-z0-9\-]+)/g; say join "\n", map { "export pkg" . lc substr($_, 0, 4) . "=$matches{$_}" } keys %matches' "$pacinfo")

  [[ $? -ne 0 ]] && return $?
  echo "$pkgrepo/$pkgbase"
}

get_pkgbuild() {
  local pkg="$1"
  #local target="$2"
  
  (cd $BS_ROOT/pkgbuild