3 require './smf-lib.pl';
5 &ui_print_header(undef, $text{'smfwizard_title'}, "");
7 # wizard-specific info here
8 &wizard_header($wizard, "smfwizard_property.cgi",
9 "$text{'smfwizard_property_heading'}",
10 &convert_links_in_text("$text{'smfwizard_property_description'}"),
13 @sinst_list = ("service");
14 # add existing instances to list...
15 @existing_insts = &wizard_get_data_values("smfwizard_instance.cgi",
17 @sinst_list= (@sinst_list, @existing_insts);
18 @pgroup_list = &wizard_get_data_values("smfwizard_property_group.cgi",
19 "property_group_name");
20 &wizard_select("smfwizard_property.cgi", "$text{'smfwizard_sinst_name'}",
21 "sinst", \@sinst_list, ".+", "$text{'smfwizard_sinst_error'}");
22 &wizard_select("smfwizard_property.cgi", "$text{'smfwizard_pgroup_name'}",
23 "pgroup", \@pgroup_list, ".+", "$text{'smfwizard_pgroup_name_error'}");
25 &wizard_input("smfwizard_property.cgi",
26 "$text{'smfwizard_property_name'}",
27 "property_name", 60, ".+",
28 "$text{'smfwizard_property_name_error'}");
29 &wizard_select("smfwizard_property.cgi",
30 "$text{'smfwizard_property_type'}",
31 "property_type", \@propval_type_values, ".+",
32 "$text{'smfwizard_property_type_error'}");
33 &wizard_input("smfwizard_property.cgi",
34 "$text{'smfwizard_property_value'}", "property_value",
35 60, ".*", "$text{'smfwizard_property_value_error'}");
37 &wizard_footer($wizard, "smfwizard_property.cgi");
38 # end wizard-specific info
40 &ui_print_footer("index.cgi", $text{'index'});