use Glib qw(TRUE FALSE);
use Gtk3;
use File::Which;
+use File::Spec::Functions;
use POSIX qw(setlocale);
use Locale::gettext;
use Encode;
my $locale = (defined($ENV{LC_MESSAGES}) ? $ENV{LC_MESSAGES} : $ENV{LANG});
$locale = "C" unless defined($locale);
setlocale (LC_ALL, $locale);
-bindtextdomain ($NAME, sprintf ('%s/share/locale', $PREFIX));
+bindtextdomain ($NAME, catdir ($PREFIX, 'share', 'locale'));
textdomain ($NAME);
sub _ {
my %PLHPVALUE = ();
# default config dir and file name
my $ALTCONFIGDIR = FALSE;
-my $CONFIGDIR = $ENV{HOME} . '/.claws-mail/';
+my $CONFIGDIR = catdir ($ENV{HOME}, '.claws-mail');
my $CONFIGRC = 'clawsrc';
my $ACCOUNTRC = 'accountrc';
# supported and available plugins lists
}
sub get_rc_filename {
- return $CONFIGDIR . $CONFIGRC;
+ return catfile ($CONFIGDIR, $CONFIGRC);
}
sub get_ac_rc_filename {
- return $CONFIGDIR . $ACCOUNTRC;
+ return catfile ($CONFIGDIR, $ACCOUNTRC);
}
sub get_menurc_filename {
- return $CONFIGDIR . "menurc";
+ return catfile ($CONFIGDIR, "menurc");
}
sub set_rc_filename {
my ($fullname) = @_;
- my @parts = split ('/', $fullname);
+ my @parts = splitpath ($fullname);
$CONFIGRC = $parts[$#parts];
$parts[$#parts] = '';
- $CONFIGDIR = join ('/', @parts);
+ $CONFIGDIR = catpath (@parts);
}
sub log_message {
sub check_claws_not_running {
return TRUE if $READONLY;
- my $tmpdir = (defined $ENV{TMPDIR})? $ENV{TMPDIR}: '/tmp';
- $tmpdir = '/tmp' if ($tmpdir eq '');
- my $lockdir = "$tmpdir/claws-mail-$<";
+ my $tmpdir = File::Spec->tmpdir ();
+ my $lockdir = catfile ($tmpdir, "claws-mail-$<");
-d $lockdir and do {
$_ = $CONFIGDIR;
s/\/$//;
- my $socket = "$lockdir/" . md5_hex ($_);
+ my $socket = catfile ($lockdir, md5_hex ($_));
-S $socket and return claws_is_running ();
};
return TRUE;
die _("Error: '{dir}' is not a directory or does not exist\n", dir => $value)
unless -d $value;
$CONFIGDIR = $value;
- $CONFIGDIR .= "/" unless ($CONFIGDIR =~ /.*\/$/);
$ALTCONFIGDIR = TRUE;
}
return \@APPICONS if (@APPICONS);
my @names;
if (-d $DATADIR) { # installed
- my $dir = $DATADIR . '/icons/hicolor';
+ my $dir = catdir ($DATADIR, 'icons', 'hicolor');
@names = map {
- join ('/', ($dir, $_ . 'x' . $_, 'apps', $NAME . '.png'))
+ catfile ($dir, $_ . 'x' . $_, 'apps', $NAME . '.png')
} (48, 64, 128);
} else { # unpacked tarball or git clone
@names = map {
- join ('/', ('./icons', $NAME . '-' . $_ . '.png'));
+ catfile ('.', 'icons', $NAME . '-' . $_ . '.png');
} (48, 64, 128);
}
foreach (@names) {