#!/ vim, this is /bash syntax !/

#def "cslip" "static cslip connection on \$1 from \$2 to \$3"
#   start() {
#      my($line,$source,$dest,$speed)=@_
#      my($pid,$ifname)=SYS::Slip::launch("SLIP-$dest",$line,$speed?$speed:&SYS::Slip::B115200,1,$source,$dest)
#      echo "added static slip connection $ifname, pid $pid"
#   }
#   stop() {
#      my($line,$source,$dest,$speed)=@_
#      killall "TERM" "SLIP-$dest"
#   }
#enddef

def netdev "network device \$1 ip \$2"
   start() {
      local dev="$1"
      local ip="$2"
      local net="$3"
      local netmask="$4"
      safe_eval /sbin/ifconfig "$dev" inet "$ip" netmask "$netmask";
   }
   stop() {
      local dev="$1"
      /sbin/ifconfig $dev down
   }
end

def default_gateway "default gateway \$1"
   start() {
      safe_eval /sbin/route add default gw "$1"
   }
   stop() {
      /sbin/route del default
   }
end

def module "load module \$1"
   start() {
      echo "loading module $1"
      safe_eval /sbin/modprobe "$1"
   }
   stop() {
      echo "removing module $1"
      safe_eval /sbin/modprobe -r "$1"
   }
end

defalias syslogd	"system logging daemon"		"simpledaemon::syslogd -r -s laendle:/var/run/syslogd.pid"
defalias klogd		"kernel logging daemon"		"simpledaemon::klogd -s:/var/run/klogd.pid"
defalias inetd		"network server daemon"		"simpledaemon::inetd:/var/run/inetd.pid"
defalias rpc_portmap	"Sun-RPC portmapper"		"simpledaemon::rpc.portmap"
defalias rpc_mountd	"Sun RPC-Mount daemon"		"simpledaemon::rpc.mountd"
defalias rpc_nfsd	"Sun RPC-NFS daemon"		"simpledaemon::rpc.nfsd"
defalias rpc_lockd	"Sun RPC-NFS locking daemon"	"simpledaemon::rpc.lockd"
defalias rpc_statd	"Sun RPC-NFS status daemon"	"simpledaemon::rpc.statd"
defalias pcnfsd		"PC-NFS daemon"			"simpledaemon::rpc.pcnfsd"
defalias bwnfsd		"BW-NFS daemon"			"simpledaemon::rpc.bwnfsd"
defalias named		"DNS name server daemon"	"simpledaemon::named"
defalias routed		"Dynamic route daemon"		"simpledaemon::routed"
defalias rwhod		"remote who daemon"		"simpledaemon::rwhod"
defalias lpd		"BSD echo spooler daemon"	"simpledaemon::lpd"
defalias ypbind		"NIS server binder"		"simpledaemon::ypbind"
defalias crond		"CRON daemon"			"simpledaemon::daemonize crond >>/var/log/cron.log 2>&1:/var/run/crond.pid"
defalias kerneld	"Kernel-daemon"			"simpledaemon::kerneld"
defalias xfs		"X fontserver"			"simpledaemon::daemonize xfs"
defalias xfstt		"X truetype fontserver"		"simpledaemon::daemonize xfsft"
defalias nscd		"NameServer Caching Daemon"	"simpledaemon::nscd:/var/run/nscd.pid"
defalias wwwoffled	"WWW Offle Daemon"		"simpledaemon::wwwoffled"
defalias lircd		"lircd"				"simpledaemon::lircd:/var/lock/LCK..lirc"
defalias postgresql	"PostgreSQL"			"simpledaemon::daemonize su - pg -c '/home/pg/bin/postmaster -o -F -i -D /home/pg/data -S'"

def "randomdevice" "random number generator"
   start() {
      if [ -r /etc/random-seed ]; then
         dd if=/etc/random-seed of=/dev/urandom bs=512 count=1 &>/dev/null
         rm -f /etc/random-seed
      fi
      dd if=/dev/urandom of=/dev/null bs=512 count=1 &>/dev/null
   }
   stop() {
      (
         umask 077;
         dd if=/dev/urandom of=/etc/random-seed bs=512 count=1 &>/dev/null
      )
   }
end

def "hostname" "set hostname and domainname"
   start() {
      echo "hostname is $HOSTNAME"
      safe_eval /bin/hostname "$HOSTNAME"
      if [ -n "$YP_DOMAIN" ]; then
         echo "yp-domain is $YP_DOMAIN"
         safe_eval ypdomainname "$YP_DOMAIN"
      fi
   }
end

# the next facility is of limited use for most people
# that do not have my fw.sh script
def "fw" "static firewalling rules"
   start() {
      test -e /etc/firewall.m4 && fw.sh /etc/firewall.m4 | sh
   }
end

def "write_utmp" "write utmp-entry"
   start() {
      echo "Writing utmp entry....."
      /sbin/halt -w
      sync
   }
end

def "umount_fs" "unmount filesystems"
   start() {
      sync
      echo "Unmounting file systems....."
      safe_eval /bin/umount -var
      sync
   }
   stop() {
      echo "Mounting file systems....."
      safe_eval /bin/mount -va
   }
end

def "umount_root" "unmount root-fs"
   start() {
      echo "Remount root file system read-only....."
      sync
      safe_eval /bin/umount -nvr /
      sync
      sync
      sync
      echo "Done..... just a second..."
      sync
      sync
      sync
   }
   stop() {
      echo "Remount root file system read-write....."
      safe_eval /bin/mount -vnoremount,rw /
   }
end

#def "lowpri" "low priority system services"
#   start() {
#      run_daemon($rcpath."/lowpri")
#   }
#   stop() {
#      kill_pidfile("HUP",undef,"/var/run/lowpri.pid")
#   }
#enddef

def "system_stop" "System \$1"
   start() {
      local type="$1"
      sync
      if [ "$type" == "halt" ]; then
         echo "System halting....."
         /sbin/halt -n -f -p
      fi
      if [ "$type" == "reboot" ]; then
         echo "System reboot....."
         /sbin/reboot -n -f
      fi
   }
end

#def "runqueue" "Runs runq locally [and on remote machine \$1]"
#   start() {
#      my($remote)=@_
#      if($remote) {
#         unless(system("/usr/bin/fping" "-q" "-r" "0" "-t" "400",$remote)>>8) {
#            system("/usr/sbin/runq -d1 -R $remote")
#            system("/usr/app/bin/fetchmail" "-v" "-p" "ETRN" "-S" "#@",$remote)
#         } else {
#            echo "remote system $remote unreachable, skipping delivery"
#         }
#      }
#   }
#enddef

def "hdparm" "HDPARM: \$1"
   start() {
      local path="$1"
      local settings="$2"
      safe_eval hdparm "$settings"
   }
end

def "sysctl" "Sysctl setting \$1"
   start() {
      if (($#>0)); then
         local path="$1"; shift
         sysctl -w "$path=$@"
      else
         safe_eval sysctl -p
      fi
   }
end

def sh "\$*"
   start() {
     eval safe_eval "$@"
   }
   stop() {
     eval safe_eval "$@"
   }
end