#
# $Id$
############################################################
-$conf_pl_version = "1.4.0";
+$conf_pl_version = "1.5.0";
############################################################
# Check what directory we're supposed to be running in, and
# First, lets read in the data already in there...
############################################################
if ( -e "config.php" ) {
+ # Make sure that file is readable
+ if (! -r "config.php") {
+ clear_screen();
+ print "WARNING:\n";
+ print "The file \"config/config.php\" was found, but you don't\n";
+ print "have rights to read it.\n";
+ print "\n";
+ print "Press enter to continue";
+ $ctu = <STDIN>;
+ exit;
+ }
open( FILE, "config.php" );
while ( $line = <FILE> ) {
$line =~ s/^\s+//;
if ( $config_version ne $conf_pl_version ) {
clear_screen();
- print $WHT. "WARNING:\n" . $NRM;
+ print "WARNING:\n";
print " The file \"config/config.php\" was found, but it is for\n";
print " an older version of SquirrelMail. It is possible to still\n";
print " read the defaults from this file but be warned that many\n";
if ( $config_version ne $conf_pl_version ) {
clear_screen();
- print $WHT. "WARNING:\n" . $NRM;
+ print "WARNING:\n";
print " You are trying to use a 'config_default.php' from an older\n";
print " version of SquirrelMail. This is HIGHLY unrecommended. You\n";
print " should get the 'config_default.php' that matches the version\n";
$sub =~ s/\]\[['"]NAME['"]\]//;
$sub =~ s/.*\[//;
$user_theme_name[$sub] = $options[1];
+ } elsif ( $options[0] =~ /^icon_themes\[[0-9]+\]\[['"]PATH['"]\]/ ) {
+ $sub = $options[0];
+ $sub =~ s/\]\[['"]PATH['"]\]//;
+ $sub =~ s/.*\[//;
+ if ( -e "../images/" ) {
+ $options[1] =~ s/^\.\.\/config/\.\.\/images/;
+ }
+ $icon_theme_path[$sub] = &change_to_rel_path($options[1]);
+ } elsif ( $options[0] =~ /^icon_themes\[[0-9]+\]\[['"]NAME['"]\]/ ) {
+ $sub = $options[0];
+ $sub =~ s/\]\[['"]NAME['"]\]//;
+ $sub =~ s/.*\[//;
+ $icon_theme_name[$sub] = $options[1];
} elsif ( $options[0] =~ /^aTemplateSet\[[0-9]+\]\[['"]ID['"]\]/ ) {
$sub = $options[0];
$sub =~ s/\]\[['"]ID['"]\]//;
$sub =~ s/\'\]//;
$sub =~ s/^fontsets\[\'//;
$fontsets{$sub} = $options[1];
+ } elsif ( $options[0] =~ /^theme\[[0-9]+\]\[['"]PATH|NAME['"]\]/ ) {
+ ##
+ ## $color themes are no longer supported. Please leave this
+ ## so conf.pl doesn't barf if it encounters a $theme.
+ ##
} elsif ( $options[0] =~ /^ldap_server\[[0-9]+\]/ ) {
$sub = $options[0];
$sub =~ s/\]//;
$ldap_writeable[$sub] = $writeable;
$ldap_search_tree[$sub] = $search_tree;
$ldap_starttls[$sub] = $starttls;
- } elsif ( $options[0] =~ /^(data_dir|attachment_dir|user_theme_default|org_logo|signout_page|icon_theme_def)$/ ) {
+ } elsif ( $options[0] =~ /^(data_dir|attachment_dir|org_logo|signout_page|icon_theme_def)$/ ) {
${ $options[0] } = &change_to_rel_path($options[1]);
} else {
${ $options[0] } = $options[1];
$prefs_key_size = 64 if ( !$prefs_key_size );
$prefs_val_size = 65536 if ( !$prefs_val_size );
-# since 1.5.2
-$icon_theme_def = '' if ( !$icon_theme_def );
-
# add qmail-inject test here for backwards compatibility
if ( !$sendmail_args && $sendmail_path =~ /qmail-inject/ ) {
$sendmail_args = '';
$config_location_base = '' if ( !$config_location_base );
$smtp_sitewide_user = '' if ( !$smtp_sitewide_user );
$smtp_sitewide_pass = '' if ( !$smtp_sitewide_pass );
+$icon_theme_def = '' if ( !$icon_theme_def );
if ( $ARGV[0] eq '--install-plugin' ) {
print "Activating plugin " . $ARGV[1] . "\n";
print "R Return to Main Menu\n";
} elsif ( $menu == 5 ) {
print $WHT. "User Interface\n" . $NRM;
- print "1. Modify Template sets\n";
- print "2. Use Icons : $WHT$use_icons$NRM\n";
- print "3. Default Icon Set : $WHT$icon_theme_def$NRM\n";
- print "4. Default font size : $WHT$default_fontsize$NRM\n";
- print "5. Modify available font sets\n";
- print "6. Modify available user themes\n";
+ print "1. Use Icons? : $WHT$use_icons$NRM\n";
+# print "3. Default Icon Set : $WHT$icon_theme_def$NRM\n";
+ print "2. Default font size : $WHT$default_fontsize$NRM\n";
+ print "3. Manage template sets\n";
+ print "4. Manage user themes\n";
+ print "5. Manage font sets\n";
+ print "6. Manage icon themes\n";
print "\n";
print "R Return to Main Menu\n";
elsif ( $command == 15 ) { $time_zone_type = command318(); }
elsif ( $command == 16 ) { $config_location_base = command_config_location_base(); }
} elsif ( $menu == 5 ) {
- if ( $command == 1 ) { $templateset_default = command_templates(); }
- elsif ( $command == 2 ) { $use_icons = commandB3(); }
- elsif ( $command == 3 ) { $icon_theme_def = commandB7(); }
- elsif ( $command == 4 ) { $default_fontsize = command_default_fontsize(); }
- elsif ( $command == 5 ) { command_fontsets(); }
- elsif ( $command == 6 ) { command41(); }
+ if ( $command == 1 ) { $use_icons = commandB3(); }
+# elsif ( $command == 3 ) { $icon_theme_def = commandB7(); }
+ elsif ( $command == 2 ) { $default_fontsize = command_default_fontsize(); }
+ elsif ( $command == 3 ) { $templateset_default = command_templates(); }
+ elsif ( $command == 4 ) { command_userThemes(); }
+ elsif ( $command == 5 ) { command_fontsets(); }
+ elsif ( $command == 6 ) { command_iconSets(); }
} elsif ( $menu == 6 ) {
if ( $command == 1 ) { command61(); }
elsif ( $command == 2 ) { command62(); }
}
} else {
print "Invalid input. You must set username used for SMTP authentication.\n";
- print "Click any key to continue\n";
+ print "Click enter to continue\n";
$tmp = <STDIN>;
}
} else {
print "Invalid input\n";
- print "Click any key to continue\n";
+ print "Click enter to continue\n";
$tmp = <STDIN>;
}
}
print "Deleting folders will bypass the trash folder and be immediately deleted\n\n";
print "If this is not the correct value for your server,\n";
print "please use option D on the Main Menu to configure your server correctly.\n\n";
- print "Press any key to continue...\n";
+ print "Press enter to continue...\n";
$new_delete = <STDIN>;
$delete_folder = 'true';
} else {
}
-
-sub command41 {
+sub command_userThemes {
print "\nDefine the user themes that you wish to use. If you have added\n";
print "a theme of your own, just follow the instructions (?) about\n";
print "how to add them. You can also change the default theme.\n\n";
- print "[user_theme] command (?=help) > ";
+
+ print "Available user themes:\n";
+ $count = 0;
+ while ( $count <= $#user_theme_name ) {
+ if ( $count == $user_theme_default ) {
+ print " *";
+ } else {
+ print " ";
+ }
+ if ( $count < 10 ) {
+ print " ";
+ }
+ $name = $user_theme_name[$count];
+ $num_spaces = 35 - length($name);
+ for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
+ $name = $name . " ";
+ }
+
+ print " $count. $name";
+ print "($user_theme_path[$count])\n";
+
+ $count++;
+ }
+
+ print "\n";
+ print ".------------------------------------.\n";
+ print "| t (detect user themes) |\n";
+ print "| + (add user theme) |\n";
+ print "| - N (remove user theme) |\n";
+ print "| m N (mark default user theme) |\n";
+ print "| l (list user themes) |\n";
+ print "| d (done) |\n";
+ print "`------------------------------------'\n";
+
+ print "\n[user_themes] command (?=help) > ";
$input = <STDIN>;
$input =~ s/[\r\n]//g;
while ( $input ne "d" ) {
print "What is the name of this theme? ";
$name = <STDIN>;
$name =~ s/[\r\n]//g;
- $user_theme_name[ $#theme_name + 1 ] = $name;
+ $user_theme_name[ $#user_theme_name + 1 ] = $name;
print "Be sure to put ../css/ before the filename.\n";
print "What file is this stored in (ex: ../css/my_theme/): ";
$name = <STDIN>;
closedir DIR;
} elsif ( $input =~ /^\s*\?\s*/ ) {
- print ".-------------------------.\n";
- print "| t (detect themes) |\n";
- print "| + (add theme) |\n";
- print "| - N (remove theme) |\n";
- print "| m N (mark default) |\n";
- print "| l (list themes) |\n";
- print "| d (done) |\n";
- print "`-------------------------'\n";
+ print ".------------------------------------.\n";
+ print "| t (detect user themes) |\n";
+ print "| + (add user theme) |\n";
+ print "| - N (remove user theme) |\n";
+ print "| m N (mark default user theme) |\n";
+ print "| l (list user themes) |\n";
+ print "| d (done) |\n";
+ print "`------------------------------------'\n";
}
- print "[user_theme] command (?=help) > ";
+ print "[user_themes] command (?=help) > ";
+ $input = <STDIN>;
+ $input =~ s/[\r\n]//g;
+ }
+}
+
+sub command_iconSets {
+ print "\nDefine the icon themes that you wish to use. If you have added\n";
+ print "a theme of your own, just follow the instructions (?) about\n";
+ print "how to add them. You can also change the default and fallback\n";
+ print "themes. The default theme will be used when no icon theme is\n";
+ print "set by the user. The fallback theme will be used if an icon\n";
+ print "cannot be found in the currently selected icon theme.\n\n";
+
+ print "Available icon themes:\n\n";
+
+ $count = 0;
+ while ( $count <= $#icon_theme_name ) {
+ if ( $count == $icon_theme_def ) {
+ print " d";
+ } else {
+ print " ";
+ }
+ if ( $count eq $icon_theme_fallback ) {
+ print "f ";
+ } else {
+ print " ";
+ }
+ if ( $count < 10 ) {
+ print " ";
+ }
+ $name = $icon_theme_name[$count];
+ $num_spaces = 35 - length($name);
+ for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
+ $name = $name . " ";
+ }
+
+ print " $count. $name";
+ print "($icon_theme_path[$count])\n";
+
+ $count++;
+ }
+
+ print "\n d = Default icon theme\n";
+ print " f = Fallback icon theme\n";
+ print "\n";
+ print ".------------------------------------.\n";
+ print "| t (detect icon themes) |\n";
+ print "| + (add icon theme) |\n";
+ print "| - N (remove icon theme) |\n";
+ print "| m N (mark default icon theme) |\n";
+ print "| f N (set fallback icon set) |\n";
+ print "| l (list icon themes) |\n";
+ print "| d (done) |\n";
+ print "`------------------------------------'\n";
+
+ print "\n[icon_themes] command (?=help) > ";
+ $input = <STDIN>;
+ $input =~ s/[\r\n]//g;
+ while ( $input ne "d" ) {
+ if ( $input =~ /^\s*l\s*/i ) {
+ $count = 0;
+ print "\n";
+ while ( $count <= $#icon_theme_name ) {
+ if ( $count == $icon_theme_def ) {
+ print " d";
+ } else {
+ print " ";
+ }
+ if ( $count eq $icon_theme_fallback ) {
+ print "f ";
+ } else {
+ print " ";
+ }
+ $name = $icon_theme_name[$count];
+ $num_spaces = 35 - length($name);
+ for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
+ $name = $name . " ";
+ }
+
+ print " $count. $name";
+ print "($icon_theme_path[$count])\n";
+
+ $count++;
+ }
+ print "\n d = Default icon theme\n";
+ print " f = Fallback icon theme\n\n";
+ } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
+ $old_def = $icon_theme_def;
+ $icon_theme_def = $input;
+ $icon_theme_def =~ s/^\s*m\s*//;
+ if ( ( $icon_theme_default > $#icon_theme_name ) || ( $icon_theme_default < 0 ) ) {
+ print "Cannot set default icon theme to $icon_theme_default. That theme does not exist.\n";
+ $icon_theme_def = $old_def;
+ }
+ } elsif ( $input =~ /^\s*f\s*[0-9]+/i ) {
+ $old_fb = $icon_theme_fallback;
+ $icon_theme_fallback = $input;
+ $icon_theme_fallback =~ s/^\s*f\s*//;
+ if ( ( $icon_theme_fallback > $#icon_theme_name ) || ( $icon_theme_fallback < 0 ) ) {
+ print "Cannot set fallback icon theme to $icon_theme_fallback. That theme does not exist.\n";
+ $icon_theme_fallback = $old_fb;
+ }
+ } elsif ( $input =~ /^\s*\+/ ) {
+ print "What is the name of this icon theme? ";
+ $name = <STDIN>;
+ $name =~ s/[\r\n]//g;
+ $icon_theme_name[ $#icon_theme_name + 1 ] = $name;
+ print "Be sure to put ../images/themes/ before the filename.\n";
+ print "What directory is this icon theme stored in (ex: ../images/themes/my_theme/)? ";
+ $name = <STDIN>;
+ $name =~ s/[\r\n]//g;
+ $icon_theme_path[ $#icon_theme_path + 1 ] = $name;
+ } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
+ if ( $input =~ /[0-9]+\s*$/ ) {
+ $rem_num = $input;
+ $rem_num =~ s/^\s*-\s*//g;
+ $rem_num =~ s/\s*$//;
+ } else {
+ $rem_num = $#icon_theme_name;
+ }
+ if ( $rem_num == $icon_theme_def ) {
+ print "You cannot remove the default icon theme!\n";
+ } elsif ( $rem_num == $icon_theme_fallback ) {
+ print "You cannot remove the fallback icon theme!\n";
+ } else {
+ $count = 0;
+ @new_theme_name = ();
+ @new_theme_path = ();
+ while ( $count <= $#icon_theme_name ) {
+ if ( $count != $rem_num ) {
+ @new_theme_name = ( @new_theme_name, $icon_theme_name[$count] );
+ @new_theme_path = ( @new_theme_path, $icon_theme_path[$count] );
+ }
+ $count++;
+ }
+ @icon_theme_name = @new_theme_name;
+ @icon_theme_path = @new_theme_path;
+ if ( $icon_theme_def > $rem_num ) {
+ $icon_theme_def--;
+ }
+ }
+ } elsif ( $input =~ /^\s*t\s*/i ) {
+ print "\nStarting detection...\n\n";
+
+ opendir( DIR, "../images/themes/" );
+ @files = readdir(DIR);
+ $cnt = 0;
+ while ( $cnt <= $#files ) {
+ $filename = "../images/themes/" . $files[$cnt] .'/';
+ if ( -d "../images/themes/" . $files[$cnt] && $files[$cnt] !~ /^\./ && $files[$cnt] ne "CVS" ) {
+ $found = 0;
+ for ( $x = 0 ; $x <= $#icon_theme_path ; $x++ ) {
+ if ( $icon_theme_path[$x] eq $filename ) {
+ $found = 1;
+ }
+ }
+ if ( $found != 1 ) {
+ print "** Found icon theme: $filename\n";
+ print " What is its name? ";
+ $nm = <STDIN>;
+ $nm =~ s/[\n\r]//g;
+ $icon_theme_name[ $#icon_theme_name + 1 ] = $nm;
+ $icon_theme_path[ $#icon_theme_path + 1 ] = $filename;
+ }
+ }
+ $cnt++;
+ }
+ print "\n";
+ for ( $cnt = 0 ; $cnt <= $#icon_theme_path ; $cnt++ ) {
+ $filename = $icon_theme_path[$cnt];
+ if ( $filename ne "none" && $filename ne "template" && ! -d $filename ) {
+ print " Removing $filename (file not found)\n";
+ $offset = 0;
+ @new_icon_theme_name = ();
+ @new_icon_theme_path = ();
+ for ( $x = 0 ; $x < $#icon_theme_path ; $x++ ) {
+ if ( $icon_theme_path[$x] eq $filename ) {
+ $offset = 1;
+ }
+ if ( $offset == 1 ) {
+ $new_icon_theme_name[$x] = $icon_theme_name[ $x + 1 ];
+ $new_icon_theme_path[$x] = $icon_theme_path[ $x + 1 ];
+ } else {
+ $new_icon_theme_name[$x] = $icon_theme_name[$x];
+ $new_icon_theme_path[$x] = $icon_theme_path[$x];
+ }
+ }
+ @icon_theme_name = @new_icon_theme_name;
+ @icon_theme_path = @new_icon_theme_path;
+ }
+ }
+ print "\nDetection complete!\n\n";
+
+ closedir DIR;
+ } elsif ( $input =~ /^\s*\?\s*/ ) {
+ print ".------------------------------------.\n";
+ print "| t (detect icon themes) |\n";
+ print "| + (add icon theme) |\n";
+ print "| - N (remove icon theme) |\n";
+ print "| m N (mark default icon theme) |\n";
+ print "| f N (set fallback icon set) |\n";
+ print "| l (list icon themes) |\n";
+ print "| d (done) |\n";
+ print "`------------------------------------'\n";
+ }
+ print "[icon_themes] command (?=help) > ";
$input = <STDIN>;
$input =~ s/[\r\n]//g;
}
}
sub command_templates {
- print "\nDefine the template sets that you wish to use. If you have added ";
- print "a template set of your own, just follow the instructions (?) about how to add ";
- print "them. You can also change the default template.\n";
+ print "\nDefine the template sets that you wish to use. If you have added\n";
+ print "a template set of your own, just follow the instructions (?) about\n";
+ print "how to add them. You can also change the default template.\n";
print "\n Available Templates:\n";
$count = 0;
while ( $count <= $#templateset_name ) {
- if ( $count == $templateset_default ) {
- print " *";
+ if ( $templateset_id[$count] eq $templateset_default ) {
+ print " d";
+ } else {
+ print " ";
+ }
+ if ( $templateset_id[$count] eq $templateset_fallback ) {
+ print "f ";
} else {
print " ";
}
$count++;
}
-
-# FIXME: what is this stuff? it is commented out, can we just blast it?
-# opendir( DIR, "../templates" );
-# @files = readdir(DIR);
-# $pos = 0;
-#
-# while ( $cnt <= $#files ) {
-# if ( -d "../templates/" . $files[$i] && $files[$i] !~ /^\./ && $files[$i] ne "CVS" ) {
-# $filename = "../templates/" . $files[$cnt];
-# $found = 0;
-# for ( $x = 0 ; $x <= $#templateset_id ; $x++ ) {
-# if ( $theme_path[$x] eq $filename ) {
-# $found = 1;
-# }
-# }
-# }
-# $cnt++;
-# }
-# for ( $i = 0 ; $i <= $#files ; $i++ ) {
-# if ( -d "../templates/" . $files[$i] && $files[$i] !~ /^\./ && $files[$i] ne "CVS" ) {
-# $match = 0;
-# for ( $k = 0 ; $k <= $#aTemplateSets ; $k++ ) {
-# if ( $aTemplateSets[$chosen] eq $files[$i] ) {
-# $match = 1;
-# }
-# }
-# if ( $match == 0 ) {
-# $unused_plugins[$pos] = $files[$i];
-# $pos++;
-# }
-# }
-# }
-#
-# for ( $i = 0 ; $i <= $#unused_plugins ; $i++ ) {
-# $num = $num + 1;
-# print " $num. $unused_plugins[$i]\n";
-# }
-# closedir DIR;
+ print "\n d = default template set\n"
+ . " f = fallback template set\n\n";
$menu_text = ".-------------------------------------.\n"
- . "| t (detect templates set) |\n"
+ . "| t (detect template set) |\n"
. "| + (add template set) |\n"
. "| - N (remove template set) |\n"
. "| m N (mark default template set) |\n"
+ . "| f N (set fallback template set) |\n"
. "| l (list template sets) |\n"
. "| d (done) |\n"
. "|-------------------------------------|\n"
if ( $input =~ /^\s*l\s*/i ) {
$count = 0;
while ( $count <= $#templateset_name ) {
- if ( $count == $templateset_default ) {
- print " *";
+ if ( $templateset_id[$count] eq $templateset_default ) {
+ print " d";
+ } else {
+ print " ";
+ }
+ if ( $templateset_id[$count] eq $templateset_fallback ) {
+ print "f ";
} else {
print " ";
}
$count++;
}
+ print "\n d = default template set\n"
+ . " f = fallback template set\n\n";
# mark default template set
#
} elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
$old_def = $templateset_default;
- $templateset_default = $input;
- $templateset_default =~ s/^\s*m\s*//;
- if ( ( $templateset_default > $#templateset_name ) || ( $templateset_default < 0 ) ) {
- print "Cannot set default template set to $templateset_default. That template set does not exist.\n";
+ $input =~ s/^\s*m\s*//;
+ $templateset_default = $templateset_id[$input];
+ if ( $templateset_default =~ /^\s*$/ ) {
+ print "Cannot set default template set to $input. That template set does not exist.\n";
$templateset_default = $old_def;
}
+ # set fallback template set
+ #
+ } elsif ( $input =~ /^\s*f\s*[0-9]+/i ) {
+ $old_def = $templateset_fallback;
+ $input =~ s/^\s*f\s*//;
+ $templateset_fallback = $templateset_id[$input];
+ if ( $templateset_fallback =~ /^\s*$/ ) {
+ print "Cannot set fallback template set to $input. That template set does not exist.\n";
+ $templateset_fallback = $old_def;
+ }
+
# add template set
#
} elsif ( $input =~ /^\s*\+/ ) {
$nm =~ s/[\n\r]//g;
$templateset_id[ $#templateset_id + 1 ] = $filename;
$templateset_name[ $#templateset_name + 1 ] = $nm;
-# FIXME: why are these two lines here?
-# $aTemplateSet[ $#templateset_name + 1 ] = $nm;
-# $aTemplateSet[ $#templateset_id + 1 ] = $filename;
}
}
$cnt++;
$filename = $templateset_id[$cnt];
if ( !(-d change_to_rel_path('SM_PATH . \'templates/' . $filename)) ) {
print " Removing \"$filename\" (template set directory not found)\n";
- if ( $templateset_default gt $cnt ) { $templateset_default--; }
- elsif ( $templateset_default eq $cnt ) { $templateset_default = 0; }
+ if ( $templateset_default eq $filename ) { $templateset_default = 'default'; }
+ if ( $templateset_fallback eq $filename ) { $templateset_fallback = 'default'; }
$offset = 0;
@new_templateset_name = ();
@new_templateset_id = ();
} else {
$rem_num = $#templateset_name;
}
- if ( $rem_num == $templateset_default ) {
+ if ( $templateset_id[$rem_num] eq $templateset_default ) {
print "You cannot remove the default template set!\n";
+ } elsif ( $templateset_id[$rem_num] eq $templateset_fallback ) {
+ print "You cannot remove the fallback template set!\n";
} else {
$count = 0;
@new_templateset_name = ();
}
@templateset_name = @new_templateset_name;
@templateset_id = @new_templateset_id;
- if ( $templateset_default > $rem_num ) {
- $templateset_default--;
- }
}
# help
#
} elsif ( $input =~ /^\s*\?\s*/ ) {
print $menu_text;
+
+ # command not understood
+ #
+ } else {
+ print "Command not understood\n";
}
+
print "[template set] command (?=help) > ";
$input = <STDIN>;
$input =~ s/[\r\n]//g;
print "First, we need to have the hostname or the IP address where\n";
print "this LDAP server resides. Example: ldap.bigfoot.com\n";
- print "\n";
- print "You can use any URI compatible with your LDAP library. Please\n";
+ print "\n";
+ print "You can use any URI compatible with your LDAP library. Please\n";
print "note that StartTLS option is not compatible with ldaps and\n";
- print "ldapi URIs.\n";
+ print "ldapi URIs.\n";
print "hostname: ";
$name = <STDIN>;
$name =~ s/[\r\n]//g;
# Default Icon theme
sub commandB7 {
- print "You may change the path to the default icon theme to be used, if icons\n";
- print "have been enabled. This theme will be used when an icon cannot be\n";
- print "found in the current theme, or when no icon theme is specified. If\n";
- print "left blank, and icons are enabled, the default theme will be used\n";
- print "from images/themes/default/.\n";
+ print "You may change the path to the default icon theme to be used, if icons\n";
+ print "have been enabled. This theme will be used when an icon cannot be\n";
+ print "found in the current theme, or when no icon theme is specified. If\n";
+ print "left blank, and icons are enabled, the default theme will be used\n";
+ print "from images/themes/default/.\n";
print "\n";
print "To clear out an existing value, just type a space for the input.\n";
print "\n";
}
print CF "\n";
- if ( $templateset_default eq '' ) { $templateset_default = '0'; }
- print CF "\$templateset_default = $templateset_default;\n";
-# FIXME: need to make this a setting the user can change herein
-# This REALLY needs to be done, since the index of the "default"
-# set cannot always be predicted!
-# Heck, why are default and fallback indexes? If we make them
-# into the ID strings, then it would not cause such issues
-$templateset_fallback = 0;
- print CF "\$templateset_fallback = $templateset_fallback;\n";
+ if ( $icon_theme_def eq '' ) { $icon_theme_def = '0'; }
+ print CF "\$icon_theme_def = $icon_theme_def;\n";
+ if ( $icon_theme_fallback eq '' ) { $icon_theme_fallback = '0'; }
+ print CF "\$icon_theme_fallback = $icon_theme_fallback;\n";
+
+ for ( $count = 0 ; $count <= $#icon_theme_name ; $count++ ) {
+ $path = $icon_theme_path[$count];
+ if ($path eq 'none' || $path eq 'template') {
+ $path = "'".$path."'";
+ } else {
+ $path = &change_to_SM_path($icon_theme_path[$count]);
+ }
+ print CF "\$icon_themes[$count]['PATH'] = " . $path . ";\n";
+ # escape theme name so it can contain single quotes.
+ $esc_name = $icon_theme_name[$count];
+ $esc_name =~ s/\\/\\\\/g;
+ $esc_name =~ s/'/\\'/g;
+ print CF "\$icon_themes[$count]['NAME'] = '$esc_name';\n";
+ }
+ print CF "\n";
+
+ if ( $templateset_default eq '' ) { $templateset_default = 'default'; }
+ print CF "\$templateset_default = '$templateset_default';\n";
+
+ if ( $templateset_fallback eq '' ) { $templateset_fallback = 'default'; }
+ print CF "\$templateset_fallback = '$templateset_fallback';\n";
for ( $count = 0 ; $count <= $#templateset_name ; $count++ ) {
print CF "\$aTemplateSet[$count]['ID'] = '" . $templateset_id[$count] . "';\n";
# boolean
print CF "\$use_icons = $use_icons;\n";
print CF "\n";
- # string
- print CF "\$icon_theme_def = " . &change_to_SM_path($icon_theme_def) . ";\n";
# boolean
print CF "\$use_php_recode = $use_php_recode;\n";
print CF "\n";
close CF;
print "Data saved in config.php\n";
+
+ build_plugin_hook_array();
+
} else {
print "Error saving config.php: $!\n";
}
if ($folder_name =~ /[\x80-\xFFFF]/) {
print "Folder name contains 8bit characters. Configuration utility requires\n";
print "UTF7-IMAP encoded folder names.\n";
- print "Press any key to continue...";
+ print "Press enter to continue...";
my $tmp = <STDIN>;
return 0;
} elsif ($folder_name =~ /[&\*\%]/) {
$string =~ s/\'/\\'/g;
return $string;
}
+
+# parses the setup.php files for all activated plugins and
+# builds static plugin hooks array so we don't have to load
+# ALL plugins are runtime and build the hook array on every
+# page request
+#
+# hook array is saved in config/plugin_hooks.php
+#
+# Note the $verbose variable at the top of this routine
+# can be set to zero to quiet it down.
+#
+# NOTE/FIXME: we aren't necessarily interested in writing
+# a full-blown PHP parsing engine, so plenty
+# of assumptions are included herein about the
+# coding of the plugin setup files, and things
+# like commented out curly braces or other
+# such oddities can break this in a bad way.
+#
+sub build_plugin_hook_array() {
+
+ $verbose = 1;
+
+ if ($verbose) {
+ print "\n\n";
+ }
+
+ if ( open( HOOKFILE, ">plugin_hooks.php" ) ) {
+ print HOOKFILE "<?php\n";
+ print HOOKFILE "\n";
+
+ print HOOKFILE "/**\n";
+ print HOOKFILE " * SquirrelMail Plugin Hook Registration File\n";
+ print HOOKFILE " * Auto-generated using the configure script, conf.pl\n";
+ print HOOKFILE " */\n";
+ print HOOKFILE "\n";
+ print HOOKFILE "global \$squirrelmail_plugin_hooks;\n";
+ print HOOKFILE "\n";
+
+PLUGIN: for ( $ct = 0 ; $ct <= $#plugins ; $ct++ ) {
+
+ if ($verbose) {
+ print "Activating plugin \"" . $plugins[$ct] . "\"...\n";
+ }
+
+ $setup_file = '../plugins/' . $plugins[$ct] . '/setup.php';
+ if ( -e "$setup_file" ) {
+ # Make sure that file is readable
+ if (! -r "$setup_file") {
+ print "\n";
+ print "WARNING:\n";
+ print "The file \"$setup_file\" was found, but you don't\n";
+ print "have rights to read it. The plugin \"";
+ print $plugins[$ct] . "\" will not be activated until you fix this.\n";
+ print "\nPress enter to continue";
+ $ctu = <STDIN>;
+ print "\n";
+ next;
+ }
+ open( FILE, "$setup_file" );
+ $inside_init_fxn = 0;
+ $brace_count = 0;
+ while ( $line = <FILE> ) {
+
+ # throw away lines until we get to target function
+ #
+ if (!$inside_init_fxn
+ && $line !~ /^\s*function\s*squirrelmail_plugin_init_/i) {
+ next;
+ }
+ $inside_init_fxn = 1;
+
+
+ # throw away lines that are not exactly one "brace set" deep
+ #
+ if ($brace_count > 1) {
+ next;
+ }
+
+
+ # count open braces
+ #
+ if ($line =~ /{/) {
+ $brace_count++;
+ }
+
+
+ # count close braces
+ #
+ if ($line =~ /}/) {
+ $brace_count--;
+
+ # leaving <plugin>_init() function...
+ if ($brace_count == 0) {
+ close(FILE);
+ next PLUGIN;
+ }
+
+ }
+
+
+ # also not interested in lines that are not
+ # hook registration points
+ #
+ if ($line !~ /^\s*\$squirrelmail_plugin_hooks/i) {
+ next;
+ }
+
+
+ # if $line does not have an ending semicolon,
+ # we need to recursively read in subsequent
+ # lines until we find one
+ while ( $line !~ /;\s*$/ ) {
+ $line =~ s/[\n\r]\s*$//;
+ $line .= <FILE>;
+ }
+
+
+ $line =~ s/^\s+//;
+ $line =~ s/^\$//;
+ $var = $line;
+
+ $var =~ s/=/EQUALS/;
+ if ( $var =~ /^([a-z])/i ) {
+ @options = split ( /\s*EQUALS\s*/, $var );
+ $options[1] =~ s/[\n\r]//g;
+ $options[1] =~ s/[\'\"];\s*$//;
+ $options[1] =~ s/;$//;
+ $options[1] =~ s/^[\'\"]//;
+ # de-escape escaped strings
+ $options[1] =~ s/\\'/'/g;
+ $options[1] =~ s/\\\\/\\/g;
+
+ if ( $options[0] =~ /^squirrelmail_plugin_hooks\s*\[\s*['"]([a-z0-9._-]+)['"]\s*\]\s*\[\s*['"]([0-9a-z._-]+)['"]\s*\]/i ) {
+ $hook_name = $1;
+ $hooked_plugin_name = $2;
+ # Note: if we wanted to stop plugins from registering
+ # a *different* plugin on a hook, we could catch
+ # it here, however this has actually proven to be
+ # a useful *feature*
+ #if ($hooked_plugin_name ne $plugins[$ct]) {
+ # print "...plugin is tring to hook in under different name...\n";
+ #}
+
+#FIXME: do we want to count the number of hook registrations for each plugin and warn if a plugin doesn't have any?
+ # hook registration has been found!
+ if ($verbose) {
+ if ($hooked_plugin_name ne $plugins[$ct]) {
+ print " registering on hook \"" . $hook_name . "\" (as \"$hooked_plugin_name\" plugin)\n";
+ } else {
+ print " registering on hook \"" . $hook_name . "\"\n";
+ }
+ }
+ $line =~ s/ {2,}/ /g;
+ $line =~ s/=/\n =/;
+ print HOOKFILE "\$$line";
+
+ }
+
+ }
+
+ }
+ close(FILE);
+
+ } else {
+ print "\n";
+ print "WARNING:\n";
+ print "The file \"$setup_file\" was not found.\n";
+ print "The plugin \"" . $plugins[$ct];
+ print "\" will not be activated until you fix this.\n";
+ print "\nPress enter to continue";
+ $ctu = <STDIN>;
+ print "\n";
+ next;
+ }
+
+ }
+
+ print HOOKFILE "\n\n";
+ close(HOOKFILE);
+# if ($verbose) {
+ print "\nDone activating plugins; registration data saved in plugin_hooks.php\n\n";
+# }
+
+ } else {
+
+ print "\n";
+ print "WARNING:\n";
+ print "The file \"plugin_hooks.php\" was not able to be written to.\n";
+ print "No plugins will be activated until you fix this.\n";
+ print "\nPress enter to continue";
+ $ctu = <STDIN>;
+ print "\n";
+
+ }
+
+}
+
projects / squirrelmail.git / blobdiff