Shows a brief help screen.
--verbose
- Tell more on the standard output.
+ Tells more on the standard output.
--alternate-config-dir <dir>
Uses <dir> as Claws Mail configuration dir.
=cut
use strict;
-use POSIX qw(setlocale);
-use Locale::gettext;
+use encoding 'utf8';
use Glib qw(TRUE FALSE);
use Gtk2 -init;
+use POSIX qw(setlocale);
+use Locale::gettext;
my $NAME = 'clawsker';
my $PREFIX = '@PREFIX@';
msgs_frame => _('Messages'),
stripes_frame => _('Coloured stripes'),
sbar_frame => _('Scroll bars'),
- mlist_frame => _('Message list'),
+ mlist_frame => _('Message List'),
netm_frame => _('NetworkManager'),
l_oth_use_dlg => _('Use detached address book edit dialogue'),
h_oth_use_dlg => _('If true use a separate dialogue to edit a person\'s details. Otherwise will use a form embedded in the address book\'s main window.'),
- l_oth_max_use => _('Maximum memory for message cache (Kb)'),
- h_oth_max_use => _('The maximum amount of memory to use to cache messages, in kB.'),
+ l_oth_max_use => _('Maximum memory for message cache (kB)'),
+ h_oth_max_use => _('The maximum amount of memory to use to cache messages, in kilobytes.'),
l_oth_min_time => _('Minimun time for cache elements (minutes)'),
h_oth_min_time => _('The minimum time in minutes to keep a cache in memory. Caches more recent than this time will not be freed, even if the memory usage is too high.'),
l_oth_use_netm => _('Use NetworkManager'),
h_gui_b_unread => _('Show unread messages in the Message List using a bold font.'),
l_gui_no_markup => _('Don\'t use markup in compose window'),
h_gui_no_markup => _('Don\'t use bold and italic text in Compose dialogue\'s account selector.'),
- l_gui_dot_lines => _('Use dotted lines in tree views'),
- h_gui_dot_lines => _('Use the old dotted line look in the main window tree views (folder and message lists) instead of the modern lineless look.'),
+ l_gui_dot_lines => _('Use dotted lines in tree view components'),
+ h_gui_dot_lines => _('Use the old dotted line look in the main window tree views (Folder, Message and other lists) instead of the modern lineless look.'),
l_gui_h_scroll => _('Enable horizontal scrollbar'),
h_gui_h_scroll => _('Enable the horizontal scrollbar in the Message List.'),
- l_gui_swp_from => _('Dislay To header in From field in Sent folder'),
- h_gui_swp_from => _('Display the sender\'s email address in the To column of the Sent folder instead of the recipient\'s.'),
- l_gui_v_scroll => _('Folder list scrollbar behaviour'),
+ l_gui_swp_from => _('Dislay To column instead From column in Sent folder'),
+ h_gui_swp_from => _('Display the recipient\'s email address in a To column of the Sent folder instead of the originator\'s one in a From column.'),
+ l_gui_v_scroll => _('Folder List scrollbar behaviour'),
h_gui_v_scroll => _('Specify the policy of vertical scrollbar of Folder List: show always, automatic or hide always.'),
l_gui_v_scroll_show => _('Show always'),
l_gui_v_scroll_auto => _('Automatic'),
l_gui_v_scroll_hide => _('Hide always'),
- l_gui_strip_off => _('Striped lines contrast'),
+ l_gui_strip_off => _('Coloured lines contrast'),
h_gui_strip_off => _('Specify the value to use when creating alternately coloured lines in tree view components. The smaller the value, the less visible the difference in the alternating colours of the lines.'),
l_gui_cursor_v => _('Show Cursor in message view'),
h_gui_cursor_v => _('Display the cursor in the message view.'),
l_gui_strip_all => _('Use stripes in all tree view components'),
h_gui_strip_all => _('Enable alternately coloured lines in all tree view components.'),
l_gui_strip_sum => _('Use stripes in Folder List and Message List'),
- h_gui_strip_sum => _('Enable alternately coloured lines in message list and folder list'),
+ h_gui_strip_sum => _('Enable alternately coloured lines in Message list and Folder list.'),
+ l_gui_two_line_v => _('2 lines per Message List item in 3-column layout'),
+ h_gui_two_line_v => _('Spread Message List information over two lines when using the three column mode.'),
l_beh_hover_t => _('Drag \'n\' drop hover timeout (ms)'),
h_beh_hover_t => _('Time in milliseconds that will cause a folder tree to expand when the mouse cursor is held over it during drag and drop.'),
h_beh_use_utf8 => _('Use UTF-8 encoding for broken mails instead of current locale.'),
l_beh_warn_dnd => _('Warn on drag \'n\' drop'),
h_beh_warn_dnd => _('Display a confirmation dialogue on drag \'n\' drop of folders.'),
+ l_beh_out_ascii => _('Ougoing messages fallback to ASCII'),
+ h_beh_out_ascii => _('If content allows, ASCII will be used to encode outgoing messages, otherwise the user-defined encoding is enforced always.'),
l_col_emphasis => _('X-Mailer header'),
h_col_emphasis => _('The colour used for the X-Mailer line when its value is Claws Mail.'),
l_col_log_err => _('Error messages'),
h_col_log_err => _('Colour for error messages in log window.'),
l_col_log_in => _('Server messages'),
- h_col_log_in => _('Colour for input messages in log window.'),
+ h_col_log_in => _('Colour for messages received from servers in log window.'),
l_col_log_msg => _('Standard messages'),
h_col_log_msg => _('Colour for messages in log window.'),
l_col_log_out => _('Client messages'),
- h_col_log_out => _('Colour for output messages in log window.'),
+ h_col_log_out => _('Colour for messages sent to servers in log window.'),
l_col_log_warn => _('Warnings'),
h_col_log_warn => _('Colour for warning messages in log window.'),
use constant FRAME_SPC => 2;
use constant PAGE_SPC => 5;
+# version functions
+
+sub version_greater() {
+ my ($version, $refvers) = @_;
+ my @version = split (/\./, $version);
+ my @refvers = split (/\./, $refvers);
+ while ($#version < $#refvers) {
+ push (@version, '0');
+ }
+ my $idx = 0;
+ while (($idx <= $#refvers)
+ and (int ($version[$idx]) == int ($refvers[$idx]))) {
+ ++$idx;
+ }
+ return TRUE if (($idx > $#refvers)
+ or (int ($version[$idx]) > int ($refvers[$idx])));
+ return FALSE;
+}
+
+sub get_claws_version() {
+ my @cmbin = (
+ 'claws-mail',
+ );
+ my $res = "";
+ foreach my $bin (@cmbin) {
+ $_ = qx/which $bin/;
+ chomp;
+ last if ($_ ne "");
+ }
+ return "" unless ($_); # not installed
+ $_ = qx/$_ -v/;
+ chomp;
+ my @fver = split (/ /);
+ die "Invalid version string" unless ($fver[2] eq "version");
+ my @ver = split (/\./, $fver[3]);
+ $res .= "$ver[0].";
+ $res .= "$ver[1].";
+ if ($ver[2] =~ /(\d+)cvs(\d+)/) {
+ $res .= "$1.$2";
+ }
+ else {
+ $res .= "$ver[2].0";
+ }
+ return $res;
+}
+
# data handlers and auxiliar functions
sub handle_bool_value {
my $hbox = Gtk2::HBox->new (FALSE, 5);
my $cb = Gtk2::CheckButton->new ($label);
$$hash{$key}[GUI] = $cb;
- $cb->set_active ($HPVALUE{$name} eq '1');
+ if (defined ($HPVALUE{$name})) {
+ $cb->set_active ($HPVALUE{$name} eq '1');
+ }
$cb->signal_connect (clicked => sub {
my ($w, $e) = @_;
&handle_bool_value($w, $e, \$HPVALUE{$name});
return $hbox;
}
-sub new_text_box_for {
+sub new_text_box_for_int {
my ($hash, $key) = @_;
my $name = $$hash{$key}[NAME];
my $label = $$hash{$key}[LABEL];
+ my @type = split (/,/, $$hash{$key}[TYPE]);
+ push (@type, 0), push (@type, 10000) unless ($#type > 0);
#
my $hbox = Gtk2::HBox->new (FALSE, 5);
my $glabel = Gtk2::Label->new ($label);
- my $gentry = Gtk2::Entry->new;
- $gentry->set_width_chars (8);
+ my $pagei = int (($type[2] - $type[1]) / 10);
+ my $adjust = Gtk2::Adjustment->new (
+ $HPVALUE{$name}, $type[1], $type[2], 1, $pagei, 10
+ );
+ my $gentry = Gtk2::SpinButton->new ($adjust, 1, 0);
+ $gentry->set_numeric (TRUE);
$$hash{$key}[GUI] = $gentry;
- $gentry->set_text($HPVALUE{$name});
- $gentry->signal_connect(changed => sub {
+ $gentry->signal_connect('value-changed' => sub {
my ($w, $e) = @_;
- &handle_int_value($w, $e, \$HPVALUE{$name}); # FIXME int only
+ &handle_int_value($w, $e, \$HPVALUE{$name});
});
&set_widget_hint ($gentry, $$hash{$key}[DESC]);
$hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
'cache_max_mem_usage',
$xl::s{l_oth_max_use},
$xl::s{h_oth_max_use},
- 'int',
+ 'int,0,262144', # 0 Kb - 256 Mb
'0.0.0',
'4096',
undef,
'cache_min_keep_time',
$xl::s{l_oth_min_time},
$xl::s{h_oth_min_time},
- 'int',
+ 'int,0,120', # 0 minutes - 2 hours
'0.0.0',
'15',
undef,
$ab_frame->add ($vb1);
my $mem_frame = Gtk2::Frame->new ($xl::s{mem_frame});
- my $tb_max_use = &new_text_box_for(\%pr::oth, 'max_use');
- my $tb_min_time = &new_text_box_for(\%pr::oth, 'min_time');
+ my $tb_max_use = &new_text_box_for_int(\%pr::oth, 'max_use');
+ my $tb_min_time = &new_text_box_for_int(\%pr::oth, 'min_time');
my $vb2 = Gtk2::VBox->new (FALSE, 5);
$vb2->set_border_width (PAGE_SPC);
$vb2->pack_start ($tb_max_use, FALSE, FALSE, 0);
'stripes_color_offset',
$xl::s{l_gui_strip_off},
$xl::s{h_gui_strip_off},
- 'int',
+ 'int,0,10000', # no idea what this number means
'0.0.0',
'4000',
undef,
'1',
undef,
],
+ two_linev => [
+ 'two_line_vertical',
+ $xl::s{l_gui_two_line_v},
+ $xl::s{h_gui_two_line_v},
+ 'bool',
+ '3.4.0.7',
+ '0',
+ undef,
+ ],
);
sub new_gui_page() {
my $stripes_frame = Gtk2::Frame->new ($xl::s{stripes_frame});
my $cb_strip_all = &new_check_button_for (\%pr::gui, 'strip_all');
my $cb_strip_sum = &new_check_button_for (\%pr::gui, 'strip_sum');
- my $tb_strip_off = &new_text_box_for (\%pr::gui, 'strip_off');
+ my $tb_strip_off = &new_text_box_for_int (\%pr::gui, 'strip_off');
my $vb1 = Gtk2::VBox->new (FALSE, 5);
$vb1->set_border_width (PAGE_SPC);
$vb1->pack_start ($cb_strip_all, FALSE, FALSE, 0);
my $cb_dot_lines = &new_check_button_for (\%pr::gui, 'dot_lines');
my $cb_cursor_v = &new_check_button_for (\%pr::gui, 'cursor_v');
my $cb_toolbar_d = &new_check_button_for (\%pr::gui, 'toolbar_d');
+ my $cb_two_linev = &new_check_button_for (\%pr::gui, 'two_linev');
$gf->pack_start ($stripes_frame, FALSE, FALSE, FRAME_SPC);
$gf->pack_start ($mlist_frame, FALSE, FALSE, FRAME_SPC);
$gf->pack_start ($cb_dot_lines, FALSE, FALSE, 0);
$gf->pack_start ($cb_cursor_v, FALSE, FALSE, 0);
$gf->pack_start ($cb_toolbar_d, FALSE, FALSE, 0);
+ $gf->pack_start ($cb_two_linev, FALSE, FALSE, 0);
$gf->pack_start ($sbar_frame, FALSE, FALSE, FRAME_SPC);
return $gf;
'hover_timeout',
$xl::s{l_beh_hover_t},
$xl::s{h_beh_hover_t},
- 'int',
+ 'int,100,3000', # 0.1 seconds - 3 seconds
'0.0.0',
'500',
undef,
'statusbar_update_step',
$xl::s{l_beh_up_step},
$xl::s{h_beh_up_step},
- 'int',
+ 'int,1,200', # 1 item - 200 items
'0.0.0',
'10',
undef,
'thread_by_subject_max_age',
$xl::s{l_beh_thread_a},
$xl::s{h_beh_thread_a},
- 'int',
+ 'int,1,30', # 1 day - 30 days
'0.0.0',
'10',
undef,
'1',
undef,
],
+ out_ascii => [
+ 'outgoing_fallback_to_ascii',
+ $xl::s{l_beh_out_ascii},
+ $xl::s{h_beh_out_ascii},
+ 'bool',
+ '3.4.0.37',
+ '1',
+ undef,
+ ],
);
sub new_behaviour_page() {
$bf->set_border_width (PAGE_SPC);
my $dnd_frame = Gtk2::Frame->new ($xl::s{dnd_frame});
- my $tb_hoover_t = &new_text_box_for (\%pr::beh, 'hover_t');
+ my $tb_hoover_t = &new_text_box_for_int (\%pr::beh, 'hover_t');
my $cb_warn_dnd = &new_check_button_for (\%pr::beh, 'warn_dnd');
my $vb1 = Gtk2::VBox->new (FALSE, 5);
$vb1->set_border_width (PAGE_SPC);
$hb1->pack_start ($cb_unsafe_ssl, FALSE, FALSE, 0);
$ssl_frame->add ($hb1);
- my $tb_up_step = &new_text_box_for (\%pr::beh, 'up_step');
- my $tb_thread_a = &new_text_box_for (\%pr::beh, 'thread_a');
+ my $tb_up_step = &new_text_box_for_int (\%pr::beh, 'up_step');
+ my $tb_thread_a = &new_text_box_for_int (\%pr::beh, 'thread_a');
my $msgs_frame = Gtk2::Frame->new ($xl::s{msgs_frame});
my $cb_flowed = &new_check_button_for (\%pr::beh, 'flowed');
my $cb_parts_rw = &new_check_button_for (\%pr::beh, 'parts_rw');
my $cb_use_utf8 = &new_check_button_for (\%pr::beh, 'use_utf8');
my $cb_dangerous = &new_check_button_for (\%pr::beh, 'dangerous');
+ my $cb_out_ascii = &new_check_button_for (\%pr::beh, 'out_ascii');
my $vb2 = Gtk2::VBox->new (FALSE, 5);
$vb2->set_border_width (PAGE_SPC);
$vb2->pack_start ($cb_flowed, FALSE, FALSE, 0);
$vb2->pack_start ($cb_parts_rw, FALSE, FALSE, 0);
$vb2->pack_start ($cb_use_utf8, FALSE, FALSE, 0);
$vb2->pack_start ($cb_dangerous, FALSE, FALSE, 0);
+ $vb2->pack_start ($cb_out_ascii, FALSE, FALSE, 0);
$msgs_frame->add ($vb2);
$bf->pack_start ($dnd_frame, FALSE, FALSE, FRAME_SPC);
return $cf;
}
-# the command line help
-sub print_help() {
- my $line = '-' x length ($xl::s{about_title}) . "\n";
- print $line;
+# version info
+sub print_version() {
print $xl::s{about_title} . "\n";
print $xl::s{about_version} . " $VERSION\n";
print "Perl-GLib " . $Glib::VERSION;
&Gtk2::minor_version, &Gtk2::micro_version);
}
print "\n";
+}
+
+# the command line help
+sub print_help() {
+ my $line = '-' x length ($xl::s{about_title}) . "\n";
+ print $line;
+ print $xl::s{about_title} . "\n";
print $line;
print _("Syntax:\n");
print _(" clawsker [options]\n");
print _("Options:\n");
print _(" --help Prints this help screen.\n");
+ print _(" --version Prints version infos.\n");
print _(" --verbose More messages on standard output.\n");
print _(" --alternate-config-dir <dir> Uses <dir> as Claws Mail config dir.\n");
print _(" --clawsrc <file> Uses <file> as full resource name.\n");
&print_help;
return FALSE;
};
+ /--version/ && do {
+ &print_version;
+ return FALSE;
+ };
/--verbose/ && do {
$VERBOSE = TRUE;
last;
&command_line_fatal ($xl::s{e_notadir})
unless -d $ARGV[$arg];
$CONFIGDIR = $ARGV[$arg];
+ $CONFIGDIR .= "/"
+ unless ($CONFIGDIR =~ /.*\/$/);
$ALTCONFIGDIR = TRUE;
last;
};