| | 1673 | | | | | 1674 | | switch (arg[0]) { | | | 1675 | | | | | 1676 | | case 0: | | | 1677 | | i_dump(1); | | | 1678 | | pkint(mp, 0); | | | 1679 | | break; | | | 1680 | | | | | 1681 | | case 1: | | | 1682 | | ht_dump(hosts); | | | 1683 | | pkint(mp, 0); | | | 1684 | | break; | | | | | ... | | | 1712 | | | | | 1713 | | case 7: | | | 1714 | | if (arg[1] > 0 && arg[1] < 50) { | | | 1715 | | nopax = arg[1]; | | | 1716 | | pvmlogprintf("tm_tickle() nopax is %d\n", nopax); | | | 1717 | | } else | | | 1718 | | pvmlogprintf("tm_tickle() bogus nopax %d\n", arg[1]); | | | 1719 | | pkint(mp, 0); | | | 1720 | | break; | | | 1721 | | | | | 1722 | | case 8: | | | 1723 | | pkint(mp, 1); | | | 1724 | | if ((hp = tidtohost(hosts, arg[1])) | | | 1725 | | && hp != hosts->ht_hosts[hosts->ht_local]) { | | | 1726 | | pvmlogprintf("tm_tickle() failing %s\n", hp->hd_name); | | | 1727 | | hostfailentry(hp); | | | 1728 | | ht_delete(hosts, hp); | | | 1729 | | if (newhosts) | | | 1730 | | ht_delete(newhosts, hp); | | | 1731 | | pkint(mp, 1); | | | 1732 | | } else { | | | 1733 | | if (hp) | | | 1734 | | pvmlogprintf("tm_tickle() can't fail %s\n", hp->hd_name); | | | 1735 | | else | | | 1736 | | pvmlogprintf("tm_tickle() no such host %x\n", arg[1]); | | | 1737 | | pkint(mp, 0); | | | 1738 | | } | | | 1739 | | break; | | | 1740 | | | | | 1741 | | case 9: | | | 1742 | | #ifdef STATISTICS | | | 1743 | | dump_statistics(); | | | 1744 | | if (arg[1]) | | | 1745 | | reset_statistics(); | | | 1746 | | #else | | | 1747 | | pvmlogerror("tm_tickle() statistics not compiled in\n"); | | | 1748 | | #endif | | | 1749 | | pkint(mp, 0); | | | | | ... | | | 1775 | | pkint(mp, 0); | | | 1776 | | } | | | 1777 | | break; | | | 1778 | | | | | 1779 | | default: | | | 1780 | | pvmlogprintf("tm_tickle() don't know #%d\n", arg[0]); | | | 1781 | | pkint(mp, 0); | | | 1782 | | break; | | | 1783 | | } | | | 1784 | | |
|