tazpanel annotate boot.cgi @ rev 381

More reliable menu.d calls
author Pascal Bellard <pascal.bellard@slitaz.org>
date Mon Jan 06 00:45:40 2014 +0100 (2014-01-06)
parents 0369a5cb81e3
children d1dbbf42b25e
rev   line source
pankso@50 1 #!/bin/sh
pankso@50 2 #
paul@82 3 # Boot CGI script - All what happens before login (grub, rcS, slim)
pankso@50 4 #
pankso@379 5 # Copyright (C) 2011-2014 SliTaz GNU/Linux - BSD License
pankso@50 6 #
pankso@50 7
pankso@50 8 # Common functions from libtazpanel and source main boot config file.
pankso@50 9 . lib/libtazpanel
pankso@50 10 . /etc/rcS.conf
pascal@81 11 header
pankso@50 12 get_config
pankso@50 13
al@292 14 TITLE=$(gettext 'TazPanel - Boot')
pankso@50 15
pankso@50 16 #
pankso@50 17 # Commands
pankso@50 18 #
pankso@50 19
pascal@81 20 case " $(GET) " in
pascal@130 21 *\ log\ *)
pascal@130 22 xhtml_header
pascal@130 23 cat << EOT
pascal@130 24 <div id="wrapper">
al@303 25 <h2>$(gettext 'Boot log files')</h2>
pascal@130 26 </div>
pascal@137 27 <div>
pascal@137 28 <a class="button" href="#kernel">
al@303 29 <img src="$IMAGES/tux.png" />$(gettext 'Kernel messages')</a>
al@303 30 <a class="button" href="#boot">$(gettext 'Boot scripts')</a>
al@303 31 <a class="button" href="#slim">$(gettext 'X server')</a>
pascal@137 32 </div>
al@303 33
al@303 34 <h3 id="kernel">$(gettext 'Kernel messages')</h3>
al@303 35
al@303 36 <pre>$(cat /var/log/dmesg.log | syntax_highlighter kernel)</pre>
al@303 37
al@303 38 <h3 id="boot">$(gettext 'Boot scripts')</h3>
al@303 39
al@303 40 <pre>$(cat /var/log/boot.log | filter_taztools_msgs)</pre>
al@303 41
al@303 42 <h3 id="slim">$(gettext 'X server')</h3>
al@303 43
pascal@130 44 <pre>
al@303 45 $(tail -n 40 /var/log/slim.log | htmlize)
al@303 46 <hr /><a href="/index.cgi?file=/var/log/slim.log">$(gettext 'Show more...')</a>
al@303 47 </pre>
pascal@130 48 EOT
pascal@130 49 ;;
pascal@81 50 *\ daemons\ *)
pankso@51 51 #
pankso@51 52 # Everything until user login
pankso@51 53 #
al@292 54 # Start and stop a daemon. I think we don't need a restart since 2
paul@52 55 # clicks and you are done
pankso@51 56 . /etc/rcS.conf
pankso@51 57 xhtml_header
al@292 58
pankso@51 59 cat << EOT
pankso@51 60 <div id="wrapper">
al@303 61 <h2>$(gettext 'Manage daemons')</h2>
al@303 62 <p>$(gettext 'Check, start and stop daemons on SliTaz')</p>
pankso@51 63 </div>
pankso@51 64 EOT
pascal@143 65 daemon=$(GET daemons)
pascal@143 66 case "$daemon" in
pascal@143 67 start=*)
pascal@143 68 sleep 1
pascal@143 69 /etc/init.d/${daemon#start=} start | log ;;
pascal@143 70 stop=*)
pascal@143 71 /etc/init.d/${daemon#stop=} stop | log ;;
pascal@143 72 pid=*)
pascal@143 73 echo "<pre>"
pascal@143 74 ps ww | sed "1p;/^ *${daemon#pid=} /!d"
pascal@143 75 echo "</pre>" ;;
pascal@143 76 esac
paul@205 77 # Daemon list
pankso@51 78 table_start
pankso@51 79 cat << EOT
pankso@51 80 <thead>
pankso@51 81 <tr>
al@303 82 <td>$(gettext 'Name')</td>
al@303 83 <td>$(gettext 'Description')</td>
pascal@366 84 <td>$(gettext 'Configuration')</td>
al@303 85 <td>$(gettext 'Status')</td>
al@303 86 <td>$(gettext 'Action')</td>
al@303 87 <td>$(gettext 'PID')</td>
pankso@51 88 </tr>
pankso@51 89 </thead>
pankso@51 90 EOT
pankso@51 91 cd /etc/init.d
pankso@51 92 list="`ls | sed -e /.sh/d -e /rc./d -e /RE/d -e /daemon/d \
pankso@51 93 -e /firewall/d`"
pankso@51 94 for name in $list
pankso@51 95 do
pankso@51 96 pkg=""
pankso@51 97 pid=""
pankso@51 98 status=""
pankso@51 99 SHORT_DESC=""
pankso@51 100 echo '<tr>'
pankso@51 101 # Name
pankso@51 102 echo "<td>$name</td>"
paul@52 103 # First check if daemon is started at bootime
pankso@51 104 [ echo "RUN_DAEMONS" | fgrep $name ] && boot="on boot"
paul@52 105 # Standard SliTaz busybox daemons and firewall
al@303 106 echo -n "<td>"
pascal@364 107 cfg=""
pascal@364 108 grep -qi "^${name}_OPTIONS=" /etc/daemons.conf && cfg="options|$cfg"
pascal@373 109 for i in /etc/slitaz /etc /etc/$name ; do
pascal@373 110 [ -s $i/$name.conf ] && cfg="edit::$i/$name.conf|$cfg"
pascal@373 111 done
pascal@364 112 [ -n "$(which $name)" ] && cfg="man|help|$cfg"
pankso@51 113 case "$name" in
pankso@51 114 firewall)
al@303 115 gettext 'SliTaz Firewall with iptable rules' ;;
pankso@51 116 httpd)
al@303 117 gettext 'Small and fast web server with CGI support' ;;
pankso@51 118 ntpd)
al@303 119 gettext 'Network time protocol daemon' ;;
pankso@51 120 ftpd)
pascal@364 121 cfg="man|help|edit::/etc/inetd.conf"
al@303 122 gettext 'Anonymous FTP server' ;;
pankso@51 123 udhcpd)
al@303 124 gettext 'Busybox DHCP server' ;;
pankso@51 125 syslogd|klogd)
al@303 126 gettext 'Linux Kernel log daemon' ;;
pankso@76 127 crond)
pascal@364 128 # FIXME crontab
al@303 129 gettext 'Execute scheduled commands' ;;
pankso@76 130 dnsd)
pascal@364 131 cfg="man|help|edit|options::-d"
al@303 132 gettext 'Small static DNS server daemon' ;;
pankso@76 133 tftpd)
pascal@364 134 cfg="man|help|edit::/etc/inetd.conf"
al@303 135 gettext 'Transfer a file on tftp request' ;;
pankso@76 136 inetd)
al@303 137 gettext 'Listen for network connections and launch programs' ;;
pankso@76 138 zcip)
pascal@364 139 cfg="man|help|edit:Script:/etc/zcip.script|options::eth0 /etc/zcip.script"
al@303 140 gettext 'Manage a ZeroConf IPv4 link-local address' ;;
pankso@51 141 *)
paul@205 142 # Description from receipt
pankso@51 143 [ -d "$LOCALSTATE/installed/$name" ] && pkg=$name
pankso@51 144 [ -d "$LOCALSTATE/installed/${name%d}" ] && pkg=${name%d}
pankso@51 145 [ -d "$LOCALSTATE/installed/${name}-pam" ] && pkg=${name}-pam
pankso@51 146 if [ "$pkg" ]; then
pascal@364 147 unset SHORT_DESC TAZPANEL_DAEMON
pankso@51 148 . $LOCALSTATE/installed/$pkg/receipt
al@303 149 echo -n "$SHORT_DESC"
pascal@366 150 cfg="${TAZPANEL_DAEMON:-$cfg|web::$WEB_SITE}"
pankso@51 151 else
al@303 152 echo -n "----"
pankso@51 153 fi ;;
pankso@51 154 esac
al@303 155 echo "</td>"
paul@205 156 # Attempt to get daemon status
al@303 157 pidfile=$(find /var/run -name *$name*.pid)
al@303 158 [ "$pidfile" ] && pid=$(cat $pidfile)
pankso@51 159 # dbus
al@303 160 [ -f /var/run/${name}/pid ] && pid=$(cat /var/run/${name}/pid)
pankso@51 161 # apache
al@303 162 [ "$name" = "apache" ] && pid=$(cat /var/run/$name/httpd.pid)
paul@205 163 # Pidof works for many daemons
al@303 164 [ "$pid" ] || pid=$(pidof $name)
pascal@364 165 echo -n "<td>"
pascal@364 166 if [ "$cfg" ]; then
pascal@364 167 IFS="|"
pascal@364 168 for i in $cfg ; do
pascal@364 169 IFS=":"
pascal@364 170 set -- $i
pascal@364 171 case "$1" in
pascal@364 172 edit) cat <<EOT
pascal@364 173 <a href="index.cgi?file=${3:-/etc/$name.conf}&action=edit">
pascal@364 174 <img title="${2:-$name Configuration}" src="$IMAGES/edit.png" /></a>
pascal@364 175 EOT
pascal@364 176 ;;
pascal@364 177 options)
pascal@364 178 key=$(echo $name | tr [a-z] [A-Z])_OPTIONS
pascal@364 179 cat <<EOT
pascal@364 180 <a href="index.cgi?file=/etc/daemons.conf&action=setvar&var=$key&default=$3">
pascal@364 181 <img title="${2:-$key}" src="$IMAGES/tux.png" /></a>
pascal@364 182 EOT
pascal@364 183 ;;
pascal@364 184 man) cat <<EOT
pascal@364 185 <a href="index.cgi?exec=man ${3:-$name}">
pascal@364 186 <img title="${2:-$name Manual}" src="$IMAGES/text.png" /></a>
pascal@364 187 EOT
pascal@364 188 ;;
pascal@364 189 help) cat <<EOT
pascal@364 190 <a href="index.cgi?exec=$(which ${3:-$name}) --help">
pascal@364 191 <img title="${2:-$name Help}" src="$IMAGES/help.png" /></a>
pascal@364 192 EOT
pascal@364 193 ;;
pascal@364 194 web) cat <<EOT
pascal@364 195 <a href="${i#$1:$2:}">
pascal@366 196 <img title="${2:-$name website:} ${i#$1:$2:}" src="$IMAGES/browser.png" /></a>
pascal@364 197 EOT
pascal@364 198 ;;
pascal@364 199 esac
pascal@364 200 done
pascal@364 201 fi
pascal@364 202 echo "</td>"
pankso@51 203 if [ "$pid" ]; then
pascal@143 204 cat << EOT
al@303 205 <td><img src="$IMAGES/started.png" alt="Started" title="$(gettext 'Started')" /></td>
pascal@143 206 <td><a href="$SCRIPT_NAME?daemons=stop=$name">
al@303 207 <img src="$IMAGES/stop.png" alt="Stop" title="$(gettext 'Stop')" /></a></td>
pascal@143 208 <td>
pascal@143 209 EOT
pascal@143 210 for i in $pid; do
pascal@143 211 cat << EOT
pascal@143 212 <a href="$SCRIPT_NAME?daemons=pid=$i">$i</a>
pascal@143 213 EOT
pascal@143 214 done
pankso@51 215 else
pascal@143 216 cat << EOT
al@303 217 <td><img src="$IMAGES/stopped.png" alt="Stopped" title="$(gettext 'Stopped')" /></td>
pascal@143 218 <td><a href="$SCRIPT_NAME?daemons=start=$name">
al@303 219 <img src="$IMAGES/start.png" alt="Start" title="$(gettext 'Start')" /></a></td>
pascal@143 220 <td>-----
pascal@143 221 EOT
pankso@51 222 fi
pascal@143 223 echo '</td></tr>'
pankso@51 224 done
pankso@51 225 table_end ;;
al@303 226
pankso@151 227 *\ grub\ *)
al@303 228 GRUBMENU="/boot/grub/menu.lst"
pankso@151 229 if [ "$(GET splash)" ]; then
pankso@151 230 default=$(GET default)
pankso@151 231 timeout=$(GET timeout)
pankso@151 232 splash=$(GET splash)
pankso@151 233 sed -i \
al@303 234 -e s"|default .*|default $default # new|" \
al@303 235 -e s"|timeout .*|timeout $timeout|" \
al@303 236 -e s"|splashimage=.*|splashimage=$splash|" \
al@303 237 $GRUBMENU
pankso@151 238 fi
al@303 239 default=$(cat $GRUBMENU | grep ^default | cut -d " " -f 2)
al@303 240 timeout=$(cat $GRUBMENU | grep ^timeout | cut -d " " -f 2)
al@303 241 splash=$(cat $GRUBMENU | grep ^splashimage | cut -d "=" -f 2)
pankso@151 242 xhtml_header
pankso@151 243 cat << EOT
pankso@151 244 <div id="wrapper">
al@303 245 <h2>$(gettext 'GRUB Boot loader')</h2>
al@303 246
al@303 247 <p>$(gettext 'The first application started when the computer powers on')</p>
pankso@151 248 </div>
pankso@151 249
pankso@151 250 <form method="get" action="$SCRIPT_NAME">
pankso@151 251 <input type="hidden" name="grub" />
al@303 252 <table>
al@303 253 <tr><td>$(gettext 'Default entry:')</td>
al@303 254 <td><input type="text" name="default" value="$default" /></td></tr>
al@303 255 <tr><td>$(gettext 'Timeout:')</td>
al@303 256 <td><input type="text" name="timeout" value="$timeout" /></td></tr>
al@303 257 <tr><td>$(gettext 'Splash image:')</td>
al@303 258 <td><input type="text" name="splash" value="$splash" size="40" /></td></tr>
al@303 259 </table>
al@303 260 <input type="submit" value="$(gettext 'Change')" />
al@303 261 <a class="button" href="index.cgi?file=$GRUBMENU">
al@303 262 <img src="$IMAGES/text.png" />$(gettext 'View or edit menu.lst')</a>
pankso@151 263 </form>
pankso@151 264
al@303 265 <h3>$(gettext 'Boot entries')</h3>
pankso@151 266 EOT
al@303 267
al@303 268
al@303 269 menu=$(tail -q -n +$(grep -n ^title $GRUBMENU | head -n1 | cut -d: -f1) $GRUBMENU \
al@303 270 | sed -e "s|^$||g" \
al@303 271 | sed -e "s|^title|</pre></li>\n<p><strong>$(gettext 'Entry') #</strong></p>\n<pre>\0|g" \
al@303 272 | sed '/^[ \t]*$/d' \
al@303 273 | tail -q -n +2)"</pre>"
al@303 274
pankso@151 275 entry='-1'
al@303 276 echo "$menu" | while read line
pankso@151 277 do
al@303 278 if [ -n "$(echo $line | grep '#</strong>')" ]; then
al@303 279 entry=$(($entry + 1))
al@303 280 fi
al@303 281 echo $line | sed "s|#</strong>|$entry</strong>|"
pankso@151 282 done
al@303 283
pankso@151 284 # Here we could check if an entry for gpxe is present if not
pankso@151 285 # display a form to add it.
pankso@151 286 [ -f "/boot/gpxe" ] && echo "<h3>gPXE</h3>" && \
al@303 287 gettext 'Web boot is available with gPXE'
pankso@151 288 ;;
pankso@50 289 *)
pankso@50 290 #
pankso@51 291 # Default content with summary
pankso@50 292 #
pankso@50 293 . /etc/rcS.conf
pankso@50 294 xhtml_header
pankso@50 295 cat << EOT
pankso@50 296 <div id="wrapper">
al@303 297 <h2>$(gettext 'Boot &amp; Start services')</h2>
al@303 298 <p>$(gettext 'Everything that happens before user login')</p>
pankso@50 299 </div>
pankso@51 300 <div>
pascal@130 301 <a class="button" href="$SCRIPT_NAME?log">
al@303 302 <img src="$IMAGES/text.png" />$(gettext 'Boot logs')</a>
pascal@124 303 <a class="button" href="$SCRIPT_NAME?daemons">
al@303 304 <img src="$IMAGES/recharge.png" />$(gettext 'Manage daemons')</a>
al@303 305 <a class="button" href="$SCRIPT_NAME?grub">$(gettext 'Boot loader')</a>
pankso@51 306 </div>
pankso@51 307
al@303 308 <h3>$(gettext 'Configuration files')</h3>
pankso@57 309 <ul>
al@303 310 <li>$(gettext 'Main configuration file:')
pankso@57 311 <a href="index.cgi?file=/etc/rcS.conf">rcS.conf</a></li>
al@303 312 <li>$(gettext 'Login manager settings:')
pankso@57 313 <a href="index.cgi?file=/etc/slim.conf">slim.conf</a></li>
pankso@73 314 </ul>
pankso@57 315
al@303 316 <h3>$(gettext 'Kernel cmdline')</h3>
al@303 317
al@303 318 <pre>$(cat /proc/cmdline)</pre>
al@303 319
al@303 320 <h3>$(gettext 'Local startup commands')</h3>
al@303 321
al@303 322 <pre>$(cat /etc/init.d/local.sh | syntax_highlighter sh)</pre>
al@303 323
pankso@105 324 <a class="button" href="index.cgi?file=/etc/init.d/local.sh&amp;action=edit">
al@303 325 <img src="$IMAGES/edit.png" />$(gettext 'Edit script')</a>
pankso@50 326 EOT
pankso@50 327 ;;
pankso@50 328 esac
pankso@50 329
pankso@50 330 xhtml_footer
pankso@50 331 exit 0