5 open my $infh, '-|', '/nexuiz/data/darkplaces/darkplaces-dedicated -basedir .. -nexuiz +sys_colortranslation 2 +sys_specialcharactertranslation 0 +cvarlist +quit 2>&1'
13 | g_configversion # internal
14 | g_maplist_index # internal
15 | halflifebsp # internal
16 | cvar_check_.* # internal
20 | g_campaign.* # client
24 | mod_q3bsp_lightmapmergepower # client
25 | mod_q3bsp_nolightmaps # client
26 | net_slist_.* # client
34 | g_banned_list # private
35 | g_ban_default_.* # private
36 | g_ban_sync_.* # private
37 | g_chat_flood_.* # private
38 | log_dest_udp # private
40 | net_address # private
43 | savedgamecfg # private
44 | settemp_.* # private
45 | sv_allowdownloads_.* # private
46 | sv_autodemo.* # private
47 | sv_curl_.* # private
48 | sv_eventlog.* # private
49 | sv_heartbeatperoid # private
50 | sv_logscores_.* # private
51 | sv_master.* # private
52 | sv_vote_master_password # private
53 | sys_colortranslation # private
54 | sys_specialcharactertranslation # private
55 | timestamps # private
57 | capturelimit # mapinfo
64 | g_domination # mapinfo
66 | g_keyhunt_teams # mapinfo
67 | g_onslaught # mapinfo
69 | g_runematch # mapinfo
73 | hostname # shown already
74 | g_maplist # too long
75 | g_maplist_mostrecent # too long
80 open my $fh, "<", "cvars.txt"
81 or die "<cvars.txt: $!";
85 /^"(.*?)\" \"(.*)\"$/ or next;
90 open $fh, ">", "cvars.txt"
91 or die ">cvars.txt: $!";
96 if(/^(?:\^7)?([a-z0-9_]*) is "(.*?)" \["(.*?)"\] (.*)$/)
98 my ($cvar, $value, $default, $description) = ($1, $2, $3, $4);
99 if($cvar =~ /^$ignore_re$/)
103 if($default ne $value)
105 die "Run this on a DEFAULT config ($cvar has been changed from $default to $value)";
107 if($description eq 'custom cvar')
109 if(defined $descr{$cvar})
111 print $fh "\"$cvar\" \"$descr{$cvar}\"\n";
115 print $fh "\"$cvar\" \"TODO: describe me\"\n";
120 print $fh "\"$cvar\"\n";