Fix rpm extraction in Xarchive

EasyOS has the Xarchive archive management GUI utility. This has wrapper shell scripts in /usr/lib/xarchive/wrappers.

It was reported that rpm extraction does not work. I traced this problem to the Busybox rpm applet, that is missing a required commandline option. There is a full rpm package in the package repository, but we would really like extraction to work without having to install that.

I found an old fix for Busybox rpm, created by Puppy Forum member 'mikeb':

http://www.murga-linux.com/puppy/viewtopic.php?t=26792

...yes, the GUI now displays the files inside the rpm, but nothing gets extracted.

EasyOS also has another utility, 'exploderpm', for examining and extracting from an rpm file.

I have limited time to work on this, devised a /usr/lib/xarchive/wrappers/rpm-wrap.sh that works, but with a temporary workaround:

#110808 rerwin: Replace all redirections to stderr to be appends, to protect error log.
#181203 mikeb: fix for busybox rpm. ref: http://www.murga-linux.com/puppy/viewtopic.php?t=26792
#181203 temporary hack for extract using busybox rpm and exploderpm.

# set up exit status variables
E_UNSUPPORTED=65

# Supported file extentions for tar 
EXTS="rpm"

# Setup awk program
AWK_PROGS="mawk gawk awk"
AWK_PROG=""
for awkprog in $AWK_PROGS; do
    if [ "$(which $awkprog)" ]; then
        AWK_PROG="$awkprog"
        break
    fi
done

# Programs to wrap. 181203
XRPMflg="$(which exploderpm)"
if [ "$XRPMflg" ];then
 XRPM_PROG="exploderpm"
 [ ! -f /usr/lib/xarchive/wrappers/exploderpm-wrap.sh ] && cp -a -f /usr/lib/xarchive/wrappers/rpm-wrap.sh /usr/lib/xarchive/wrappers/exploderpm-wrap.sh
fi
BBRPMflg="$(rpm --help 2>&1 | grep -o '^BusyBox')"
RPM_PROG="rpm"
RPM2CPIO_PROG="rpm2cpio"
CPIO_PROG="cpio"

# setup variables opt and archive.
# the shifting will leave the files passed as
# all the remaining args "$@"
opt="$1"
shift 1
archive="$1"
shift 1

# the option switches
case "$opt" in
    -i) # info: output supported extentions for progs that exist
        if [ ! "$AWK_PROG" ]; then
            echo none of the awk programs $AWK_PROGS found >> /dev/stderr
            echo extentions $EXTS ignored >> /dev/stderr
        elif [ ! "$(which $RPM2CPIO_PROG)" ]; then
            echo $RPM2CPIO_PROG required by $0, but not found >> /dev/stderr
            echo extentions $EXTS ignored >> /dev/stderr
        elif [ ! "$(which $CPIO_PROG)" ]; then
            echo $CPIO_PROG required by $0, but not found >> /dev/stderr
            echo extentions $EXTS ignored >> /dev/stderr
        elif [ "$(which $RPM_PROG)" ]; then
            for ext in $EXTS; do
                printf "%s;" $ext
            done
        else
            echo program $RPM_PROG not found >> /dev/stderr 
            echo extentions $EXTS ignored >> /dev/stderr
        fi
        printf "\n"
        exit
        ;;

    -o) # open: mangle output of rpm cmd for xarchive 
        # format of output:
        # usr grp attr size time(epoch) name 
        # 1   2   3    4    5           6
        #181203 use best rpm...
        if [ "$BBRPMflg" == "" ];then #have full rpm
         $RPM_PROG -q --qf '[%{FILEUSERNAME} %{FILEGROUPNAME} %{FILEMODES:perms} %{FILESIZES} %{FILEMTIMES} %{FILENAMES}\n]' -p "$archive" | $AWK_PROG '
         {
          uid=$1
          gid=$2
          attr=$3
          size=$4
          time_cmd="date -d \"1970-01-01 UTC " $5 " seconds\" +\"%H:%M\""
          time_cmd | getline time
          close(time_cmd)
          date_cmd="date -d \"1970-01-01 UTC " $5 " seconds\" +\"%Y-%m-%d\""
          date_cmd | getline date
          close(date_cmd)
          
          split($0, linesplit, $5 " ")
          name=linesplit[2] 
          link="-"          
          printf "%s;%s;%s;%s;%s;%s;%s;%s\n",name,size,attr,uid,gid,date,time,link
         }'
        elif [ "$XRPM_PROG" ];then #have exploderpm
         $XRPM_PROG -lv "$archive" | $AWK_PROG '
         {
          uid=$3
          gid=$4
          attr=$1
          size=$5
          time="-"
          name=$9
          link="-"
          date=$7$6$8
          printf "%s;%s;%s;%s;%s;%s;%s;%s\n",name,size,attr,uid,gid,date,time,link
         }'
        else #busybox rpm
         $RPM_PROG -qlp "$archive" | $AWK_PROG '
         {
          uid="-"
          gid="-"
          attr="-"
          size="-"
          time="-"
          name=$1
          link="-"
          date="-"
          printf "%s;%s;%s;%s;%s;%s;%s;%s\n",name,size,attr,uid,gid,date,time,link
         }'
        fi
        exit
        ;;

    -a) # adding to archive unsupported
        # use appropriate rpm tools to build rpms
        exit $E_UNSUPPORTED
        ;;

    -n) # create new archive unsupported 
        # use appropriate rpm tools to build rpms
        exit $E_UNSUPPORTED
        ;;

    -r) # removing from archive unsupported 
        # use appropriate rpm tools to modify rpms
        exit $E_UNSUPPORTED
        ;;

    -e) # extract: from archive passed files 
        # convert rpm to a temporary cpio file
        tmpcpio="$(mktemp -t cpiotmp.XXXXXX)"
        $RPM2CPIO_PROG "$archive" > "$tmpcpio"
        # extract files from the temporary cpio
        #181203 ***BROKEN*** there is no $1 passed in here. maybe there is with full rpm?...
        if [ "$BBRPMflg" == "" ];then #have full rpm
         while [ "$1" ]; do
            $CPIO_PROG --no-absolute-filenames -idmv ".$1" < "$tmpcpio"
            shift 1
         done
        else #hack for now, extract everything...
         $CPIO_PROG --no-absolute-filenames -idmv < "$tmpcpio"
        fi
        wrapper_status=$?
        # remove temporary cpio
        rm "$tmpcpio"
        exit $wrapper_status
        ;;

     *) echo "error, option $opt not supported"
        echo "use one of these:" 
        echo "-i                #info" 
        echo "-o archive        #open" 
        echo "-a archive files  #add" 
        echo "-n archive file   #new" 
        echo "-r archive files  #remove" 
        echo "-e archive files  #extract" 
        exit
esac

If you are reading this and you have some prior experience with fixing/configuring Xarchive, would appreciate if you can fix the "***BROKEN***" part!

Or, I could migrate to UExtract, an alternative created by 'SFR':

http://murga-linux.com/puppy/viewtopic.php?t=87864

Note, there is another, older, alternative, Xarchiver, for which there are PETs around somewhere. 

Tags: easy