cgit.sxemacs.org Git - pkgusr/blob - etc/pkgusr/zsh/zsh-pkgtools

   1 # -*- Shell-script -*-
   2 # Copyright (C) 2007 - 2013 Steve Youngs <steve@steveyoungs.com>
   3 #
   4 #  A collection of Zsh functions that I use day to day for maintaining
   5 #  and administering my machines.  These come in very handy if you set up
   6 #  one of your users as a "package manager".  There is a corresponding
   7 #  _zsh-pkgtools file that provides completion for most of what is here.
   8 H-pkg ()
   9 {
  10         cat<<EOF
  11
  12         fpkg [REGEXP] -- finds pkg names matching REGEXP.
  13         ppkg [NAME]   -- print pkg NAME pkg info.
  14         cpkg [CMD]    -- find what package provides CMD.
  15         lpkg          -- list installed packages.
  16         Lpkg          -- list installed packages with dates last updated.
  17         upkg [PKG]    -- date/time the last time PKG was updated.
  18         vpkg [PKG]    -- print the version of PKG.
  19         ipkg [PKG]    -- print install notes of PKG.
  20         gpkg [PKG]    -- print general notes of PKG.
  21         wpkg [PKG]    -- print PKG website URL.
  22         dpkg [PKG]    -- print PKG dependencies.
  23         pkgrepo [PKG] <t> -- print the source repo location of PKG
  24                              with optional 2nd arg non-nil, also print
  25                              repo type.
  26         pkgsu [PKGUSR] -- switch to user PKGUSR.
  27         pkg_install [DESCRIPTION] [USER] [GROUP]
  28                 -- install a new package, DESCRIPTION must be quoted.
  29         pkg_ldconfig  -- Run ldconfig.
  30
  31         xtar [FILE]   -- extract tarball FILE.  sets tar(1) options
  32                          based on file type.
  33         vtar [FILE]   -- view the contents of tarball FILE.  sets tar(1)
  34                          options based on file type.
  35         ctar [FILE] [DIRECTORY]
  36                       -- create a tarball FILE of DIRECTORY.  Compression
  37                          is automatically chosen from the filename.
  38
  39
  40 EOF
  41 }
  42
  43 fpkg ()
  44 {
  45         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
  46                 echo Invalid or missing argument >&2
  47                 echo "Usage: $0 [REGEXP]" >&2
  48                 return 1
  49         else
  50                 sed -n '/^install:/,$p' /etc/group|cut -d: -f1| \
  51                   grep -i --colour ${argv[1]}
  52         fi
  53 }
  54
  55 ppkg ()
  56 {
  57         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
  58                 echo Invalid or missing argument >&2
  59                 echo "Usage: $0 [NAME]" >&2
  60                 return 1
  61         else
  62                 pinky -l $argv[1]|less
  63         fi
  64 }
  65
  66 cpkg ()
  67 {
  68         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
  69                 echo Invalid or missing argument >&2
  70                 echo "Usage: $0 [CMD]" >&2
  71                 return 1
  72         else
  73                 find $path -type f -regex "^.*/$argv[1].*$" \
  74                   -printf "%f -- (%u:%g)\n"|grep --colour '(.*)'
  75         fi
  76 }
  77
  78 lpkg ()
  79 {
  80         sed -n '/^install/p' /etc/group|cut -d: -f4|tr ',' '\n'|less
  81 }
  82
  83 upkg()
  84 {
  85         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
  86                 echo Invalid or missing argument >&2
  87                 echo "Usage: $0 [PKG]" >&2
  88                 return 1
  89         else
  90                 grep --colour 'Last_Updated:.*' ~$argv[1]/.project
  91         fi
  92 }
  93
  94 Lpkg ()
  95 {
  96         for pkg in $(sed -n '/^install/p' /etc/group|cut -d: -f4|tr ',' '\n'); do
  97                 printf "${pkg}\t\t\t$(upkg ${pkg}|cut -d' ' -f3-)\n"
  98         done|less
  99 }
 100
 101 vpkg()
 102 {
 103         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
 104                 echo Invalid or missing argument >&2
 105                 echo "Usage: $0 [PKG]" >&2
 106                 return 1
 107         else
 108                 grep --colour 'Version: ' ~$argv[1]/.project
 109         fi
 110 }
 111
 112 ipkg()
 113 {
 114         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
 115                 echo Invalid or missing argument >&2
 116                 echo "Usage: $0 [PKG]" >&2
 117                 return 1
 118         else
 119                 local top=$(grep -n "Install Notes" ~$argv[1]/.project|cut -d: -f1)
 120                 local bot=$(grep -n "General Notes" ~$argv[1]/.project|cut -d: -f1)
 121                 sed -n ${top},${bot}p  ~$argv[1]/.project
 122         fi
 123 }
 124
 125 gpkg()
 126 {
 127         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
 128                 echo Invalid or missing argument >&2
 129                 echo "Usage: $0 [PKG]" >&2
 130                 return 1
 131         else
 132                 local top=$(grep -n "General Notes" ~$argv[1]/.project|cut -d: -f1)
 133                 local bot=$(grep -n "CONTENTS" ~$argv[1]/.project|cut -d: -f1)
 134                 sed -n ${top},${bot}p ~$argv[1]/.project
 135         fi
 136 }
 137
 138 dpkg()
 139 {
 140         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
 141                 echo Invalid or missing argument >&2
 142                 echo "Usage: $0 [PKG]" >&2
 143                 return 1
 144         else
 145                 grep --colour 'Deps: ' ~$argv[1]/.project
 146         fi
 147 }
 148
 149 wpkg()
 150 {
 151         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
 152                 echo Invalid or missing argument >&2
 153                 echo "Usage: $0 [PKG]" >&2
 154                 return 1
 155         else
 156                 grep --colour 'Web_Site: ' ~$argv[1]/.project
 157         fi
 158 }
 159
 160 pkgrepo()
 161 {
 162         if [[ $ARGC -lt 1 || $ARGC -gt 2 ]]; then
 163                 echo Invalid or missing argument >&2
 164                 echo "Usage: $0 [PKG] <t>" >&2
 165                 return 1
 166         else
 167                 grep --colour 'Repo_Location: ' ~$argv[1]/.project
 168                 [[ -n "$argv[2]" ]] && grep --colour 'Repo_Type: ' ~$argv[1]/.project
 169         fi
 170 }
 171
 172 xtar()
 173 {
 174         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
 175                 echo Invalid or missing argument >&2
 176                 echo "Usage: $0 [FILE]" >&2
 177                 return 1
 178         fi
 179
 180         local opts
 181         local type
 182         local fname=$argv[1]
 183
 184         type=$(file ${fname}|cut -d' ' -f2)
 185
 186         case $type in
 187                 (tar)   opts=xf ;;
 188                 (gzip)  opts=zxf ;;
 189                 (bzip2) opts=jxf ;;
 190                 (xz)    opts=Jxf ;;
 191                 (*)
 192                         # try lzma
 193                         if lzmainfo ${fname} &>/dev/null; then
 194                                 opts=(--lzma -xf)
 195                         else
 196                                 printf "Unknown file type: %s\n" $type >&2
 197                                 return 2
 198                         fi
 199                         ;;
 200         esac
 201
 202         tar ${opts} ${fname}
 203 }
 204
 205 vtar()
 206 {
 207         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
 208                 echo Invalid or missing argument >&2
 209                 echo "Usage: $0 [FILE]" >&2
 210                 return 1
 211         fi
 212
 213         local opts
 214         local type
 215         local fname=$argv[1]
 216
 217         type=$(file ${fname}|cut -d' ' -f2)
 218
 219         case $type in
 220                 (tar)   opts=tvvvf ;;
 221                 (gzip)  opts=ztvvvf ;;
 222                 (bzip2) opts=jtvvvf ;;
 223                 (xz)    opts=Jtvvvf ;;
 224                 (*)
 225                         # lzma.  Here because lzmainfo is too stupid
 226                         if lzmainfo ${fname} &>/dev/null; then
 227                                 opts=(--lzma -tvvvf)
 228                         else
 229                                 printf "Unknown file type: %s\n" $type >&2
 230                                 return 2
 231                         fi
 232                         ;;
 233         esac
 234
 235         tar ${opts} ${fname}|less
 236 }
 237
 238 ctar()
 239 {
 240         if [[ $ARGC -ne 2 ]]; then
 241                 echo Invalid or missing argument >&2
 242                 echo "Usage: $0 [FILE] [DIRECTORY]" >&2
 243                 return 1
 244         fi
 245
 246         local opts
 247         opts=(--create --owner=0 --group=0 --auto-compress --file)
 248
 249         tar ${opts} $1 $2
 250 }
 251
 252 pkgsu()
 253 {
 254         if [[ $ARGC -lt 1 || $ARGC -gt 1 ]]; then
 255                 echo Invalid or missing argument >&2
 256                 echo "Usage: $0 [PKGUSR]" >&2
 257                 return 1
 258         else
 259                 ssh -l root localhost -t su $argv[1]
 260         fi
 261 }
 262
 263 pkg_install()
 264 {
 265         if [[ $ARGC -lt 3 || $ARGC -gt 3 ]]; then
 266                 echo Invalid or missing argument >&2
 267                 echo "Usage: $0 [DESCRIPTION] [USER] [GROUP]" >&2
 268                 return 1
 269         else
 270                 ssh -l root localhost -t install_package \
 271                   ${argv[1]} $argv[2] $argv[3]
 272         fi
 273 }
 274
 275 alias pkg_ldconfig='ssh -l root localhost -t ldconfig'
 276
 277 ### End
 278