[cgi] pytanie, dodanie kolejnej opcj w drop downie Opcje

[infolearn]

[PHP] pobierz, plaintext 
<?php
#!/usr/bin/perl
 
use lib "/usr/lib/smoothwall";
use header qw( :standard );
use smoothd qw( message );
use filtering qw( :standard );
use Shell qw(ln);
 
my %filtersettings;
my $dgconfigdir = "/etc/dansguardian";
 
&getcgihash(%dgavconfig);
if ($dgavconfig{"ACTION"} eq $tr{'save'}) {
		&readhash("${swroot}/filtering/settings", %filtersettings);
		$filtersettings{'DGAV_SIMPLE_TYPE'} = $dgavconfig{'TYPE'};
		&writehash("${swroot}/filtering/settings", %filtersettings);
		unlink("$dgconfigdir/dansguardianf1.conf");
		ln("-s", "$dgconfigdir/simple/$dgavconfig{'TYPE'}/dansguardianf_$dgavconfig{'TYPE'}.conf", "$dgconfigdir/dansguardianf1.conf");
		my $status = message("dgrestart");
 
}
 
 
&showhttpheaders();
 
my @default_types = ('default', 'child', 'preteen', 'teen', 'adult');
if ( -e "$dgconfigdir/simple/custom" ) {
		push (@default_types, "custom");
}
if ( -e "$dgconfigdir/simple/advanced" ) {
		push (@default_types, "advanced");
}
 
&readhash("${swroot}/filtering/settings", %filtersettings);
 
if ($filtersettings{'DGAV_ADVANCED'} eq "on") {
# redir to adv settings page
}
 
 
&openpage('Filtering', 1, '', 'filtering');
&alertbox($errormessage);
print "<form action=dgav.cgi method=post>\n";
 
 
&openbox('Dansguardian Configuration');
 
print <<END
<P>
<TABLE WIDTH='80%' ALIGN='CENTER'>
<TD>Selected Filtering Profile</TD>
<TD>
<SELECT NAME='TYPE'>
END
;
foreach my $option (@default_types) {
		my $selected;
		if ($filtersettings{'DGAV_SIMPLE_TYPE'} eq $option) {
				$selected = "SELECTED";
		}
		else {
				undef $selected;
		}
		my $translation = "dgav-" . $option;
		print "<OPTION VALUE='$option' $selected>$tr{$translation}";
}
print <<END
</SELECT>
</TD>
</table>
<P>
END
;
 
 
&closebox();
 
print <<END
<DIV ALIGN='CENTER'>
<TABLE WIDTH='80%'>
<TR>
<td align='CENTER'><input type=submit name="ACTION" value=&#092;"$tr{'save'}\"></TD>
</TR>
</TABLE>
</DIV>
<P>
</form>
END
;
 
 
&closepage();
?>
[PHP] pobierz, plaintext 

Jak mozna by bylo dodac kolejna opcje do "my @default_types = ('default', 'child', 'preteen', 'teen', 'adult');"

te opcje pojawjaja sie w drop down menu generowanym przez kod w ponizszej czesci skryptu

Ma ktos jakies idee wiem ze to cgi moze kto s bedzie miec pojecie