Magellan Linux

  • Back to homepage
    • /[mcore-svn]/mcore-src/trunk/mcore-tools/src/modules/mage/mage.client.class.in

    Contents of /mcore-src/trunk/mcore-tools/src/modules/mage/mage.client.class.in

    Parent Directory Parent Directory | Revision Log Revision Log

    Revision 2184 - (show annotations) (download)
    Fri Jan 10 14:24:30 2014 UTC (10 years, 3 months ago) by niro
    File size: 2132 byte(s) 
    -really moved to mage.client.class.in
    1 # $Id$
    2
    3 provide mage
    4
    5 help_mage_inventory()
    6 {
    7 mecho "get mage.inventory"
    8 mecho " prints all installed packages."
    9 }
    10
    11 get_mage_inventory()
    12 {
    13 magequery -i && mecho "done" || mecho "failed"
    14 }
    15
    16 help_mage_update()
    17 {
    18 mecho "set mage.update [rsync|tarball]"
    19 mecho " fetches updates of the package database."
    20 }
    21
    22 set_mage_update()
    23 {
    24 local method
    25 case $1 in
    26 tarball) method="update-tarball" ;;
    27 rsync) method="update" ;;
    28 *) method="update" ;;
    29 esac
    30
    31 mage "${method}" && mecho "done" || mecho "failed"
    32 }
    33
    34 get_mage_upgrade()
    35 {
    36 mage uppretend && mecho "done" || mecho "failed"
    37 }
    38
    39 help_mage_upgrade()
    40 {
    41 mecho "get mage.upgrade"
    42 mecho " shows possible updates missing on this system."
    43 mecho "or"
    44 mecho "set mage.upgrade"
    45 mecho " upgrades the whole system."
    46 }
    47
    48 set_mage_upgrade()
    49 {
    50 mage upgrade && mecho "done" || mecho "failed"
    51 }
    52
    53 help_mage_package()
    54 {
    55 mecho "set mage.package [method] [package]"
    56 mecho " package install operations on this system"
    57 mecho " methods:"
    58 mecho " install - installs given package"
    59 mecho " uninstall - uninstalls given package"
    60 mecho "or"
    61 mecho "get mage.package [method] [package]"
    62 mecho " package information operations"
    63 mecho " methods:"
    64 mecho " pretend - pretend dependencies of given package"
    65 mecho " search - searches the database for matching packages"
    66 }
    67
    68 set_mage_package()
    69 {
    70 local method="$1"
    71 local package="$2"
    72 [[ -z ${method} ]] && help_mage_package && return 1
    73 [[ -z ${package} ]] && help_mage_package && return 1
    74
    75 case ${method} in
    76 install|uninstall) mage "${method}" "${package}" && mecho "done" || mecho "failed" ;;
    77 *) help_mage_package && return 1 ;;
    78 esac
    79 }
    80
    81 get_mage_package()
    82 {
    83 local method="$1"
    84 local package="$2"
    85 [[ -z ${method} ]] && help_mage_package && return 1
    86 [[ -z ${package} ]] && help_mage_package && return 1
    87
    88 case ${method} in
    89 pretend|search) mage "${method}" "${package}" && mecho "done" || mecho "failed" ;;
    90 *) help_mage_package && return 1 ;;
    91 esac
    92 }
    93
    94 help_mage_clean()
    95 {
    96 mecho "set mage.clean"
    97 mecho " deletes all downloaded packages from the system"
    98 }
    99
    100 set_mage_clean()
    101 {
    102 mage clean && mecho "done" || mecho "failed"
    103 }