[PHP] pobierz, plaintext 
  1. <?php
  2. #!/usr/bin/perl
  3.  
  4. use lib "/usr/lib/smoothwall";
  5. use header qw( :standard );
  6. use smoothd qw( message );
  7. use filtering qw( :standard );
  8. use Shell qw(ln);
  9.  
  10. my %filtersettings;
  11. my $dgconfigdir = "/etc/dansguardian";
  12.  
  13. &getcgihash(%dgavconfig);
  14. if ($dgavconfig{"ACTION"} eq $tr{'save'}) {
  15. 		&readhash("${swroot}/filtering/settings", %filtersettings);
  16. 		$filtersettings{'DGAV_SIMPLE_TYPE'} = $dgavconfig{'TYPE'};
  17. 		&writehash("${swroot}/filtering/settings", %filtersettings);
  18. 		unlink("$dgconfigdir/dansguardianf1.conf");
  19. 		ln("-s", "$dgconfigdir/simple/$dgavconfig{'TYPE'}/dansguardianf_$dgavconfig{'TYPE'}.conf", "$dgconfigdir/dansguardianf1.conf");
  20. 		my $status = message("dgrestart");
  21.  
  22. }
  23.  
  24.  
  25. &showhttpheaders();
  26.  
  27. my @default_types = ('default', 'child', 'preteen', 'teen', 'adult');
  28. if ( -e "$dgconfigdir/simple/custom" ) {
  29. 		push (@default_types, "custom");
  30. }
  31. if ( -e "$dgconfigdir/simple/advanced" ) {
  32. 		push (@default_types, "advanced");
  33. }
  34.  
  35. &readhash("${swroot}/filtering/settings", %filtersettings);
  36.  
  37. if ($filtersettings{'DGAV_ADVANCED'} eq "on") {
  38. # redir to adv settings page
  39. }
  40.  
  41.  
  42. &openpage('Filtering', 1, '', 'filtering');
  43. &alertbox($errormessage);
  44. print "<form action=dgav.cgi method=post>\n";
  45.  
  46.  
  47. &openbox('Dansguardian Configuration');
  48.  
  49. print <<END
  50. <P>
  51. <TABLE WIDTH='80%' ALIGN='CENTER'>
  52. <TD>Selected Filtering Profile</TD>
  53. <TD>
  54. <SELECT NAME='TYPE'>
  55. END
  56. ;
  57. foreach my $option (@default_types) {
  58. 		my $selected;
  59. 		if ($filtersettings{'DGAV_SIMPLE_TYPE'} eq $option) {
  60. 				$selected = "SELECTED";
  61. 		}
  62. 		else {
  63. 				undef $selected;
  64. 		}
  65. 		my $translation = "dgav-" . $option;
  66. 		print "<OPTION VALUE='$option' $selected>$tr{$translation}";
  67. }
  68. print <<END
  69. </SELECT>
  70. </TD>
  71. </table>
  72. <P>
  73. END
  74. ;
  75.  
  76.  
  77. &closebox();
  78.  
  79. print <<END
  80. <DIV ALIGN='CENTER'>
  81. <TABLE WIDTH='80%'>
  82. <TR>
  83. <td align='CENTER'><input type=submit name="ACTION" value=&#092;"$tr{'save'}\"></TD>
  84. </TR>
  85. </TABLE>
  86. </DIV>
  87. <P>
  88. </form>
  89. END
  90. ;
  91.  
  92.  
  93. &closepage();
  94. ?>
[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