5 prakt. atsiskaitymas

dialog --title "Meniu" \
--menu "Pasirinkite meniu punkta" 0 0 4 \
Naujas_kontaktas "Naujo kontakto ivedimas" \
Kontakto_paieska "Kontakto paieska pagal varda" \
Visi_kontaktai "Viso saraso perziura" \
Kontakto_salinimas "Kontakto salinimas pagal eilutes numeri" \
2>pas.txt
pas=`cat pas.txt`
case $pas in

Naujas_kontaktas)
        dialog --title "Naujas kontaktas" \
        --inputbox "Iveskite varda, pavarde, telefono numeri ir el. pasta" 0 0 2>irasas.txt
        kint=$?
        irasas=`cat irasas.txt`
        case $kint in
        0)
                echo "$irasas" >> knygute.txt
                dialog --title "Naujas kontaktas" \
                --infobox "Kontaktas ivestas!" 0 0
                exit;;
        1)
                exit;;
        255)
                exit;;
        esac ;;

Kontakto_paieska)
        dialog --title "Kontakto paieska pagal varda" \
        --inputbox "Iveskite kontakto varda" 0 0 2>irasas.txt
        kint=$?
        irasas=`cat irasas.txt`
        case $kint in
        0)
                if grep -q "$irasas" knygute.txt
                then
                        kont=`grep "$irasas" knygute.txt`
                        dialog --title "Kontakto paieska pagal varda" \
                        --infobox "$kont" 0 0
                else
                        dialog --title "Kontakto paieska pagal varda" \
                        --msgbox "Tokio kontakto nera" 0 0
                fi
                read
                exit ;;
        1)
                exit ;;
        255)
                exit ;;
        esac ;;

Visi_kontaktai)
        if [ -s knygute.txt ]
        then
                dialog --title "Visu kontaktu perziura" \
                --infobox "`cat -n knygute.txt`" 0 0
        else
                dialog --title "Visu kontaktu perziura" \
                --msgbox "Failas yra tuscias" 0 0
        fi
        read
        exit ;;
Kontakto_salinimas)
        if [ -s knygute.txt ]
        then
                dialog --title "Kontakto salinimas" \
                --inputbox "Iveskite kontakto eilutes numeri kuri norite pasalint" 0 0 2>irasas.txt
                kint=$?
                irasas=`cat irasas.txt`
                case $kint in
                0)
                        iras=`head -$irasas knygute.txt`
                        echo $iras
                        dialog --title "Kontakto salinimas" \
                        --yesno "Ar norite istrinti sita Kontakta?\n $iras" 0 0
                        kint=$?
                        case $kint in
                        0)
                                sed -i "${irasas}d" knygute.txt
                                dialog --title "Kontakto salinimas" \
                                --msgbox "Kontaktas pasalintas" 0 0
                                exit  ;;
                        1)
                                dialog --title "Kontakto salinimas" \
                                --infobox "Kontaktas nebus pasalintas." 0 0
                                exit;;
                        255)
                                exit;;
                        esac ;;
                1)
                        exit;;
                255)
                        exit;;
esac
        else
                dialog --title "Kontakto salinimas" \
                --msgbox "Failas yra tuscias" 0 0
                exit
        fi ;;
        esac