Tcl parsing xml test description file

#This script is using xml to define testcases and testsuite. With this, it is very easier to create new testcases, without need to update the script framework;
#Testunit would be the basic unit in the xml, which corresponding to a proc in tcl script, as the function block, such as make connection, iperf traffic test, set/get MIB etc;
#A testcases.xml is a predefined testcase set, which only need to be updated when a new test scenario is needed;
#Each testcase contains one or more testunit, plus setting and expect result as attr;
#Testsuite xml is user defined collection of testcases and testunits;

#Each xml must have one and only one root tag, and struct like this:
# <root_tag attr1=xxx attr2=yyy ...>
#     text
#     <sub_tag1 sub_tag1_attr1 ...>
#     <sub_tag2 sub_tag2_attr1 ...>

#In topologic, each tag is a node, attr is a list, and sub tags are sub nodes;

#http://wiki.tcl.tk/1740 convert content to xml format, default tag is 'document'
proc asXML {content {tag document}} {
    set XML_MAP {
        < &lt;
        > &gt;
        & &amp;
        \" &quot;
        ' &apos;
    }
    return <$tag>[string map $XML_MAP $content]</$tag>
}

#http://wiki.tcl.tk/3919 A little XML parser
#convert xml to: tag {list: attr} {list: #text {_text_}, subTag1, subTag2 ...}
proc xml2list xml {
    # trim only deal with the begin and end of the whole xml
    #puts "dbg trim: \[[string trim $xml " \n\t<>"]\]"
    regsub -all {>\s*<} [string trim $xml " \n\t<>"] "\} \{" xml
    # above regsub replace '>' and '<' with brace if no text between them. It also remove \r \n between '>' and '<'
    #puts "dbg after regsub: \[$xml\]"
    set xml [string map {> "\} \{#text \{" < "\}\} \{"}  $xml]
    #puts "dbg after map: \[$xml\]"
   
    set res ""   ;# string to collect the result  
    set stack {} ;# track open tags
    set rest {}
    foreach item "{$xml}" {
        #puts "dbg item => $item"
        switch -regexp -- $item {
            ^# {append res "{$item} " ; #text item, or "{#text [lrange $item 1 end]} ", origin post not work as it said: "{[lrange $item 0 end]} "}
            ^/ {
                regexp {/(.+)} $item -> tagname ;# end tag
                set expected [lindex $stack end]
                if {$tagname!=$expected} {error "$item != $expected"}
                set stack [lrange $stack 0 end-1]
                append res "\}\} "
            }
            /$ { # singleton - start and end in one <> group
                regexp {([^ ]+)( (.+))?/$} $item -> tagname - rest
               #set rest [lrange [string map {= " "} $rest] 0 end] <= not work if attribute like: attr1="var=x"
                regsub -all {=\s*"} $rest " \"" rest
                regsub -all {=\s*'} $rest " '" rest
                set rest [lrange $rest 0 end]
               #with above two lines, attribute has to be single/double quoted
                append res "{$tagname [list $rest] {}} "
            }
            default {
                set tagname [lindex $item 0] ;# start tag
               #set rest [lrange [string map {= " "} $item] 1 end] <= same as above, not work if attribute contains equal
                regsub -all {=\s*"} $item " \"" item
                regsub -all {=\s*'} $item " '" item
                set rest [lrange $item 1 end]
               #with above two lines, attribute value has to be single/double quoted, but the value should not contain such as ="
                lappend stack $tagname
                append res "\{$tagname [list $rest] \{"
            }
        }
        if {[llength $rest]%2} {error "att's not paired: $rest"}
    }
    if [llength $stack] {error "unresolved: $stack"}
    string map {"\} \}" "\}\}"} [lindex $res 0]
}

proc xputs {msg {log 0}} {
    variable xputs_level
    set indent ""
    if {[info exists xputs_level] && [regexp {^\d+$} $xputs_level]} {set indent [string repeat {  } $xputs_level]}
    if {$log ne "0"} {send_user "$indent$msg\n"
    } else {puts "$indent$msg"}
}

proc print_tree {lxml level} {
    #puts "level = $level"
    puts "[string repeat {  } $level]tag = [lindex $lxml 0]"
    puts "[string repeat {  } $level]att = [lindex $lxml 1]"
    incr level
    foreach sitem [lindex $lxml 2] {
        print_tree $sitem $level
    }
}

#testcases.xml is xml file contains pre-defined testcases. This xml file would be processed to generate an array of testcases definition, no execution here
#testcase name is the index of the array, such as 'TC-SCAN-3-1', and each element of the array defines how to run the testcase, include setting, expect result, and testunit needs to be executed
#the analyze result will be set in variable testcases which is an array;
#Each testcase must have at least one TU, and setting/exp_res passed to the TU/TUs as arguments
#The test xml such as a Test Suite may have one or more testcases. All testcases within one xml node shares all settings, such as repeat counter, timeout setting
#Within one xml node, may have multiple setting, the later setting will be appended, override old value, but no reset. Setting won't be passed to sibling nodes
#Setting would be passed to direct child as reference, where a setting/expect node will update them, and a TC/TU node will take it as input args
#TODO: Currently setting won't be passed cross a node. Setting inherit more than parent? Setting per testcase? Good side: avoid pollution. Bad: cannot share       

proc process_testcases_xml {tc_xml_file} {
    variable testcases
    variable tc_subs    ;#for subs defined in testcases_xml
    set fp [open $tc_xml_file]
    set testcases_xml [read $fp]
    close $fp
   
    #puts "Original xml:\n$testcases_xml"
    set l_tcs_xml [xml2list [regsub -all {(^|\n)\s*#[^\n]*\n} $testcases_xml {\1}]] ;#remove comment and covert xml to list
    set tc_sub_list {}
    #puts "tcs xml list: $l_tcs_xml"
    #print_tree $l_tcs_xml 0
    set ltcs [lindex $l_tcs_xml 2]
    foreach tc $ltcs {
        #puts "=>$tc"
        #=>testcase {name TC-SCAN-3-1} {{setting {Operation Link, Chan 1, Mask 1, Repeat 4} {}} {expect {result success} {}} {run {name TU_scan_test} {}}}
        if {[lindex $tc 0] eq "sub"} {
            set tc_subs([lindex [lindex $tc 1] 1]) $tc
        } else {set testcases([lindex [lindex $tc 1] 1]) [lindex $tc 2]}
    }
    #puts "\n _dbg_: dump tc_subs:" ; foreach {key value} [array get tc_subs] {puts "  $key => $value"}
}

proc get_sub_xlst {lxml sub_name} {
    set found false
    if {[lindex $lxml 0] eq "sub"} {
        array set attrs [lindex $lxml 1]
        if {[info exists attrs(name)] && $attrs(name) eq $sub_name} {return $lxml}
    }
    foreach sitem [lindex $lxml 2] {
        set found [get_sub_xlst $sitem $sub_name]
        if {$found ne "false"} {return $found}
    }
    return $found
}

#xlst is a three elments list of a xml node: node_tag, list of attrs, list of sub_node; param level is for debug purpose
#p_setting and p_exp_res is parent setting and exp_res, for current node and current node's sibling nodes
#No inherit of setting and exp_res as that would be messy, error prone and complex. So here allow to pass optional setting as attr of TC.
#Note: there is two ways to run a TC testcase, either use 'run TC-xxx' to start a predefined TC, or have a tag's name started with "TC-"
#Add global AbortTC to abort all testcases whenever needed. Not abort TU as user may still want to do TU_TEST to dump data
set AbortTC no
proc process_xmlnode {xlst level {p_setting ""} {p_exp_res ""}} {
    variable testcases
    variable tc_subs
    variable xputs_level
    variable full_tree  ;#for processing 'use'
       
    set node  [lindex $xlst 0]
    set attrs [lindex $xlst 1]
    #index 1 in xlst is key-value paired list and 1st pair should be a testunit or testcase name like TU-SETUP-HOSTS or TC-TRAFFIC-10
    #other attr could be optional setting of the testcase, or override the TC setting, may also set like expected result
    #convert attrs as array as it is key-value pairs
    set subnodes [lindex $xlst 2]
    set xputs_level $level
    upvar $p_setting cur_setting $p_exp_res cur_exp_res
    #setting and exp_res for sub nodes
    set s_setting ""
    set s_exp_res ""
   
    #inherit parent setting/exp_res: 1st, it doesn't work; 2nd, it is a bad approach as explained above.
    #set s_setting $p_setting
    #set s_exp_res $p_exp_res
   
    #xputs "Level $level node is <$node> with attr list: ($attrs)"
    #TODO: decide what to do with the $attrs
   
    if {$node eq "setting"} {
        #put setting in upvar variable as it is for parent node, and only need to perform setting in one shot(TU-SETUP-HOSTS?) to make it more effient
        set cur_setting [dict merge $cur_setting $attrs]
        if {$::LOG_LEVEL>2} {xputs " A setting: $attrs"}
    } elseif {$node eq "expect"} {
        #put expect to an upvar variable as it is for parent node and it will be checked in testunit of the parent node
        set cur_exp_res [dict merge $cur_exp_res $attrs]
        if {$::LOG_LEVEL>2} {xputs " An expect: $attrs"}
    } elseif {$node eq "exec"} {
        #print a message, eval tcl; be careful as support is limited, due to nature of xml and tcl, as quote, slash and many special character will cause issue
        #Note $attrs is treated as dict, so duplicate key in $attrs will get lost
        #Also, for eval, set variable without uplevel will get lost as this is a recursive call of process_xmlnode
        #For exec an external/system command, too many hassle: not sure the cwd, nowhere capture the output; Use eval if needed like this: <exec eval="puts [exec date]" />
        if {$::LOG_LEVEL>2} {xputs " An exec request: $attrs"}
        dict for {op args} $attrs {
            switch -exact -- $op {
               "echo" {puts $args}
               "eval" {eval $args}
               default {puts stderr "Unsupported operation: $op"}
            }
        }
    } elseif {$node eq "run"} {
        array set run_setting $attrs
        if {[info exists run_setting(name)]} {
            if {[regexp {^TC} $run_setting(name)]} {
                variable tc_results
                variable cur_tc_result
                variable tc_idx
                variable TC_name
                variable f_csv
                               
                set TC_name $run_setting(name)
                set cur_tc_result ""
                #setting for testcase are ignored for now. Should be repeat number, timeout etc.
                #upvar $setting cur_setting
                puts ""
                xputs " <Run testcase $TC_name" 1
                if {[info exists f_csv]} {puts $f_csv "Run testcase $TC_name"}
                if {$::AbortTC} {
                    set cur_tc_result "Aborted"
                    xputs "  $cur_tc_result" 1
                } else {
                    #pick the optional setting from TC attr
                    set s_setting [dict remove $attrs name]
                    foreach subnode $testcases($TC_name) {process_xmlnode $subnode [expr $level+1] s_setting s_exp_res}
                }
                dict set tc_results $TC_name $cur_tc_result
                incr tc_idx
            } elseif {[regexp {^TU} $run_setting(name)]} {
                if {$::LOG_LEVEL>1} {xputs " <Run testunit $run_setting(name)" 1}
                if {[catch {_$run_setting(name) $cur_setting $cur_exp_res} ret_code]} {
                    send_user "\n\n**** Exception while running $run_setting(name) ****\n$ret_code\n**** Full error info:\n$::errorInfo\n****\n"
                    #log_stacktrace ;# too many as this is inside recursive call
                }
            }
        } else {xputs "\t## no-name run with attrs: [array get attrs]"}
    } elseif {$node eq "use"} { ;#no attrs, neither sub-nodes expected with use
        array set use_setting $attrs
        if {[info exists use_setting(name)]} {
            set sub_name $use_setting(name)
            set use_xlst [get_sub_xlst $full_tree $sub_name]  ;#search instead of create sub list on fly, so the sub can be declared after the place invoke it
            if {$use_xlst eq "false" && [info exists tc_subs($sub_name)]} {set use_xlst $tc_subs($sub_name)}
            if {$use_xlst eq "false"} {
                xputs "\t## Not found $sub_name for use. Ignored!"
                puts "\n _dbg_: existing tc_subs:" ; foreach {key value} [array get tc_subs] {puts "  $key => $value"}
            } else {
                #puts "*process use: $use_xlst, s=$cur_setting, e=$cur_exp_res"
                #process_xmlnode $use_xlst $level cur_setting cur_exp_res
                #used node is a container, will ignore the attrs, and directly process subnodes of it
                foreach subnode [lindex $use_xlst 2] {process_xmlnode $subnode $level cur_setting cur_exp_res}
            }
        } else {xputs "\t## Missing tag for use, useless attrs: [array get attrs]"}
    } elseif {$node eq "sub"} { ;#sub block which will be invoked by others. so no processing here. Will search the list when needed
    } else {
        variable TC_name
        variable tc_results
        variable cur_tc_result
        variable tc_idx
        set is_TC no
        if {[regexp -- {(TC-\S+)} $node -> TC_name]} {
            send_user "\n\n<$TC_name>\n"
            set is_TC yes
            set cur_tc_result ""
        }
        #only node other than 'setting', 'expect' and 'run' may have sub-nodes
        foreach subnode $subnodes {process_xmlnode $subnode [expr $level+1] s_setting s_exp_res}
        if {$is_TC} {
            dict set tc_results $TC_name $cur_tc_result
            incr tc_idx
        }   
    }
}

proc process_test_xml {xml_file {tc_xml_file ""}} {
    variable testcases
    variable full_tree
    variable f_csv

    if {[info exists f_csv]} {set create_local_mon_log no
    } else {
        set create_local_mon_log yes
        set f_csv [open monitor.log w]
    }
    #first, process predefined testcases in $tc_xml_file
    if {$tc_xml_file eq ""} {
        if {[regexp {([^@]+)@([^@]+)} $xml_file -> xml_file tc_xml_file]==0} {set tc_xml_file $::XML_ROOT_DIR/testcases.xml}
    }
    process_testcases_xml $tc_xml_file
    #foreach {tc_name tc_setting} [array get testcases] {puts "$tc_name => $tc_setting"}
   
    #start processing xml_file
    set fp [open $xml_file]
    set test_xml [read $fp]
    close $fp
   
    #below regsub is for filtering out comment line in XML which is start with '#' as the 1st non-space character of a line, which is not conforming to the XML standard. May be removed in future
    regsub -all {(^|\n)\s*#[^\n]*\n} $test_xml {\1} test_xml
   
    set full_tree [xml2list $test_xml]
    #print_tree $full_tree 0
    variable tc_results
    variable tc_idx 0
    process_xmlnode $full_tree 0
   
    if {$create_local_mon_log} {close $f_csv}
}

Save and Load config file in Perl

sub loadConfigFile {
    if ( ( defined $_[0] ) && ( open my $fh, "<$_[0]" ) ) {
        local $/ = undef; #set Input record separator for reading file in one shot, set $/ to empty str '' doesn't work
        my $str = <$fh>;
        close $fh;
        $/ = "\n";
        my ($meta_build_ref,$cfgref,$pathsref);
        eval $str;

        #%cfg=%$cfgref; CanNOT do this way, it will create a new %cfg
        if ( $log_level >= $LLV_DBG ) { print "meta_build=$meta_build\n";}
        #foreach my $key ( keys %cfg ) { $cfg{$key} = $$cfgref{$key}; } =>this will change the array ref
        foreach my $key ( keys %cfg ) {
            for my $i (0..$#{$cfg{$key}})
            {
                $cfg{$key}[$i] = $$cfgref{$key}[$i];
            }
        }
        if ( $log_level >= $LLV_DBG ) { print Data::Dumper->Dump( [ \%cfg ] ); }
        foreach my $key ( keys %paths ) {
            if(defined $$pathsref{$key}) {$paths{$key}=$$pathsref{$key};}
            else {$paths{$key}=undef;}
        }
        if ( $log_level >= $LLV_DBG ) { print Data::Dumper->Dump( [ \%paths ] ); }
    }
}

sub loadConfig {
    my $filename = $mw->getOpenFile(
        -defaultextension => '.cfg',
        -filetypes  => [ [ 'Config Files', ['.cfg'] ], [ 'All Files', '*', ], ],
        -initialdir => $home_dir, #'./'
    );
    loadConfigFile($filename);
    $info="Loaded $filename";
}

sub saveConfig {
    my $filename = $mw->getSaveFile(
        -defaultextension => '.cfg',
        -filetypes  => [ [ 'Config Files', ['.cfg'] ], [ 'All Files', '*', ], ],
        -initialdir => $home_dir, #'./'
    );
    if ( ( defined $filename ) && ( open my $fh, ">$filename" ) ) {
        print $fh "\$asic='$asic';\n";
        print $fh "\$meta_build='$meta_build';\n";
        my $str = Data::Dumper->Dump( [ \%cfg ], ['$cfgref'] );
        print $fh $str;
        if ( $log_level > $LLV_DBG ) { print $str; }
        $str = Data::Dumper->Dump( [ \%paths ], ['$pathsref'] );
        print $fh $str;
        if ( $log_level > $LLV_DBG ) { print $str; }
        close $fh;
    }
}

计算机是上大学的首选专业

    2000年我和很多人一样移民到加拿大，有很多专对华人的培训中心，提供Advanced Java，J2EE之类的速成，把本来的化工博士，医生，建筑工程师都包装成电脑工程师，只因为计算机的工作最好找。快20年过去了，哪怕再过10年，我认为计算机还是最容易找工作的行业，只因为计算机应用只会越来越多。律师，医生，老师这些被普遍认为最好的工作都会面临被计算机顶替的风险。
    听起来有点太夸张。我上学那会，听说第三次浪潮，产业革命，都是很时髦的概念，经常挂嘴上夸夸其谈，虽然不知其所以然。但现在回头看，社会不没有沿着那些大家推崇的方向发展。单从计算机的发展来说，人工智能(AI)，神经元网络，网络计算机在20多年前就被当作计算机的发展前沿，互联网，电子商务，网络交易，虚拟空间，新近的大数据，云存储，云计算，比特币，量子计算机，IoT, AR, VR, 电动汽车自动驾驶等，也都是一会热，一会凉。但总体来说，计算机正在被应用到越来越多的角落，同时创造来更多计算机技术应用的机会和需求，同时也推动了计算机的教学和研究的普及深入。软件技术的发展伴随着电子技术工艺的提高，更高集成化，更快速度，更小功耗，一体化，多功能，新材料，新领域，新着眼点，整体发展多样化伴随着技术进步。
    哪些技术会继续成为发展的热点，哪些会成为新的业界宠儿？互联网正把世界的各个角落拉的更近，电子商务交易会更普及并取代更多的实体商店；电子货币会因此取代纸币甚至信用卡。比特币没有银行和国家做后台保障，同时有安全风险，很难成为流通交易的媒介。电子交易极大地推动商业的发展，给更多的人提供更多的机会，更多的竞争，意味着更低价，更高性能，更好更多样的服务；网络交易推动了云服务的发展，而云的发展给小企业商户提供低价优质多样稳定的服务，就连大企业也逐渐从自建网络服务转移到更多依赖专业云供应商的服务，一方面减少开发维护的费用，一方面可以得到更专业更稳定性价比更高的服务，并可以很容易的扩展或缩减服务需求；分工合作就像当年汽车制造采用流水线作业一样，极大提高了效率。从云服务收集到的大数据给云供应商，政府，企业提供导向，使企业政府的决策更精准。伴随语音图像识别和人工智能的发展，人类的生活更方便，像Amazon, Google, Apple等提供的智能家居助手，安保，把我们的生活变得更方便舒适和现代化。未来，你的马桶可能会时刻记录你的体重，血糖，消化代谢系统的状态；你的冰箱会提醒你那些食物要过期了，你还有什么食物储备；你的电子锅会自动为你做出可口的饭菜；你可以随时随地与亲朋好友视频通话；你的垃圾桶每周三早上会自动跑到马路边等着被收集。人脸识别会提供很多便利，乘车，购物，出入，对室外公众场合的安全提供极大的保障。但基于隐私的担心会成为这一技术普及的注意障碍。5G6G的普及，万物互联，给日常生活带来更多便利，提供更多的可能，你的汽车可能会跟临近的汽车协调路线，交通事故将成为历史，你可以随时随地处理公务和私事，办公，求学，就医，讨论，救助。
    美国用世界上最好的很多大学，有世界上最先进的技术，有最好的高科技公司，有很多很多聪明能干的工程师企业家。但美国上到总统，下到平民，也有普遍的自高自大，傲慢偏见，唯我独尊。世事无常，所谓的民主会滞肘决策协调，所谓的精英政治只不过少数集团的一己私利。没有长远的历史可借鉴，没有深厚的文化的积垫，没有广泛的外界民众的拥戴，缺少与别国互惠互利的利益共享，繁盛终会走向衰落。

    计算机技术相关的最好的大学基本都在美国，像麻省理工，斯坦福，加州伯克利等等。加拿大最好的计算机大学是滑铁卢大学。要进这些大学，需要好好准备，不只是英语成绩，还需要很好的平时成绩单，推荐信，并通过面试。这些好学校竞争激烈，淘汰率也很高。

本科基本是打基础，如想深入，特别是跟导师做研究，就要申请研究生和博士生。如果你有两年左右的工作经验，特别是做过一些项目或课题，再争取较好的TOEFL/GRE成绩，可能会有更多机会。

    国内给我的感觉是过于急功近利，很多公司急于赚钱，而不搞开发投入。只有华为给我印象不错。中国的软件业不重视深入研究，不重视知识产权保护，没有良好的保护，就不会有强劲的开发动力，大多抄来抄去，什么热门就做什么，昨天做AR/VR，今天做大数据，云计算，比特币，明天又去搞自动驾驶人工智能。现在的高科技要厚重积发，要有很多的技术储备。特别体现在微电子领域，中国一直就没有一款像样的CPU。不提丢人现眼的汉芯，基于MIPS指令的龙芯的最新一代3A4000/4B3000转到28nm，也主要用于办公为代表的事务处理应用；华为总算有个麒麟芯片，但其核心是ARM的IP，而且芯片要由台积电来造，因为国内的FAB只能量产28nm的晶片，14nm还在研发，而台积电，三星，Intel都已经移到10纳米，7纳米，甚至5纳米。芯片集成的工艺非常重要，不只要高集成度，还要保证成品率，同时要低漏电，不然就会造成高功耗和过热问题。芯片集成不只是一个很烧钱的行业，技术垄断（马太效应）也很严重，不知道你有没有听说过芯片集成必须的光刻机制造商荷兰的ASML，一台光刻机要一亿多美元，一年只造几台，买家要排队等，可能还限制出口中国。一个芯片厂可能更要上百亿美元的投入。再说芯片的IP, Intel/AMD，ARM，Apple, Qualcomm，Motorola等等都做了很大投入，中国也就华为买了ARM开发权。这个链接是清华大学微电子所所长魏少军谈中国的芯片产业：https://mil.news.sina.com.cn/dgby/2019-05-20/doc-ihvhiqay0078144.shtml

所以说这方面，中国要有很长的路要走，特别是现在美国在搞对中国的技术封锁打压，希望国内的企业和有识之士能蹚出一条路来。

   中国在电子产业方面有自己的优势，巨大的市场，开放的环境，众多的软硬件工程师。在新兴的人工智能等方面，中国很容易与全世界的同行同步前进，不像通信行业，AI领域还没有什么行业标准和技术垄断，所以这方面中国有很多机会，比如很多城市使用的人脸识别，在西方所谓的民主社会，会因为一些人的对隐私的担心而无法应用。中国的信用卡体系不是很完善，反倒促进电子支付的普及。在西方人们只用信用卡，从商店购物是没问题，但无法用于个人间的交易。另外欧美的收入较高，同时会造成人工成本高启。中国的手机电视无人机和其它小家电销售到世界各地。所以在IoT领域我认为中国会有很多机会。我当年在北京时，曾经做过不少小项目，经常软硬件都自己一个人做，中关村跑两趟，从电路板设计，元件选用采购，到电路板定制焊接，软硬件调试，经常两三周就搞定。而这边没有电子市场，一切都要从网上订购，费用很贵，而且很费时。

   取决于个人的长远计划，是在小的startup做起，还是到大的高科技公司从普通工程师做起。小公司有风险也有机遇，而大公司只能一级一级从低到高慢慢来，好处是可以从其他资深工程师学习，同时通常大公司会提供很好的培训资源。

用微軟的family setting來控制小孩玩手機和電腦的時間

很久以前我写过一个C#程序限制小孩子看计算机的时间的小程序。现在有更好更简单易行的办法了，不过需要用到微软的服务：在Windows 10的PC上，不需要安装任何东西，只需要设置好Windows parental control；在Android tablet 和手机上需要安装Microsoft Launcher； (我没有试过如何在Apple的device上设置，另外Linux上恐怕也不起作用)。
截屏如下，可以设置和监控Activity, Screen time, App and game limits等。具体参见微软网站：https://account.microsoft.com/family
一旦设置好后，你就可以远程控制小孩使用手机和电脑的时段和总的电脑使用时间。需要时，小孩可以要求更多时间，你可以远程授予或拒绝。你可以login到微软的family account page进行设置和监控：https://account.microsoft.com/family
同时也可以监控Xbox。虽然不是尽善尽美，但是个良好的开始，而且完全free， Google已经开始跟进了。

Setup VNC server on Ubuntu

Update @ Jan 2021:
New version of Ubuntu 20.04 and 20.10 has been out for a while. I have been seeing many post about setting up VNC server on Ubuntu, most talking about specifically with TightVNC server and Xfce, without detail explanation of the choice. Xfce is one of Desktop environment for Ubuntu, among other popular environment such as Gnome (default for Ubuntu 20.x), KDE, etc. Basically, Xfce is light weight, so more suitable for VNC remote connection. And for the server, TightVncServer is not the only choice. 

-----------------------------------

I have used several different VNC solution (most are free, and even Open Source), here is my feeling:

• vino, available on Ubuntu by default, but performance is not good
• Vnc4Server is very stable, but might be out-of-date, depends on the desktop environment, such as Gnome or Kde, may need some tweak with x server and authentication configuration; 
• TightVnc, UltraVnc, noMachine RealVnc and several other open-source VNC all have some cons and pros, and neither of them is integrated to Ubuntu as good as x11vnc. Some found TightVnc is easy to setup and use, some found noMachine is very powerful. But like TightVnc, it won't allow local user and remote user have the view at same time, so it cannot be used for remote assistant.
• x11vnc is the only one which can be up with the user login screen, so you can type in account credential in the Ubuntu login GUI. One shortage is x11vnc relies on the hardware display. But for headless (no monitor/display adapter), user can set up Xvfb, Xvnc or dummy display. So x11vnc is my favorite one.

As of Ubuntu 18.04, it switched from LightDM to GDM3. Connecting to the login screen with VNC while using GDM3 is currently not possible. The easiest way to get this VNC functionality back is to simply switch back from GDM3 to LightDM as mentioned here: https://askubuntu.com/questions/1033274/ubuntu-18-04-connect-to-login-screen-over-vnc/

Install LightDM is very simple as: apt install lightdm

This post shows how to setup VNC with TightVNC server + Xfce desktop environment:
https://www.digitalocean.com/community/tutorials/how-to-install-and-configure-vnc-on-ubuntu-18-04
And this combination might be easier to be setup for headless (no monitor connected Linux station), with xserver-xorg-video-dummy package installed. For Xfce, if the Terminal launcher doesn't work, check Settings Manager > Preferred Applications setting, and switch to a different Terminal app.

There might be issue to run Microsoft's Visual Studio Code with xrdf. Refer to vscode ticket 3451. The workaround provide by 'groone' in 2016 still works as of Jun 2020:

• make a backup first
• sudo sed -i 's/BIG-REQUESTS/_IG-REQUESTS/' /usr/lib/x86_64-linux-gnu/libxcb.so.1

libxcb.so.1 is a symbolic link (such as libxcb.so.1.1.0). So just remove the symbolic link, and copy the '.so' file like this: 'cp libxcb.so.1.1.0 libxcb.so.1', then run 'sed' to replace the string. This way it won't break other application which may rely on libxcb (such as VLC player).

Below is some other note which might be old.

vnc server =>refer help.ubuntu.com/community/VNC/Servers. x11vnc works pretty well. Start x11vnc server(apt-get install x11vnc):

x11vnc -storepasswd => provide password

x11vnc -auth guess -forever -loop -noxdamage -repeat -rfbauth /home/lab/.vnc/passwd -rfbport 5900 -shared

Have x11vnc start automatically via systemd in any environment (Vivid+, i.e. Ubuntu15 and up):

sudo nano /lib/systemd/system/x11vnc.service => add following:

[Unit]

Description=Start x11vnc at startup.

After=multi-user.target

[Service]

Type=simple

ExecStart=/usr/bin/x11vnc -auth guess -forever -loop -noxdamage -repeat -rfbauth /home/lab/.vnc/passwd -rfbport 5900 -shared

[Install]

WantedBy=multi-user.target

Then do: sudo systemctl daemon-reload && sudo systemctl enable x11vnc.service

For Ubuntu14, sudo nano /etc/init/x11vnc.conf

# description "Start x11vnc at boot"

description "x11vnc"

start on runlevel [2345]

stop on runlevel [^2345]

console log

respawn

respawn limit 20 5

exec /usr/bin/x11vnc -auth guess -forever -loop -noxdamage -repeat -rfbauth /home/lab/.vnc/passwd -rfbport 5900 -shared

No desktop but a terminal only with ubuntu14/vnc4server=> log shows x-window-manager: not found

This link works for me:

# apt-get install gnome-panel gnome-settings-daemon metacity nautilus gnome-terminal

and use this xstartup file

#!/bin/sh

export XKL_XMODMAP_DISABLE=1

unset SESSION_MANAGER

unset DBUS_SESSION_BUS_ADDRESS

[ -x /etc/vnc/xstartup ] && exec /etc/vnc/xstartup

[ -r $HOME/.Xresources ] && xrdb $HOME/.Xresources

xsetroot -solid grey

vncconfig -iconic &

gnome-panel &

gnome-settings-daemon &

metacity &

nautilus &

gnome-terminal &

Use gnome classic: refer to this au, or install gnome-session-fallback

Many search points to ubuntu14.04 gnome-fallback broken, use startxfce4, which is not gnome.

For log show xinitrc denied, change exec /etc/X11/xinit/xinitrc to . exec /etc/X11/xinit/xinitrc or exec sh /etc/…

Some of our PC has vino installed, which is slow sometimes

Refer this for vnc through SSH. Basically run this from local PC: ssh -L 5900:localhost:5900 lab@pv-host39, then VncViewer open localhost:5900.

For some PC may get “channel 3: open failed: connect failed: Connection refused”. Solution here doesn’t work for me. For me, x11 failed to start.

Display, remote and dummy

If seeing monitor shows signal out of range, refer this AU. If mode not available, try cvt 1920 1080 60. The output looks like below. Copy the modeline after Modeline to use it in the next command:

# 1360x768 59.80 Hz (CVT) hsync: 47.72 kHz; pclk: 84.75 MHz

Modeline "1360x768_60.00" 84.75 1360 1432 1568 1776 768 771 781 798 -hsync +vsync

Create a new mode with the copied modeline and xrandr.:

xrandr --newmode "1360x768_60.00" 84.75 1360 1432 1568 1776 768 771 781 798 -hsync +vsync

With the following command, you get the connected port: xrandr --query | grep connected

The output looks like this. As you can see, in my case the connected port is DVI-0.:

HDMI-0 disconnected (normal left inverted right x axis y axis)

DVI-0 connected 1920x1080+0+0 (normal left inverted right x axis y axis) 521mm x 293mm

VGA-0 disconnected (normal left inverted right x axis y axis)

Add the new mode using your connected port.: xrandr --addmode DVI-0 "1360x768_60.00"

Change the monitor resolution.: xrandr --output DVI-0 --mode "1360x768_60.00"

So for our case, as monitor does not support 1920x1200, mostly need to run: xrandr --output HDMI1 --mode "1920x1080"

Fore remote display, refer to au. Not like VNC, it only opens a display remotely, but not allow any remote input.

For PC without monitor(headless), refer to this to add a dummy display: sudo apt-get install xserver-xorg-video-dummy, then update/create /usr/share/X11/xorg.conf.d/xorg.conf:

Section "Device"

Identifier "Configured Video Device"

Driver "dummy"

EndSection

Section "Monitor"

Identifier "Configured Monitor"

HorizSync 31.5-48.5

VertRefresh 50-70

EndSection

Section "Screen"

Identifier "Default Screen"

Monitor "Configured Monitor"

Device "Configured Video Device"

DefaultDepth 24

SubSection "Display"

Depth 24

Modes "1024x800"

EndSubSection

EndSection

With above, won’t see display after connect the PC with a monitor. Seeing error: /usr/bin/xinit: XFree86_VT property unexpectedly has 0 items instead of 1. Boot to recovery mode and try dpkg or failsafeX won’t resolve the problem as Xorg still take the modified xorg.conf. Delete xorg.conf.