JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr#!/usr/bin/perl # index.cgi # Display all themes for the user to choose require './theme-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'index_title'}, "", undef, 0, 1); @themes = sort { $a->{'desc'} cmp $b->{'desc'} } &list_visible_themes($current_theme); $uth = $gconfig{'theme_'.$remote_user}; print "$text{'index_desc'}

\n"; print &ui_form_start("change_theme.cgi"); print &ui_table_start(undef, "width=100%", 2); my $defaulttheme = &trim(&read_file_contents("$root_directory/defaulttheme")); if (! -r "$root_directory/$defaulttheme") { $defaulttheme = 'gray-theme'; if (! -r "$root_directory/$defaulttheme") { $defaulttheme = ""; } } print &ui_table_row($text{'index_sel'}, &ui_select("theme", $uth, [ [ $defaulttheme, $text{'index_global'} ], map { [ $_->{'dir'}, $_->{'desc'}."" ] } @themes ])); print &ui_table_end(); print &ui_form_end([ [ undef, $text{'index_change'} ] ]); &ui_print_footer("/", $text{'index'});