for ($count = 0; $count <= $#theme_name; $count++) {
print " > $theme_name[$count]\n";
}
+ print "2. CSS File : $WHT$theme_css$NRM\n";
print "\n";
print "R Return to Main Menu\n";
} elsif ($menu == 6) {
elsif ($command == 3) { $attachment_dir = command34 (); }
elsif ($command == 4) { $default_left_size = command35 (); }
} elsif ($menu == 5) {
- if ($command == 1) {
- command41 ();
- }
+ if ($command == 1) { command41 (); }
+ elsif ($command == 2) { $theme_css = command42 (); }
} elsif ($menu == 6) {
if ($command == 1) { command61(); }
elsif ($command == 2) { command62(); }
}
+# Theme - CSS file
+sub command42 {
+ print "You may specify a cascading style-sheet (CSS) file to be included\n";
+ print "on each html page generated by SquirrelMail. The CSS file is useful\n";
+ print "for specifying a site-wide font. If you're not familiar with CSS\n";
+ print "files, leave this blank.\n";
+ print "\n";
+ print "To clear out an existing value, just type a space for the input.\n";
+ print "\n";
+ print "[$WHT$theme_css$NRM]: $WHT";
+ $new_theme_css = <STDIN>;
+ if ($new_theme_css eq "\n") {
+ $new_theme_css = $theme_css;
+ } else {
+ $new_theme_css =~ s/[\r|\n]//g;
+ }
+ $new_theme_css =~ s/^\s*//;
+ return $new_theme_css;
+}
+
+
sub command61 {
print "You can now define different LDAP servers.\n";
print "[ldap] command (?=help) > ";
print FILE "\n";
+ print FILE "\t\$theme_css = \"$theme_css\";\n";
for ($count=0; $count <= $#theme_name; $count++) {
print FILE "\t\$theme[$count][\"PATH\"] = \"$theme_path[$count]\";\n";
print FILE "\t\$theme[$count][\"NAME\"] = \"$theme_name[$count]\";\n";