4 # Copyright (C) 2010-2011 Toni Gundogdu <legatvs@cpan.org>
6 # This program is free software: you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation, either version 3 of the License, or
9 # (at your option) any later version.
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with this program. If not, see <http://www.gnu.org/licenses/>.
26 binmode STDOUT
, ":utf8";
27 binmode STDERR
, ":utf8";
29 use version
0.77 (); our $VERSION = version
->declare("0.2.1");
31 use Getopt
::ArgvFile
(home
=> 1, startupFilename
=> [qw(.umphrc)]);
32 use Getopt
::Long
qw(:config bundling);
39 eval "require Umph::Prompt";
40 my $p = $@ ?
"" : " with Umph::Prompt version $Umph::Prompt::VERSION";
41 say "umph version $VERSION$p";
48 Pod
::Usage
::pod2usage
(-exitstatus
=> 0, -verbose
=> 1);
51 use constant MAX_RESULTS_LIMIT
=> 50; # Refer to http://is.gd/OcSjwU
54 sub check_max_results_value
56 if ($config{max_results
} > MAX_RESULTS_LIMIT
)
59 "WARNING --max-results exceeds max. accepted value, using "
62 $config{max_results
} = MAX_RESULTS_LIMIT
;
68 if ($config{'interactive'} and not eval 'require Umph::Prompt')
71 qq/WARNING Umph::Prompt not found, ignoring --interactive option/;
72 $config{interactive
} = 0;
81 'start_index|start-index|s=i',
82 'max_results|max-results|m=i',
90 'version' => \
&print_version
,
91 'help' => \
&print_help
,
94 print_help
if scalar @ARGV == 0;
96 $config{type
} ||= 'p'; # Default to "playlist".
97 $config{start_index
} ||= 1; # Default to 1.
98 $config{max_results
} ||= 25; # Default 25.
100 check_max_results_value
;
104 sub spew_qe
{print STDERR
@_ unless $config{quiet
}}
111 spew_qe
"Checking ... ";
114 my $a = new LWP
::UserAgent
;
115 $a->env_proxy; # http://search.cpan.org/perldoc?LWP::UserAgent
116 $a->proxy('http', $config{proxy
}) if $config{proxy
};
117 $a->no_proxy('') if $config{no_proxy
};
120 my $p = new XML
::DOM
::Parser
(LWP_UserAgent
=> $a);
121 my $s = $config{start_index
};
122 my $m = $config{all
} ? MAX_RESULTS_LIMIT
: $config{max_results
};
126 my $doc = $p->parsefile(from_arg
($ARGV[0], $s, $m));
127 my $root = $doc->getDocumentElement;
129 for my $entry ($root->getElementsByTagName("entry"))
131 my $t = to_item
($entry, "title")->getFirstChild->getNodeValue;
133 to_item
($entry, "link")->getAttributeNode("href")->getValue;
134 my %data = (title
=> $t, url
=> $l, selected
=> 1);
136 spew_qe
((++$n % 5 == 0) ?
" " : ".");
141 last if $n == 0 or not $config{all
};
146 croak
"error: nothing found\n" if scalar @items == 0;
148 open_prompt
() if $config{interactive
};
150 say qq/{\n "video": [/ if $config{json
};
156 if ($_->{selected
} or not $config{interactive
})
160 my $t = $_->{title
} || "";
167 say qq/ "title": "$t",/;
168 say qq/ "url": "$_->{url}"/;
171 elsif ($config{csv
}) {say qq/"$t","$_->{url}"/}
172 else {say "$_->{url}"}
176 say "\n ]\n}" if $config{json
};
180 use constant GURL
=> "http://gdata.youtube.com/feeds/api";
184 my ($arg0, $s, $m) = @_;
187 if ($config{type
} eq "u" or $config{type
} eq "uploads")
189 $u = GURL
. "/users/$arg0/uploads?v=2";
191 elsif ($config{type
} eq "f" or $config{type
} eq "favorites")
193 $u = GURL
. "/users/$arg0/favorites?v=2";
198 $u = GURL
. "/playlists/$arg0?v=2";
201 $u .= "&start-index=$s";
202 $u .= "&max-results=$m";
207 my ($entry, $name) = @_;
208 $entry->getElementsByTagName($name)->item(0);
213 my $p = new Umph
::Prompt
(
219 $p->exit(\
@items, $args);
223 $p->display(\
@items, $args);
227 $p->max_shown_items(@
{$args});
231 $p->select(\
@items, $args);
237 {cmd
=> 'normal', desc
=> 'print results in default format'};
238 push @a, {cmd
=> 'json', desc
=> 'print results in json'};
239 push @a, {cmd
=> 'csv', desc
=> 'print results in csv'};
245 say STDERR
"=> print in default format";
250 say STDERR
"=> print in json";
255 say STDERR
"=> print in csv";
259 # Callbacks. All of these are optional.
262 $p->toggle(\
@items, $args);
264 onitems
=> sub {return \
@items},
267 $p->display(\
@items, $args);
270 # Other (required) settings
271 total_items
=> scalar @items,
272 prompt_msg
=> 'umph',
273 max_shown_items
=> 20
276 say STDERR
qq/Enter prompt. Type "help" to get a list of commands./;
284 umph [-q] [-i] [--csv | --json] [--type=E<lt>valueE<gt>]
285 [--proxy=E<lt>addrE<gt> | --no-proxy]
286 [--all | [--start-index=E<lt>valueE<gt>] [--max-results=E<lt>valueE<gt>]
287 [--help] E<lt>playlist_idE<gt> | E<lt>usernameE<gt>
291 --help Print help and exit
292 --version Print version and exit
294 -i, --interactive Run in interactive mode
295 -t, --type arg (=p) Get feed type
296 -s, --start-index arg (=1) Index of first matching result
297 -m, --max-results arg (=25) Max number of results included
298 -a, --all Get all items
299 --json Print details in JSON
300 --csv Print details in CSV
301 --proxy arg (=http_proxy) Use proxy for HTTP connections
302 --no-proxy Disable use of HTTP proxy
306 # vim: set ts=2 sw=2 tw=72 expandtab: