#!/bin/bash



# Użycie: pakiety.sh [plik wynikowy]

#

# Uwaga! Ze względu na wykorzystanie tablic wymagana jest powłoka bash.

# Trzeba zainstalować stosowny moduł

#

# Jeśli nie działa potok  while read do; ... done < <( ... )

# ( pojawia się komunikat, że nie ma urządzenia /dev/fd/62 )

# to trzeba polinkować w następujący sposób:

#   ln -s /proc/self/fd /dev/fd

#





# Plik z zależnościami pakietów. Zajrzyj do /etc/opkg.conf

PLIK_PKG=/tmp/opkg-lists/snapshots



# Tablica wbudowanych w obraz pakietów

pak_wbudowane=(base-files-brcm-2.4 bridge busybox dnsmasq dropbear firewall iptables kernel kmod-diag kmod-fs-ext2 kmod-fs-ext3 kmod-ipt-nathelper kmod-switch kmod-usb-core kmod-usb-storage kmod-usb-uhci-iv kmod-usb2 libgcc mtd ntpclient nvram opkg ppp ppp-mod-pppoe swap-utils uci uclibc)



# Czy jest katalog /dev/fd ?

if [ ! -d /dev/fd ] then

  ln -s /proc/self/fd /dev/fd

fi



indeks_pakietu () {

  local nazwa=$1

  local __indeks=$2

  local i

  local ret=-1



  #echo "Param: $nazwa"



  for (( i=0; i<${#pakiety[@]}; i+=1 )); do

    #echo "$i::${pakiety[$i]}  $nazwa  "

    if [ "$nazwa" == "${pakiety[$i]}" ] then

      ret=$i

    fi

  done



  #echo $ret

  eval $__indeks="$ret"

}



usun_pakiet () {

  local indeks=$1

  local i



  for (( i=$indeks; i<${#pakiety[@]}-1; i+=1 )); do

    pakiety[$i]=${pakiety[$i+1]}

  done

  unset pakiety[$[${#pakiety[@]}-1]]

}



if [ ! -f "$PLIK_PKG" ] then

  opkg update || { echo "Nie potrafię uaktualnić listy pakietów."; exit 5; }

  if [ ! -f "$PLIK_PKG" ] then

    # Mimo pobrania pliku nadal go nie ma %-)

    echo "Nieprawidłowa konfiguracja, sprawdź ustawienie PLIK_PKG."

    exit 5

  fi

fi



for naz_pakietu in `opkg list_installed | awk '{print $1}'`

do

  wsk=${#pakiety[@]}

  pakiety[$wsk]=$naz_pakietu

done



echo "Zainstalowanych pakietów: ${#pakiety[@]}"



echo "Przeglądanie zależności"



# Tablica znaczników pakietów do usunięcia

for ((i=0; i<${#pakiety[@]}; i+=1)); do

  czy_usunac[$i]=0

done



# Przeglądanie pliku zależności i zaznaczenie pakietów zależnych 

# od zainstalowanego pakietu do skasowania.

while read -a linia; do

  indeks_pakietu ${linia[0]} ind

  printf "\rSprawdzam: %-36s  zależności: %2d " ${linia[0]} $[${#linia[@]}-1]

  if [ $ind -ge 0 ] then

    for ((i=1; i<${#linia[@]}; i+=1)); do

      indeks_pakietu ${linia[$i]} ind

      czy_usunac[$ind]=1

    done

  fi

done < <(awk '\

/^[ \t]*$/              {pakiet="@@@"} \

/^Package:/           {pakiet=$2} \

/^Depends:/        {zalezne=$0; gsub (/^Depends:/, "", zalezne); gsub (/\(.*\)/, "", zalezne); gsub (/,/, " ", zalezne); gsub (/[ \t]+/, " ", zalezne); print pakiet " " zalezne } \

' "$PLIK_PKG" )





# Teraz usuwam zależne pakiety. Koniecznie od końca!

echo -e "\nUsuwam pakiety z zależności"

for ((i=$[${#czy_usunac[@]}-1] i>=0; i-=1)); do

  if [ ${czy_usunac[$i]} -eq 1 ] then

    printf "\rUsuwam pakiet zależny %-36s" ${pakiety[$i]}

    usun_pakiet $i

  fi

done





echo -e "\nUsuwam pakiety wbudowane w obraz"



for (( i=0; i<${#pak_wbudowane[@]}; i+=1 )); do

  naz=${pak_wbudowane[$i]}

  indeks_pakietu $naz ind

  if [ $ind -ge 0 ] then

    printf "\rUsuwam pakiet wbudowany %-36s" ${pakiety[$ind]}

    usun_pakiet $ind

  fi

done



echo -e "\nNo i to co zostało jako backup\n"

if [ -n "$1" ] then

  echo -e "# Backup pakietów z dnia `date +'%d-%m-%Y'`\n" > "$1"

fi



# Jak nie będzie parametru wywołania skryptu $1 to tee się nie wyłoży. I dobrze.

for (( i=0; i<${#pakiety[@]}; i+=1 )); do

  echo "opkg install ${pakiety[$i]}" | tee -a $1

done