blob: c45f3e677f173de1c5c8b0599e2acaadf8a6cb6a (
plain) (
tree)
|
|
#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Path::Tiny;
use HTTP::Simple;
use Getopt::Long;
my %options;
GetOptions(
\%options,
qw{ verbose help }
) or die "Error in command line arguments\n";
if ($options{help}) {
say "pyxis is a simple twtxt client.
Commands:
fetch
Fetch latest feeds.
Options:
--verbose
Verbose operation mode.
--help
Print this help.";
exit 0;
}
# $feeds_dir will store user's feeds.
my $feeds_dir = $ENV{XDG_DATA_HOME} || "$ENV{HOME}/.local/share";
$feeds_dir .= "/pyxis";
# Create $feeds_dir.
path($feeds_dir)->mkpath;
# Config file for pyxis.
my $config_file = $ENV{XDG_CONFIG_HOME} || "$ENV{HOME}/.config";
$config_file .= "/pyxis.pl";
require "$config_file";
my %feeds = get_feeds();
my %dispatch = (
fetch => sub {
require HTTP::Tiny;
my $http = HTTP::Tiny->new(verify_SSL => 1);
foreach my $feed (sort keys %feeds) {
my $url = $feeds{$feed};
my $file = "$feeds_dir/$feed";
my $res = $http->mirror($url, $file);
$res->{success}
? do {say "$feed updated" if $options{verbose}}
: warn "failed to fetch $feed - $url\n"
}
},
);
if ($ARGV[0] and $dispatch{$ARGV[0]}) {
$dispatch{$ARGV[0]}->();
} else {
die "pyxis: no such option\n";
}
|