Handle hostnames with upper-case letters
[webmin.git] / burner / config_info.pl
1
2 require './burner-lib.pl';
3
4 sub config_form
5 {
6 print &ui_table_row($text{'config_cdrecord'},
7                     &ui_textbox("cdrecord", $_[0]->{'cdrecord'}, 30)." ".
8                     &file_chooser_button("cdrecord"));
9
10 print &ui_table_row($text{'config_mkisofs'},
11                     &ui_textbox("mkisofs", $_[0]->{'mkisofs'}, 30)." ".
12                     &file_chooser_button("mkisofs"));
13
14 print &ui_table_row($text{'config_mpg123'},
15                     &ui_textbox("mpg123", $_[0]->{'mpg123'}, 30)." ".
16                     &file_chooser_button("mpg123"));
17
18 print &ui_table_row($text{'config_sox'},
19                     &ui_textbox("sox", $_[0]->{'sox'}, 30)." ".
20                     &file_chooser_button("sox"));
21
22 print &ui_table_row($text{'config_cdrdao'},
23                     &ui_textbox("cdrdao", $_[0]->{'cdrdao'}, 30)." ".
24                     &file_chooser_button("cdrdao"));
25
26 print &ui_table_row($text{'config_temp'},
27                     &ui_opt_textbox("temp", $_[0]->{'temp'}, 30,
28                                     $text{'config_temp_def'}));
29 }
30
31 sub config_save
32 {
33 &has_command($in{'cdrecord'}) || &error($text{'config_ecdrecord'});
34 $_[0]->{'cdrecord'} = $in{'cdrecord'};
35
36 #&has_command($in{'mkisofs'}) || &error($text{'config_emkisofs'});
37 $_[0]->{'mkisofs'} = $in{'mkisofs'};
38
39 #&has_command($in{'mpg123'}) || &error($text{'config_empg123'});
40 $_[0]->{'mpg123'} = $in{'mpg123'};
41
42 #&has_command($in{'sox'}) || &error($text{'config_esox'});
43 $_[0]->{'sox'} = $in{'sox'};
44
45 #&has_command($in{'cdrdao'}) || &error($text{'config_ecdrdao'});
46 $_[0]->{'cdrdao'} = $in{'cdrdao'};
47
48 if ($in{'temp_def'}) {
49         $_[0]->{'temp'} = undef;
50         }
51 else {
52         -d $in{'temp'} || &error($text{'config_etemp'});
53         $_[0]->{'temp'} = $in{'temp'};
54         }
55 }
56