+2008-12-12 12:53 mones 0.5.0svn209
+
+ * clawsker
+ Get claws-mail version as global
+ Add undocumented option to set it manually
+
2008-11-24 07:23 mones 0.5.0svn207
* clawsker
my $LIBDIR = '@LIBDIR@';
my $VERSION = '@VERSION@';
my $VERBOSE = FALSE;
+my $CLAWSV = undef;
my $main_window = undef;
my $locale = (defined($ENV{LC_MESSAGES}) ? $ENV{LC_MESSAGES} : $ENV{LANG});
&Gtk2::minor_version, &Gtk2::micro_version);
}
print "\n";
- my $clawsver = &get_claws_version;
- $clawsver = ($clawsver eq "") ?
+ my $clawsver = ($CLAWSV eq "") ?
_("was not found!") :
- (_("returned version ") . $clawsver);
+ (_("returned version ") . $CLAWSV);
print "Claws Mail " . $clawsver . "\n";
}
# parse the command line
sub parse_command_line() {
+ $CLAWSV = &get_claws_version;
my $arg = 0;
while (defined($ARGV[$arg])) {
for ($ARGV[$arg]) {
$VERBOSE = TRUE;
last;
};
+ /--use-claws-version/ && do {
+ ++$arg;
+ &command_line_fatal ("required version")
+ unless defined($ARGV[$arg]);
+ &command_line_fatal ("required a dotted numeric value")
+ unless ($ARGV[$arg] =~ /[\d\.]+/);
+ $CLAWSV = $ARGV[$arg];
+ };
/--alternate-config-dir/ && do {
++$arg;
&command_line_fatal ($xl::s{e_requireddir})