tazpanel: 0542ab170bf5 locale.cgi

tazpanel view locale.cgi @ rev 631

settings.cgi: try pool.ntp.org first

author	Pascal Bellard <pascal.bellard@slitaz.org>
date	Fri Dec 13 13:09:41 2019 +0100 (2019-12-13)
parents	551a881b8292
children

line source

1 #!/bin/sh

2 #

3 # Locale settings CGI interface.

4 #

6 #

9 # Common functions from libtazpanel

11 . ./lib/libtazpanel

12 get_config

13 header

15 TITLE=$(_ 'Locale')

19 #############################

20 # Get info from locale file #

21 #############################

23 get_locale_info()

24 {

25 # Commands like `LC_ALL=fr_FR locale -k LC_MEASUREMENT` will do the job

26 # only when your locale is generated and exists in the /usr/lib/locale.

27 # Here we manually parse locale definition files from /usr/share/i18n/locales/.

28 # Strange, bloated and not script-friendly format :(

30 [ ! -e /usr/share/i18n/locales/$1 ] && return

32 # Prepare file

33 if [ ! -e /tmp/tazpanel-$1 ]; then

34 sed 's|^[ \t]*||;/^%/d;/^comment_char/d;/^escape_char/d' /usr/share/i18n/locales/$1 | tr '\n' '&' | sed 's|/&||g' | tr '&' '\n' | sed 's|<U$[0-9a-fA-F]*$>|\&#x\1;|g' | sed 's|&#x00|\&#x|g' > /tmp/tazpanel-$1

35 fi

37 local ANS=$(grep -e "^$2[ ]" /tmp/tazpanel-$1 | sed 's|^[^ \t][^ \t]* *||')

38 if [ -z "$ANS" ]; then

39 # Not found, then section is copied from other locale definition file...

40 case $2 in

41 measurement)

42 section='LC_MEASUREMENT';;

43 width|height)

44 section='LC_PAPER';;

45 currency_symbol|int_curr_symbol)

46 section='LC_MONETARY';;

48 section='LC_TIME';;

49 esac

50 # Recursive call

51 get_locale_info $(sed -n '/^'$section'/,/^END '$section'/p' /tmp/tazpanel-$1 | grep 'copy' | cut -d'"' -f2) $2

52 else

53 case $2 in

54 day|abday|mon|abmon|am_pm) # semicolon-separated list in double quotes

55 echo "$ANS";;

56 *) # single value in double qoutes

57 echo "$ANS" | cut -d'"' -f2;;

58 esac

59 fi

60 }

63 # Get info from locale file about measurement system

65 get_locale_info_measurement()

66 {

67 # faster to use pre-processed values

68 case $1 in

70 POSIX) ;;

71 *) _ 'metric' ;;

72 esac

73 }

76 # Get info from locale file about paper size

78 get_locale_info_paper()

79 {

80 # faster to use pre-processed values

81 case $1 in

84 POSIX) ;;

85 *) echo '210×297 (A4)';;

86 esac

87 }

90 # Get info from locale file about date and time format

92 get_locale_info_date_time()

93 {

94 case $2 in

95 c) get_locale_info $1 d_t_fmt ;;

96 x) get_locale_info $1 d_fmt ;;

97 X) get_locale_info $1 t_fmt ;;

98 r) get_locale_info $1 t_fmt_ampm ;;

99 *) get_locale_info $1 date_fmt ;;

100 esac | sed 's| | |g; s|%|%|g; s|,|,|g; s|-|-|g; s|.|.|g; s|/|/|g; s|:|:|g; s|A|A|g; s|B|B|g; s|C|C|g; s|F|F|g; s|H|H|g; s|I|I|g; s|M|M|g; s|O|O|g; s|R|R|g; s|S|S|g; s|T|T|g; s|X|X|g; s|Y|Y|g; s|Z|Z|g; s|a|a|g; s|b|b|g; s|e|e|g; s|d|d|g; s|k|k|g; s|m|m|g; s|n|n|g; s|o|o|g; s|p|p|g; s|r|r|g; s|t|t|g; s|x|x|g; s|y|y|g; s|z|z|g;'

101

102 }

103

104

105 parse_date()

106 {

107 local weekday month day abday mon abmon rtime d_fmt t_fmt am_pm

108 weekday=$(( $(date +%w) + 1 )) # 1=Sunday ...

109 month=$(date +%-m) # 1=January ...

114 # next %-codes expanded into other %-codes

115 rtime=$(get_locale_info_date_time $1 r | sed 's|&|\\\&|g') # %r: 12-hour time

116 d_fmt=$(get_locale_info_date_time $1 x | sed 's|&|\\\&|g') # %x: date