+print <<END
+</select></td></tr>
+<tr>
+ <td colspan='2'><hr /><p><b>$Lang::tr{'theme'}</b></td>
+</tr>
+<tr>
+ <td> </td>
+ <td><select name='theme'>
+END
+;
+
+my $dir = "/srv/web/ipfire/html/themes";
+local *DH;
+my ($item, $file);
+my @files;
+
+opendir (DH, $dir);
+while ($file = readdir (DH)) {
+ next if ( $file =~ /^\./ );
+ push (@files, $file);
+}
+closedir (DH);
+
+foreach $item (sort (@files)) {
+ if ( "$mainsettings{'THEME'}" eq "$item" ) {
+ print "<option value='$item' selected='selected'>$item</option>\n";
+ } else {
+ print "<option value='$item'>$item</option>\n";
+ }
+}
+