| Path : /usr/share/YaST2/modules/ |
| Current File : //usr/share/YaST2/modules/NtpClient.ybc |
YaST bytecode 1.4.0 NtpClient I
NtpClient.ycp Directory FileUtils Language Message Mode NetworkInterfaces
PackageSystem Popup Progress
Report Service SLPAPI
Stage String Summary SuSEFirewall FileChanges
AbortFunction modified
write_only ntp_records restrict_map run_service synchronize_time
sync_interval cron_file service_name
run_chroot
ntp_policy selected_index selected_record
ad_controller ! change_firewall " required_packages # firewall_services $ ntp_servers %
country_names &
simple_dialog ' config_has_been_read ( ntp_selected ) PolicyIsAuto * PolicyIsNomodify + PolicyIsNonstatic , Abort - countries_already_read . known_countries / GetAllKnownCountries 0 GetCurrentLanguageCode 1 MakePoolRecord 2
GetNtpServers 3 GetCountryNames 4 GetNtpServersByCountry 5 ProcessNtpConf 6 Read 7 GetUsedNtpServers 8 random_pool_servers 9 IsRandomServersServiceEnabled : # DeActivateRandomPoolServersFunction ; ! ActivateRandomPoolServersFunction < Write = Import > Export ? Summary @
TestNtpServer
A DetectNtpServers
B getSyncRecords C selectSyncRecord D findSyncRecord E storeSyncRecord F deleteSyncRecord G enableOptionInSyncRecord H AutoPackages 1 ) . 4 : < A F K P U Z b h m r ! ! w " " | # # & & ' ' ( ( ) ) * * + + / / 0 0 2 2 3 3 4 4 country terse_output 5 5 G 6 6 7 7 < 8 8 J 9 9 R : : k ; ; | < < = = X settings > > v ? ? @ @ server verbosity
A A method
B B C C 8 index D D N type address E E ] F F k index G G { option H H K 3 UI
OpenDialog CloseDialog 3 SCR Read Write Execute
RegisterAgent 0
ntp-client3 Directory vardir datadir 3 FileUtils Exists 3 Language GetGivenLanguageCountry 3 Message CannotWriteSettingsTo CannotAdjustService CannotReadCurrentSettings 3 Mode commandline normal installation testsuite 3 NetworkInterfaces Read 3
PackageSystem Installed CheckAndInstallPackages " CheckAndInstallPackagesInteractive 3 Popup Notify 3 Progress set New NextStage Title 3 Report Error 3 Service Adjust
RunInitScript Enabled 3 SLPAPI FindSrvs 3 Stage initial 3 String CutBlanks 3 Summary AddLine 3! SuSEFirewall Read Write 3" FileChanges StoreFileCheckSum
CheckFiles $) $. $4 $: $<
$A $F $K $P " /etc/cron.d/novell.ntp-synchronize$U ntp$Z $b auto$h $m
$r $w ! $| " ntp$ # service:ntp$ $ $ % $ & $ ' $ ( % ) - || auto STATIC *% * - % + - && STATIC% , ( - ! - $ - $ .
% / ( ! - 4 & . eval SCR::Read .target.ycp + /country.ycp& - ( . & .
( haskey . GB4 ' . UK . GB & . remove . GB - . % 0 lang $ SCR::Read .sysconfig.language.RC_LANG- % 1 CC location - address + tolower
.pool.ntp.org country location % 2 ( $ 4 servers & $
$ SCR::Read .target.ycp + /ntp_servers.ycp( 4 ,
y2error
& Failed to read the list of NTP servers4 ,
y2milestone
%1 known NTP servers read size & $ listmap s server $ address - , foreach
short_country country_name / p $ 1 ' $ address - $ % 3 ( % 4 & % eval SCR::Read
.target.yast2 country.ycp ( % 4
,
y2error
Failed to read country names& %
- % % 4
country_names servers items $
$ 2 ( 4 p & filter s o country $# 1 '$ address 4' &( 3 $+ maplist s o label l_country $, location $- country (. &/ &1 (2 && &3
sformat
%1 (%2, %3) (4 && &5 &7
sformat
%1 (%2%3) (9 -: item id -< item id -? %G 5 conf value index
fudge_records fudge_map restrict_records (I ' 4J ,K
y2milestone
. Configuration has been read already, skipping.-L $O (P
/etc/ntp.conf&Q SCR::Read .etc.ntp_conf.all (S 4T ,U
y2error
I Failed to read /etc/ntp.conf, either it doesn't exist or contains no data-V &Y ' $Z value $[ &\ maplist m type address options entry &] + $^ name $_ value $` (a contains server peer broadcast broadcastclient manycast manycastclient fudge restrict 4e l $f splitstring &g filter s &h 'i &j mergestring $l type address options comment comment -r $t filter m type fudge$w listmap m key $y address -z $} filter m type restrict& listmap m key value opts $ address $
$ splitstring options ( mask4 ' mask ' ' 4 ' mask ' options mergestring ' comment comment - & filter m type fudge& filter m type restrict& maplist m ( haskey address 4 '
fudge_options address options '
fudge_comment address comment - & maplist p ( && type server regexpmatch address ^127.127.[0-9]+.[0-9]+$4 ' type __clock - - % 6
caption steps sl
have_progress
progress_orig policy failed ad_ntp_file crontab tmp
pos tmp2 run_chroot_s - ( ' - $ % Initializing NTP Client Configuration
ntp-client$ $ $ ( 4 , Read network configuration
ntp-client Read NTP settings
ntp-client Reading network configuration...
ntp-client Reading NTP settings...
ntp-client Finished
ntp-client ( , - ( , $ , , $ SCR::Read . .sysconfig.network.config.NETCONFIG_NTP_POLICY( & , 2 , 3 ( , - ( , $ ( && && ! ! ! ntp4 - &
$ + /ad_ntp_data.ycp( 4 ad_ntp_data ,
y2milestone
Reading %1 $ SCR::Read .target.ycp & ads ( 4 ,
y2milestone
> Got %1 for ntp sync, deleting %2, since it is no longer needed , SCR::Execute .target.remove ( && ! !
/etc/ntp.conf& , 5 $ SCR::Read .cron ,
y2milestone
CRONTAB %1 $ events active 0 & 1&
events minute */5 ,
y2milestone
MINUTE %1 $
regexppos [0-9]+$ substring
& tointeger ,
y2milestone
SYNC_INTERVAL %1 $ SCR::Read .sysconfig.ntp.NTPD_RUN_CHROOTED& yes( 4 & ,
y2error
/ Failed reading .sysconfig.ntp.NTPD_RUN_CHROOTED ( 4 , (# ! 4$
progress_orig $% ,& ,' (* , -* (+ 4, ,- ,. Finished
ntp-client ,0 sleep (2 , -2 &3 -4 %< 7 used_servers $= ,> foreach record (? type server&? add address -B $J 8 0.pool.ntp.org 1.pool.ntp.org 2.pool.ntp.org%R 9 needed_servers ret $T
,U foreach server_name 8 'V ,Y foreach used_server 7 ([ 4[ '\ $` ,a foreach nserver_name ns_value (b &b -d %k : ,l foreach random_pool_server 8 &m filter
one_record || type server address %| ; store_current_options $~
, foreach
one_record ( && type server address 4 one_address $ address '
' options options , : & filter
one_record type server, foreach
one_server 8 one_options $ ( haskey 4 & options ,
y2milestone
; Leaving current configuration for server '%1', options '%2' & add address commentI
# Random pool server, see http://www.pool.ntp.org/ for more information
options type server% < caption steps sl
have_progress $ Saving NTP Client Configuration
ntp-client$ $ , sleep $ ( 4 , Write NTP settings
ntp-client Restart NTP daemon
ntp-client Writing the settings...
ntp-client Restarting NTP daemon...
ntp-client Finished
ntp-client ( , - ( , ( 4 save2 failed conf , foreach key m ret $ address comment comment type restrict options + + mask + mask mask options & add ,
y2milestone
Writing settings %1 $ flatten maplist r s1 s2 $ comment comment kind value name type type value + + address options $ ( type __clock4 & comment
fudge_comment kind value name fudge type value + + address
fudge_options ' name server - & filter m $ $ SCR::Read .etc.ntp_conf.all( 4 & 4 ' value ( !
SCR::Write .etc.ntp_conf.all & ( !
SCR::Write
.etc.ntp_conf& ,
/etc/ntp.conf( ,
/etc/ntp.conf ,
SCR::Write . .sysconfig.network.config.NETCONFIG_NTP_POLICY ,
SCR::Write .sysconfig.network.config(
SCR::Execute .target.bash /sbin/netconfig update 4
, / Cannot update the dynamic configuration policy.
ntp-client ( ! &&
SCR::Write .sysconfig.ntp.NTPD_RUN_CHROOTED yes no
SCR::Write .sysconfig.ntp4 , ! Cannot write sysconfig variables.
ntp-client , sleep ( , - ( , (# 4$
progress_orig $% ,& ,' (* !
enable disable4, ,. NTP (1 && && !
restart43 ,5 Cannot restart the NTP daemon.
ntp-client (7 ! 48 ,9
stop (; 4< ,=
SCR::Write .target.string + + -*/ 4 * * * * root /etc/init.d/ntp ntptimeset &>/dev/null4@ ,A SCR::Execute .target.bash + + + + test -e && rm ;,D sleep (F , -F (G 4H ,I ,J Finished
ntp-client ,L sleep (N , -N -O %X = config_dhcp
&Y synchronize_time &Z
sync_interval &[
start_at_boot &\ start_in_chroot $^ configure_dhcp &_
ntp_policy auto &` peers &a maplist p (b && haskey key haskey value4c 'd type key 'e address value (f haskey param'g options param -h 4i -j &m -n %v > -w synchronize_time
sync_interval
start_at_boot start_in_chroot
ntp_policy peers % ? summary types $ ( & / The NTP daemon starts when starting the system.
ntp-client& , The NTP daemon does not start automatically.
ntp-client$ server Servers: %1
ntp-client __clock Radio Clocks: %1
ntp-client peer Peers: %1
ntp-client broadcast! Broadcast time information to: %1
ntp-client broadcastclient, Accept broadcasted time information from: %1
ntp-client( ) 4 & & Combine static and DHCP configuration.
ntp-client( * 4 & Static configuration only.
ntp-client4 & Custom configuration policy.
ntp-client, foreach t server __clock peer broadcast broadcastclient l names $ filter p type $ maplist i address & filter n ( size 4 &
sformat
mergestring , - % @ ret_IPv4 ret_IPv6 ok ( no_ui, Left Label Testing the NTP server...
ntp-client ,
y2milestone
! Testing reachability of server %1 $ SCR::Execute .target.bash
sformat
/usr/sbin/sntp -4 -c 1 -d 15 %1 $ ( & SCR::Execute .target.bash
sformat
/usr/sbin/sntp -6 -c 1 -d 15 %1 ( no_ui4 , $ || ( result_popup4 ( 4 ,
* Server is reachable and responds properly.
ntp-client4 , 3 Server is unreachable or does not respond properly.
ntp-client - % A ( slp4 required_package servers server_names $ yast2-slp( && ! ! 4 ( ! 4 ,
sformat
R Cannot search for NTP server in local network
without having package %1 installed.
ntp-client ,
y2warning
+ Not searching for local NTP servers via SLP- 4
, SCR::RegisterAgent .slp ag_slp SlpAgent $ service:ntp $ maplist m pcHost & filter s - ,
y2error
Unknown detection method: %1 - % B index ret $ $ maplist m type &! + $" type (# ! contains server peer broadcast broadcastclient __clock 4% -& -( type index address address device device &/ filter m -0 %8 C ret $9 (: || size 4; ,<
y2error
0 Record with index %1 doesn't exist, creating new &= &> (@ &A
&C
&D -E %N D index ret $O $P ,Q foreach m &R + (S && type address &T -V %] E (^ &_ add 'a &b -c %k F (l || size 4m ,n
y2error
" Record with index %1 doesn't exist -o 'q &r filter r &s -t %{ G old old_l $} options $~ splitstring ( ! contains 4 & add ' options mergestring % H - install " remove