blob: 3c3c36c2a3fb715ddd4d79659d841e011b8c6f9c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#!/usr/local/bin/perl
use strict;
use warnings;
use File::Copy;
use constant {
WP_FILE => '/usr/home/jozan/Pictures/wallpaper.jpg',
WP_POOL => '/usr/home/jozan/Pictures/wallpapers/'
};
use constant FEH_PATH => '/usr/local/bin/feh';
sub get_pool_files
{
my @files;
my $i;
$i = 0;
opendir(DIR, WP_POOL) or die "Couldn't open directory " . WP_POOL . ": $!";
while ($files[$i] = readdir(DIR)) {
next if $files[$i] =~ /^\./;
$i++;
}
closedir(DIR);
return @files;
}
sub choose_and_copy
{
my @files = (@_);
my $rand;
my $i;
$rand = int(rand(@files - 1));
copy($files[$rand], WP_FILE);
return;
}
sub set_wp
{
my $screens = ($_[0]);
if ($screens == 0) {
# get them screens
}
return;
}
sub main
{
choose_and_copy(get_pool_files());
if ($#ARGV + 1 > 0) {
set_wp($ARGV[0]);
}
else {
set_wp(0);
}
return;
}
main();
__END__
|
