26 lines
652 B
Plaintext
26 lines
652 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use File::Slurp;
|
||
|
|
use Data::Dumper;
|
||
|
|
use v5.10;
|
||
|
|
use POSIX qw(strftime);
|
||
|
|
|
||
|
|
my $launcher = $ARGV[0];
|
||
|
|
|
||
|
|
my $launcher_dir = "$ENV{HOME}/.config/xfce4/panel/launcher-$launcher";
|
||
|
|
|
||
|
|
my @desktop_files = glob("$launcher_dir/*.desktop");
|
||
|
|
mkdir "$ENV{HOME}/log/xfce-xterm-launcher/";
|
||
|
|
open my $log, ">>", "$ENV{HOME}/log/xfce-xterm-launcher/" . strftime("%Y-%m", localtime);
|
||
|
|
|
||
|
|
my $i = 0;
|
||
|
|
for (@desktop_files) {
|
||
|
|
my $content = read_file($_);
|
||
|
|
my ($exec) = $content =~ m/^Exec=xterm -e (.*)/m;
|
||
|
|
next unless defined $exec;
|
||
|
|
my $age = -A "$ENV{HOME}/bin/hosts/$exec";
|
||
|
|
say $log join("\t", $^T, ++$i, $exec, $age);
|
||
|
|
}
|