tazpanel view settings.cgi @ rev 592
Hide procps's "ps" warning (on boot log and more) like: "Unknown HZ value! (70) Assume 100."
| author | Aleksej Bobylev <al.bobylev@gmail.com> |
|---|---|
| date | Mon May 23 16:31:22 2016 +0300 (2016-05-23) |
| parents | 22a22d1303dd |
| children | 60f0e46985a5 |
line source
1 #!/bin/sh
2 #
3 # System settings CGI interface: user, locale, keyboard, date. Since we
4 # don't have multiple pages here there is only one case used to get command
5 # values and the full content is followed directly.
6 #
7 # Copyright (C) 2011-2015 SliTaz GNU/Linux - BSD License
8 #
11 # Common functions from libtazpanel
13 . lib/libtazpanel
14 get_config
16 TITLE=$(_ 'System settings')
19 listdb() {
20 for item in $(getdb $1 | cut -d: -f1); do
21 echo "<option>$item</option>\n"
22 done
23 }
26 restart_lxpanel() {
27 # `lxpanelctl restart` exists, but it breaks often leaving us without any panel
29 # parameters needed to run graphical application from script
30 if [ -z "$XAUTHORITY" ]; then
31 if [ -e "$HOME/.Xauthority" ]; then
32 export XAUTHORITY="$HOME/.Xauthority"
33 elif [ -e '/var/run/slim.auth' ]; then
34 export XAUTHORITY='/var/run/slim.auth'
35 fi
36 fi
37 [ -z "$DISPLAY" ] && export DISPLAY=':0.0'
39 # find LXPanel ProcessID, filter out zombie '[lxpanel]' (if any)
40 lxpanel_pid="$(ps -o comm,pid,args 2>/dev/null | grep lxpanel | grep -v -E 'grep|sh|\[' | awk '{print $2}')"
42 # if LXPanel not running, just run it with default option
43 if [ -z "$lxpanel_pid" ]; then
44 (pstree | grep -q pcmanfm) && pcmanfm /etc/xdg/autostart/lxpanel.desktop ||
45 sh -l -c "lxpanel -p slitaz" &
46 else
47 # who started LXPanel?..
48 lxpanel_user="$(ps -o pid,user 2>/dev/null | fgrep "$lxpanel_pid " | awk '{print $2}')"
50 # ... current user?
51 if [ "$USER" == "$lxpanel_user" ]; then
52 # custom command?
53 lxpanel_comm="$(ps -o pid,args 2>/dev/null | grep -e "^\ *$lxpanel_pid " | awk '{$1="";print}')"
54 [ -z "$lxpanel_comm" ] && lxpanel_comm='lxpanel -p slitaz'
56 # stop LXPanel and start it again with the same command
57 kill $lxpanel_pid
58 (pstree | grep -q pcmanfm) && pcmanfm /etc/xdg/autostart/lxpanel.desktop ||
59 sh -l -c "$lxpanel_comm" &
60 fi
61 fi
63 }
67 #
68 # Commands executed before page loading.
69 #
71 case " $(GET) " in
72 *\ do\ *)
73 users=$(echo $QUERY_STRING | awk 'BEGIN{RS="&";FS="="}{if($1=="user") print $2}')
74 groups=$(echo $QUERY_STRING | awk 'BEGIN{RS="&";FS="="}{if($1=="group")print $2}')
76 case $(GET do) in
78 # Groups page
79 delgroups) for i in $groups; do delgroup $i; done ;;
80 addgroup) addgroup $groups ;;
81 addmember) addgroup $(GET member) $groups ;;
82 delmember) delgroup $(GET member) $groups ;;
84 # Users page
85 delusers) for i in $users; do deluser $i; done ;;
86 lockusers) for i in $users; do passwd -l $i | log; done ;;
87 unlockusers) for i in $users; do passwd -u $i | log; done ;;
88 chpasswd) echo "$users:$(GET password)" | chpasswd -m | log ;;
89 adduser)
90 if [ -n "$users" ]; then
91 name="$(GET name)"
92 adduser -D -s /bin/sh -g "${name:-SliTaz User}" -G users -h /home/$users $users
93 echo "$user:$(GET passwd)" | chpasswd -m | log
94 for i in audio cdrom floppy video tty; do addgroup $users $i; done
95 passwd -u $users | log
96 fi ;;
98 # System time
99 calendar)
100 # display Yad date picker (AJAX)
101 new_date="$(DISPLAY=':0.0' XAUTHORITY='/var/run/slim.auth' \
102 yad --calendar --on-top --mouse --undecorated \
103 --window-icon=config-date --title="$(_ 'Set date')" \
104 --date-format='%x<span style="display:none">%F</span>')"
105 header
106 echo "$new_date"; exit 0;;
108 settz)
109 # set timezone
110 GET tz > /etc/TZ ;;
112 date)
113 # only accepted format is MMDDhhmm[[YY]YY][.ss]
114 if [ -n "$(GET dateFull)" ]; then
115 dateFull="$(GET dateFull)" # %F = YYYY-MM-DD
116 date $(printf '%02d%02d%02d%02d%d.%02d' "${dateFull:5:2}" \
117 "${dateFull:8:2}" "$(GET hour)" "$(GET min)" \
118 "${dateFull:0:4}" "$(GET sec)") >/dev/null
119 else
120 date $(printf '%02d%02d%02d%02d%d.%02d' "$(GET month)" \
121 "$(GET day)" "$(GET hour)" "$(GET min)" "$(GET year)" \
122 "$(GET sec)") >/dev/null
123 fi;;
125 rdate)
126 # get and possibly set the system date/time from a remote host
127 sh -l -c "rdate -s tick.greyware.com" ;;
129 hwclock)
130 # query and set hardware clock (RTC)
131 hwclock -w -u ;;
133 gethwclock)
134 # get date/time from hardware clock (AJAX)
135 header; sh -l -c "hwclock -ur | sed 's|0.000000 seconds||'"; exit 0;;
137 esac
138 ;;
141 *\ gen_locale\ *) new_locale=$(GET gen_locale) ;;
142 *\ gen_keymap\ *) new_keymap=$(GET gen_keymap) ;;
144 *\ apply_xorg_kbd\ *)
145 sed -i "s/XkbLayout.*/XkbLayout \" \"$(GET apply_xorg_kbd)\"/" \
146 /etc/X11/xorg.conf.d/40-Keyboard.conf ;;
147 *\ style*)
148 sed -i s/'^STYLE.*'/"STYLE=\"$(GET style)\""/ $CONFIG
149 . $CONFIG ;;
152 *\ tweak\ *)
153 HOME="$(getdb passwd | awk -F: -vu=$REMOTE_USER '$1==u{print $6}')"
154 [ ! -d "$HOME" ] && exit 0
156 dd="$HOME/.local/share/desktop-directories"; sd="$dd/SliTazMenu.directory"
158 case "$REMOTE_USER" in
159 root) color='31'; ind='#';;
160 *) color='32'; ind='$';;
161 esac
163 case $(GET tweak) in
164 monochrome)
165 # PS1='\u@\h:\w\$ '
166 sed -i "s|^PS1=.*|PS1='\\\\u@\\\\h:\\\\w\\\\$ind '|" $HOME/.profile;;
167 colored)
168 # PS1='\[\e[0;32m\]\u@\h\[\e[0m\]:\[\e[0;33m\]\w\[\e[0m\]\$ '
169 sed -i "s|^PS1=.*|PS1='\\\\\\[\\\\e\[0;${color}m\\\\\\]\\\\u@\\\\h\\\\\\[\\\\e\\[0m\\\\\\]:\\\\\\[\\\\e\\[0;33m\\\\\\]\\\\w\\\\\\[\\\\e\\[0m\\\\\\]\\\\$ind '|" $HOME/.profile;;
170 slitaz-*)
171 lxpanel="$HOME/.config/lxpanel"
172 if [ ! -e "$lxpanel" ]; then
173 mkdir -p "$lxpanel"; cp /etc/lxpanel/default /etc/lxpanel/slitaz $lxpanel
174 fi
176 for panel in $(find $lxpanel -type f -iname panel); do
177 awk -vicon="/usr/share/pixmaps/$(GET tweak).png" '
178 BEGIN{ found = "0"; }
179 {
180 if ($1 == "Plugin") { found = "1"; }
182 if (found == "1" && $1 == "type") {
183 if ($3 == "menu") found = "2"; else found = "0";
184 }
186 if (found == "2" && $1 == "Plugin") { found = "0"; }
188 if (found == "2" && index($1, "image")) {
189 printf " image=%s\n", icon;
190 found = 0;
191 } else {
192 print;
193 }
194 }
195 ' $panel > $panel.new
196 mv -f $panel.new $panel
197 done
199 restart_lxpanel;;
200 menu-notext)
201 mkdir -p $dd
202 echo -e '[Desktop Entry]\nType=Directory\nName=' > $sd
203 restart_lxpanel;;
204 menu-text)
205 [ -f "$sd" ] && rm "$sd"
206 restart_lxpanel;;
207 esac
208 exit 0
209 ;;
212 *\ menuIcon\ *)
213 # return specified image (AJAX)
214 icon="/usr/share/pixmaps/$(GET menuIcon).png"
215 [ ! -r $icon ] && exit 0
216 header "Content-Type: image/png"; cat $icon; exit 0
217 ;;
218 esac
224 #
225 # Default xHTML content
226 #
228 header
230 case " $(GET) " in
231 *\ group*)
232 #
233 # Groups management
234 #
235 xhtml_header "$(_ 'Manage groups')"
236 check_root_tazpanel
238 cat <<EOT
239 <section id="groups">
240 <form class="wide">
241 <header>
242 <input type="hidden" name="groups"/>
243 <!-- $(_ 'Selection:') -->
244 <button name="do" value="delgroups" data-icon="@delete@">$(_ 'Delete group')</button>
245 </header>
247 <div class="scroll">
248 <table class="wide zebra scroll">
249 <thead>
250 <tr class="thead">
251 <td>$(_ 'Group')</td>
252 <td>$(_ 'Group ID')</td>
253 <td>$(_ 'Members')</td>
254 </tr>
255 </thead>
256 <tbody>
257 EOT
258 for group in $(getdb group | cut -d: -f1); do
259 IFS=':'
260 set -- $(getdb group | grep "^$group:")
261 unset IFS
262 cat <<EOT
263 <tr>
264 <td><input type="checkbox" name="group" value="$group" id="$group"/>
265 <label for="$group" data-icon="@group@">$group</label></td>
266 <td>$3</td>
267 <td>${4//,/, }</td>
268 </tr>
269 EOT
270 done
271 cat <<EOT
272 </tbody>
273 </table>
274 </div>
275 </form>
276 </section>
279 <section>
280 <header>$(_ 'Add a new group')</header>
281 <form class="wide">
282 <input type="hidden" name="groups"/>
283 <footer>$(_ 'Group name:') <input type="text" name="group"/>
284 <button type="submit" name="do" value="addgroup" data-icon="@add@">$(_ 'Create group')</button>
285 </footer>
286 </form>
287 </section>
290 <section>
291 <header>$(_ 'Manage group membership')</header>
292 <form class="wide">
293 <input type="hidden" name="groups"/>
294 <div>
295 $(_ 'Group name:') <select name="group">$(listdb group)</select>
296 $(_ 'User login:') <select name="member">$(listdb passwd)</select>
297 </div>
298 <footer>
299 <button name="do" value="addmember" data-icon="@add@">$(_ 'Add user')</button>
300 <button name="do" value="delmember" data-icon="@delete@">$(_ 'Remove user')</button>
301 </footer>
302 </form>
303 </section>
305 EOT
306 ;;
309 *\ user*)
310 #
311 # Users management
312 #
313 xhtml_header "$(_ 'Manage users')"
314 check_root_tazpanel
316 cat <<EOT
317 <section id="users">
318 <form class="wide">
319 <header>
320 <!--$(_ 'Selection:')-->
321 <button name="do" value="delusers" data-icon="@delete@">$(_ 'Delete user')</button>
322 <button name="do" value="lockusers" data-icon="@lock@" >$(_ 'Lock user' )</button>
323 <button name="do" value="unlockusers" data-icon="@unlock@">$(_ 'Unlock user')</button>
324 </header>
326 <table class="wide zebra center">
327 <thead>
328 <tr>
329 <td>$(_ 'Login')</td>
330 <td>$(_ 'User ID')</td>
331 <td>$(_ 'User Name')</td>
332 <td>$(_ 'Home')</td>
333 <td>$(_ 'Shell')</td>
334 </tr>
335 </thead>
336 </tbody>
337 EOT
338 for login in $(getdb passwd | cut -d: -f1); do
339 if [ -d "/home/$login" ]; then
340 blocked=''; usericon='@user@'
341 if getdb shadow | grep -qs "^$login:!"; then
342 blocked='class="color31"'
343 usericon='@lock@'
344 fi
345 IFS=':'
346 set -- $(getdb passwd | grep "^$login:")
347 unset IFS
348 cat <<EOT
349 <tr>
350 <td style="white-space: nowrap">
351 <input type="checkbox" name="user" value="$login" id="$login"/>
352 <label for="$login" data-icon="$usericon" $blocked>$login</label></td>
353 <td>$3:$4</td>
354 <td>$(echo $5 | sed s/,.*//)</td>
355 <td>$6</td>
356 <td>$7</td>
357 </tr>
358 EOT
359 fi
360 done
361 cat <<EOT
362 </tbody>
363 </table>
364 EOT
365 cat <<EOT
366 <footer>
367 $(_ 'Password:')
368 <input type="password" name="password" placeholder="$(_ 'New password')"/>
369 <button type="submit" name="do" value="chpasswd" data-icon="@ok@">$(_ 'Change password')</button>
370 </footer>
371 </form>
372 </section>
375 <section>
376 <header>$(_ 'Add a new user')</header>
378 <form>
379 <input type="hidden" name="users"/>
380 <table class="summary">
381 <tr><td>$(_ 'User login:')</td>
382 <td><input type="text" name="user" size="30" pattern="[a-z]*"/></td></tr>
383 <tr><td>$(_ 'User name:')</td>
384 <td><input type="text" name="name" size="30"/></td></tr>
385 <tr><td>$(_ 'User password:')</td>
386 <td><input type="password" name="passwd" size="30"/></td></tr>
387 </table>
389 <footer>
390 <button type="submit" name="do" value="adduser" data-icon="@add@">$(_ 'Create user')</button>
391 </footer>
392 </form>
393 </section>
394 EOT
396 # `who` output is empty in the SLiM sessions
397 if [ -n "$(who)" ]; then
398 cat <<EOT
399 <section>
400 <header>$(_ 'Current user sessions')</header>
401 <pre>$(who)</pre>
402 </section>
403 EOT
404 fi
406 # `last` output is empty (just header) in the Live mode
407 if [ "$(last | wc -l)" != "1" ]; then
408 cat <<EOT
409 <section>
410 <header>$(_ 'Last user sessions')</header>
411 <div class="scroll"><pre>$(last)</pre></div>
412 </section>
413 EOT
414 fi
415 ;;
418 *\ locale*)
419 #
420 # Choose locale
421 #
422 xhtml_header "$(_ 'Choose locale')"
423 check_root_tazpanel
425 loading_msg "$(_ 'Please wait...')"
427 cur_loc=$(locale | grep LANG | cut -d= -f2)
428 cat <<EOT
429 <section id="locale">
430 <header>$(_ 'Current locale settings:')</header>
431 <div>
432 <pre>$(locale)</pre>
433 </div>
434 </section>
436 <section>
437 <header>$(_ 'Locales that are currently installed on the machine:')</header>
438 <div>
439 <pre>$(locale -a)</pre>
440 </div>
441 </section>
442 EOT
444 is_installed "glibc-locale"
445 [ $? = 1 ] &&
446 msg tip $(_ \
447 "Can't see your language?<br/>You can \
448 <a href='pkgs.cgi?do=Install&glibc-locale'>install glibc-locale</a> \
449 to see a larger list of available locales.")
452 cat <<EOT
453 <section>
454 <header>$(_ 'Available locales:')</header>
455 <form class="wide">
456 <table class="wide zebra">
457 <thead>
458 <tr><td>$(_ 'Code')</td>
459 <td>$(_ 'Language')</td>
460 <td>$(_ 'Territory')</td>
461 <td>$(_ 'Description')</td>
462 </tr>
463 </thead>
464 <tbody>
465 EOT
466 for locale in $(find /usr/share/i18n/locales -type f | sort); do
467 locale_name=$(basename $locale)
468 locale_title=$(grep -m 1 -e '^ *title' $locale | cut -d'"' -f2)
469 if [ -n "$locale_title" ]; then
470 sel=''; [ "$locale_name" == "$cur_loc" ] && sel='checked="checked"'
471 cat <<EOT
472 <tr>
473 <td>
474 <input type="radio" name="gen_locale" value="$locale_name" $sel id="$locale_name"/>
475 <label for="$locale_name">$locale_name</label>
476 </td>
477 <td>$(gettext -d iso_639 "$(grep -m 1 -e '^ *language' $locale | cut -d '"' -f2)")</td>
478 <td>$(gettext -d iso_3166 "$(grep -m 1 -e '^ *territory' $locale | cut -d '"' -f2)")</td>
479 <td>$locale_title</td>
480 </tr>
481 EOT
482 fi
483 done
484 cat <<EOT
485 </tbody>
486 </table>
488 <footer>
489 <button type="submit" data-icon="@ok@">$(_ 'Activate')</button>
490 </footer>
491 </form>
492 </section>
493 EOT
494 ;;
497 *\ tweaks\ *)
498 #
499 # Small tweaks for user
500 #
501 user="$REMOTE_USER"; host="$(hostname)"
502 xhtml_header "$(_ 'Small quick tweaks for user %s' "$user")"
504 HOME="$(getdb passwd | awk -F: -vu=$user '$1==u{print $6}')"
505 font="${TERM_FONT:-monospace}"; palette=$(echo $TERM_PALETTE | tr A-Z a-z)
506 case $user in
507 root) color=31; ind="#";;
508 *) color=32; ind="$";;
509 esac
511 prompt_bw="$user@$host:/usr/bin$ind"
512 prompt_c="<span class=\"color$color\">$user@$host</span>:<span class=\"color33\">/usr/bin</span>$ind"
513 cursor="<span class=\"color47\">_</span>"
514 cat <<EOT
515 <script type="text/javascript">
516 function tweak(tweakName) {
517 // Send request to the server
518 var hiddenImg = document.createElement('IMG');
519 hiddenImg.src = "settings.cgi?tweak=" + tweakName;
520 }
521 </script>
523 <section>
524 <header>$(_ 'Small quick tweaks for user %s' "$user")</header>
526 <div>
527 <fieldset><legend>$(_ 'Terminal prompt')</legend>
528 <table class="wide">
529 <tr>
530 <td>
531 <label>
532 <input type="radio" name="termPrompt" onclick="tweak('monochrome')"/>
533 $(_ 'Monochrome')
534 </label>
535 <pre class="term $palette" style="font-family: '$font'; height: 5rem;">
536 $prompt_bw uname -r<br/>$(uname -r)<br/>$prompt_bw date<br/>$(date)<br/>$prompt_bw $cursor
537 </pre>
538 </td>
539 <td>
540 <label>
541 <input type="radio" name="termPrompt" onclick="tweak('colored')"/>
542 $(_ 'Colored')
543 </label>
544 <pre class="term $palette" style="font-family: '$font'; height: 5rem;">
545 $prompt_c uname -r<br/>$(uname -r)<br/>$prompt_c date<br/>$(date)<br/>$prompt_c $cursor
546 </pre>
547 </td>
548 </tr>
549 </table>
551 <p>$(_ 'Manual edit: %s' "<a data-icon=\"@conf@\" href="index.cgi?file=$HOME/.profile">~/.profile</a>")<br/>
552 $(_ 'To take effect: log out and log in to system or execute command in the terminal:')</p>
554 <pre>. ~/.profile</pre>
555 </fieldset>
557 <br/>
559 <fieldset>
560 <legend>$(_ 'Menu button appearance')</legend>
561 <table class="wide">
562 <tr>
563 <td style="vertical-align: top">
564 <fieldset>
565 <legend>$(_ 'Icon:')</legend>
566 <label>
567 <input type="radio" name="menuIcon" onclick="tweak('slitaz-menu-empty')"/>
568 $(_ 'Do not show')
569 </label><br/>
570 <label>
571 <input type="radio" name="menuIcon" onclick="tweak('slitaz-button-red')"/>
572 <img src="?menuIcon=slitaz-button-red"/>
573 </label><br/>
574 <label>
575 <input type="radio" name="menuIcon" onclick="tweak('slitaz-menu')"/>
576 <img src="?menuIcon=slitaz-menu"/>
577 </label><br/>
578 <label>
579 <input type="radio" name="menuIcon" onclick="tweak('slitaz-button')"/>
580 <img src="?menuIcon=slitaz-button"/>
581 </label>
582 </fieldset>
583 </td>
584 <td style="vertical-align: top">
585 <fieldset>
586 <legend>$(_ 'Text:')</legend>
587 <label>
588 <input type="radio" name="menuText" onclick="tweak('menu-notext')"/>
589 $(_ 'Do not show')
590 </label><br/>
591 <label>
592 <input type="radio" name="menuText" onclick="tweak('menu-text')"/>
593 $(_ 'Show text')
594 </label>
595 </fieldset>
596 </td>
597 </tr>
598 </table>
599 <p>$(_ 'Manual edit: %s' \
600 "<a data-icon=\"@conf@\" href=\"index.cgi?file=$HOME/.local/share/desktop-directories/SliTazMenu.directory\">~/.local/share/desktop-directories/SliTazMenu.directory</a>
601 $(
602 find $HOME/.config/lxpanel -type f -name panel | awk -vh="$HOME" \
603 '{ printf "<a data-icon=\"@conf@\" href=\"index.cgi?file=%s\">%s</a> ", $1, gensub(h, "~", "")}'
604 )")</p>
605 </fieldset>
606 </div>
607 </section>
608 EOT
609 ;;
612 *)
613 #
614 # Default system settings page
615 #
616 xhtml_header "$(_ 'Manage system time, users or language settings')"
617 check_root_tazpanel
619 cat <<EOT
620 <form><!--
621 --><button name="users" data-icon="@user@" >$(_ 'Manage users' )</button><!--
622 --><button name="groups" data-icon="@group@">$(_ 'Manage groups')</button>
623 </form>
625 <section>
626 <header>$(_ 'System time')</header>
627 <div>
628 <form class="wide" id="sysTimeForm">
629 <fieldset><legend>$(_ 'Time zone:')</legend>
630 <select name="tz">
631 $(cd /usr/share/zoneinfo; find * -type f ! -name '*.tab' | sort | \
632 awk -vtz="$(cat /etc/TZ)" \
633 '{printf("<option%s>%s</option>", ($1 == tz)?" selected":"", $1)}')
634 </select>
635 <button name="do" value="settz" data-icon="@ok@">$(_ 'Change')</button>
636 </fieldset>
638 <fieldset><legend>$(_ 'System time:')</legend>
639 $(sh -l -c date | sed 's|[0-9][0-9]:[0-9:]*|<span id="time">&</span>|')
640 <button name="do" value="rdate" data-icon="@sync@">$(_ 'Sync online')</button>
641 </fieldset>
643 <fieldset id="hwclock1"><legend>$(_ 'Hardware clock:')</legend>
644 <span id="hwclocks">$(hwclock -ur | sed 's|0.000000 seconds||')</span>
645 <button name="do" value="hwclock" id="hwclock" data-icon="@clock@">$(_ 'Set hardware clock')</button>
646 </fieldset>
648 <fieldset><legend>$(_ 'Set date')</legend>
649 EOT
650 if [ -z "$(which yad)" ]; then
651 cat <<EOT
652 <input type="number" name="day" value="$(date +%d)" min="1" max="31" size="4" required/>
653 <select name="month" value="$(date +%m)">
654 $(for i in $(seq 12); do
655 sel=''; [ "$i" == "$(date +%-m)" ] && sel=' selected'
656 printf "<option value=\"%s\"$sel>%s</option>" $(date -d $i.01-01:01 '+%m %B')
657 done)
658 </select>
659 <input type="number" name="year" value="$(date +%Y)" min="2015" max="2030" size="6" required/>
660 EOT
661 else
662 cat <<EOT
663 <button onclick="datePicker(); return false">
664 <span id="dateTime" data-icon="@calendar@">$(date +%x)<span style="display:none">$(date +%F)</span></span>
665 </button>
666 EOT
667 fi
668 cat <<EOT
669 - <input type="number" name="hour" value="$(date +%H)" min="0" max="23" size="4" required/><!--
670 -->:<input type="number" name="min" value="$(date +%M)" min="0" max="59" size="4" required/><!--
671 -->:<input type="number" name="sec" value="00" min="0" max="59" size="4" required/>
672 EOT
673 if [ -z "$(which yad)" ]; then
674 cat <<EOT
675 <button name="do" value="date" data-icon="@ok@">$(_ 'Set date')</button>
676 EOT
677 else
678 cat <<EOT
680 <button data-icon="@ok@" onclick="submitSysTimeForm()">$(_ 'Set date')</button>
681 EOT
682 fi
683 cat <<EOT
684 </fieldset>
685 </form>
686 </div>
688 <script type="text/javascript">
689 // Live time on page
690 Date.prototype.timeNow = function() {
691 return ((this.getHours() < 10)?"0":"") + this.getHours() + ":" + ((this.getMinutes() < 10)?"0":"") + this.getMinutes() + ":" + ((this.getSeconds() < 10)?"0":"") + this.getSeconds();
692 }
693 setInterval(function(){
694 document.getElementById('time').textContent = new Date().timeNow();
695 //ajax('settings.cgi?do=gethwclock', '1', 'hwclocks');
696 }, 1000);
699 // Run date picker and return value to the 'dateTime' element
700 function datePicker() {
701 ajax('settings.cgi?do=calendar', '1', 'dateTime');
702 }
704 // Actions to do before form submit and submit
705 function submitSysTimeForm() {
706 sysTimeForm = document.getElementById('sysTimeForm');
708 var dateFull = document.createElement('INPUT');
709 dateFull.name = 'dateFull';
710 dateFull.value = document.getElementById('dateTime').childNodes[1].textContent;
711 dateFull.type = 'hidden';
712 sysTimeForm.appendChild(dateFull);
714 var submitDo = document.createElement('INPUT');
715 submitDo.name = 'do'; submitDo.value = 'date';
716 submitDo.type = 'hidden';
717 sysTimeForm.appendChild(submitDo);
719 sysTimeForm.submit();
720 }
721 </script>
722 </section>
723 EOT
726 #
727 # Locale settings
728 #
729 cat <<EOT
730 <section>
731 <header id="locale">$(_ 'System language')</header>
732 <div>
733 <form>
734 EOT
735 # Check if a new locale was requested
736 if [ -n "$new_locale" ]; then
737 rm -rf /usr/lib/locale/$new_locale
738 localedef -i $new_locale -c -f UTF-8 \
739 /usr/lib/locale/$new_locale
740 # System configuration
741 echo "LANG=$new_locale" > /etc/locale.conf
742 echo "LC_ALL=$new_locale" >> /etc/locale.conf
743 msg warn "$(_ \
744 'You must logout and login again to your current session to use %s locale.' $new_locale)"
745 else
746 cat <<EOT
747 $(_ 'Current system locale:')
748 <strong>$(locale | grep LANG | cut -d= -f2)</strong>
749 <button name="locale" data-icon="@locale@">$(_ 'Change')</button>
750 EOT
751 fi
752 cat <<EOT
753 </div>
754 </form>
755 </section>
758 <section>
759 <header id="keymap">$(_ 'Keyboard layout')</header>
760 <div>
761 EOT
762 # Check if a new keymap was requested
763 if [ -n "$new_keymap" ]; then
764 echo "$new_keymap" > /etc/keymap.conf
765 if [ -x /bin/loadkeys ]; then
766 loadkeys $new_keymap
767 else
768 loadkmap < /usr/share/kmap/$new_keymap.kmap
769 fi
770 fi
772 keymap=$(cat /etc/keymap.conf)
773 _ 'Current console keymap: %s' $keymap
774 if [ -n "$keymap" ]; then
775 case "$keymap" in
776 fr_CH*)
777 keymap="ch" ;;
778 ru)
779 keymap="us,ru" ;;
780 slovene)
781 keymap=si ;;
782 *)
783 keymap=${keymap%-lat*}
784 keymap=${keymap%-abnt2} ;;
785 esac
786 keyboard_config=/etc/X11/xorg.conf.d/40-Keyboard.conf
787 cat <<EOT
788 <form id="settings"></form>
789 <form id="index" action="index.cgi"></form>
790 <br/>
791 $(_ 'Suggested keymap for Xorg:') $keymap
792 <button form="settings" name="apply_xorg_kbd" value="$keymap" data-icon="@ok@">$(_ 'Activate')</button>
793 <button form="index" name="file" value="$keyboard_config" data-icon="@edit@">$(_ 'Edit')</button>
794 <input form="index" type="hidden" name="action" value="edit" />
795 <br/>
796 EOT
797 fi
798 cat <<EOT
799 <form>
800 $(_ 'Available keymaps:')
801 <select name="gen_keymap">
802 $(list_keymaps)
803 </select>
804 <button type="submit" data-icon="@ok@">$(_ 'Activate')</button>
805 </form>
806 </div>
807 </section>
810 <section>
811 <header>$(_ 'Panel configuration')</header>
812 <div>
813 <form class="wide">
814 <fieldset><legend>$(_ 'Style:')</legend>
815 <select name="style">$(list_styles)</select>
816 <button data-icon="@ok@">$(_ 'Activate')</button>
817 </fieldset>
818 </form>
820 <fieldset><legend>$(_ 'Configuration files:')</legend>
821 <button form="index" name="file" value="$CONFIG" data-icon="@edit@">$(_ 'Panel')</button>
822 <button form="index" name="file" value="$HTTPD_CONF" data-icon="@edit@">$(_ 'Server')</button>
823 </fieldset>
825 <p>$(_ 'TazPanel provides a debugging mode and page:')
826 <a href="index.cgi?debug">debug</a>
827 </p>
828 </div>
829 </section>
830 EOT
831 ;;
832 esac
834 xhtml_footer
835 exit 0