Permalink
Browse files

Improved security: access_token and refresh_token are not stored insi…

…de the configuration file anymore;

The same tokens are shared between the CLI and GTK2 version; (this is true for the .cat files too)
Term::ReadKey is not used anymore.
Improved the code for the get_term_width() function;
Updated the Build.PL: "threads" and "Thread::Queue" are no longer recommended for gtk-youtube-viewer;
Removed the 'prefer_webm' option. WebM is preferd by default;
Removed the 'donate' button.
Version 3.0.9 is almost ready for release.
  • Loading branch information...
1 parent 962f2eb commit de4a73eeaf3c2e5a4131b29ad92fd16bf280879a @trizen committed Nov 11, 2013
View
@@ -9,73 +9,96 @@ use Module::Build;
my $gtk_youtube_viewer = 0;
my $builder = Module::Build->new(
- module_name => 'WWW::YoutubeViewer',
- license => 'perl',
- dist_author => q{Șuteu "Trizen" Daniel <trizenx@gmail.com>},
- dist_version_from => 'lib/WWW/YoutubeViewer.pm',
- build_requires => {'Test::More' => 0},
- configure_requires => {'Module::Build' => 0},
- get_options => {
+ module_name => 'WWW::YoutubeViewer',
+ license => 'perl',
+ dist_author => q{Daniel "Trizen" Șuteu <trizenx@gmail.com>},
+ dist_version_from => 'lib/WWW/YoutubeViewer.pm',
+ release_status => 'stable',
+
+ build_requires => {
+ 'Test::More' => 0,
+ },
+
+ configure_requires => {
+ 'Module::Build' => 0,
+ },
+
+ get_options => {
'gtk-youtube-viewer' => {
type => '!',
store => \$gtk_youtube_viewer,
},
},
+
auto_features => {
+
shuffle_playlists_support => {
- description => "Shuffle the playlists before playing (--shuffle, -s)",
+ description => "To shuffle the playlists (--shuffle, -s)",
requires => {
'List::Util' => 0,
},
},
+
https_support => {
description => "HTTPS protocol support and authentication support",
requires => {
+ 'MIME::Base64' => 0,
'LWP::Protocol::https' => 0,
},
},
+
post_comments_support => {
- description => "Post YouTube comments to videos",
+ description => "For posting comments to videos",
requires => {
'File::Temp' => 0,
'LWP::Protocol::https' => 0,
},
},
+
channels_support => {
description => "Search for YouTube channels",
requires => {
'HTML::Entities' => 0,
},
},
+
fixed_width_support => {
description => "Print the results in a fixed-width format (--fixed-width, -W)",
requires => {
'Text::CharWidth' => 0,
},
},
- },
+ (
+ $gtk_youtube_viewer
+ ? (
+ threads_support => {
+ description => "Threads support for gtk-youtube-viewer. (with use_threads => 1)",
+ requires => {
+ 'threads' => 0,
+ 'Thread::Queue' => 0,
+ },
+ },
+ )
+ : ()
+ ),
+
+ },
+
add_to_cleanup => ['WWW-YoutubeViewer-*'],
create_makefile_pl => 'traditional',
);
$builder->recommends(
- 'Term::ReadKey' => 0, # to get the terminal width
- 'Term::ReadLine::Gnu::XS' => 0, # for a better user input support
- 'XML::Fast' => 0, # faster XML to HASH conversion.
-
- $gtk_youtube_viewer
- ? (
- 'threads' => 0, # threads support
- 'Thread::Queue' => 0, # threads support
- )
- : (),
-);
+ 'Term::ReadLine::Gnu::XS' => 0, # for a better user input support
+ 'XML::Fast' => 0, # faster XML to HASH conversion.
+ );
$builder->requires(
'perl' => '5.016',
'Data::Dump' => 0,
'File::Spec::Functions' => 0,
+ 'File::Basename' => 0,
'File::Path' => 0,
'Getopt::Long' => 0,
'HTTP::Request' => 0,
@@ -94,7 +117,7 @@ $builder->requires(
$builder->script_files(['bin/youtube-viewer', ($gtk_youtube_viewer ? 'bin/gtk-youtube-viewer' : ())]);
$builder->create_build_script();
-# Intalling files for GTK YouTube Viewer
+# Intalling the files for GTK YouTube Viewer
if ($gtk_youtube_viewer) {
use autouse 'File::Basename' => qw(dirname);
@@ -128,9 +151,7 @@ if ($gtk_youtube_viewer) {
foreach my $dest (
[catfile($main_share_dir, $desktop_file) => catfile($applications_dir, $desktop_file)],
- [catfile($main_dir, qw(bin youtube-viewer)) =>
- catfile($gtk_youtube_viewer_dir, qw(youtube-viewer))
- ],
+ [catfile($main_dir, qw(bin youtube-viewer)) => catfile($gtk_youtube_viewer_dir, qw(youtube-viewer))],
[catfile($main_share_dir, $glade_file) => catfile($gtk_youtube_viewer_dir, $glade_file)],
) {
copy($dest->[0], $dest->[1]) or die "Can't copy `$dest->[0]' to `$dest->[1]': $!";
@@ -4,6 +4,7 @@ Build.PL
Changes
ignore.txt
lib/WWW/YoutubeViewer.pm
+lib/WWW/YoutubeViewer/AuthToken.pm
lib/WWW/YoutubeViewer/GetCaption.pm
lib/WWW/YoutubeViewer/Itags.pm
lib/WWW/YoutubeViewer/ParseXML.pm
@@ -0,0 +1,73 @@
+
+#!start included /usr/share/perl5/core_perl/ExtUtils/MANIFEST.SKIP
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+\bSCCS\b
+,v$
+\B\.svn\b
+\B\.git\b
+\B\.gitignore\b
+\b_darcs\b
+\B\.cvsignore$
+
+# Avoid VMS specific MakeMaker generated files
+\bDescrip.MMS$
+\bDESCRIP.MMS$
+\bdescrip.mms$
+
+# Avoid Makemaker generated and utility files.
+\bMANIFEST\.bak
+\bMakefile$
+\bblib/
+\bMakeMaker-\d
+\bpm_to_blib\.ts$
+\bpm_to_blib$
+\bblibdirs\.ts$ # 6.18 through 6.25 generated this
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build/
+\bBuild.bat$
+\bBuild.COM$
+\bBUILD.COM$
+\bbuild.com$
+
+# Avoid temp and backup files.
+~$
+\.old$
+\#$
+\b\.#
+\.bak$
+\.tmp$
+\.#
+\.rej$
+
+# Avoid OS-specific files/dirs
+# Mac OSX metadata
+\B\.DS_Store
+# Mac OSX SMB mount metadata files
+\B\._
+
+# Avoid Devel::Cover and Devel::CoverX::Covered files.
+\bcover_db\b
+\bcovered\b
+
+# Avoid MYMETA files
+^MYMETA\.
+#!end included /usr/share/perl5/core_perl/ExtUtils/MANIFEST.SKIP
+
+# Avoid configuration metadata file
+^MYMETA\.
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\bBuild.bat$
+\b_build
+\bBuild.COM$
+\bBUILD.COM$
+\bbuild.com$
+^MANIFEST\.SKIP
+
+# Avoid archives of this distribution
+\bWWW-YoutubeViewer-[\d\.\_]+
@@ -1,7 +1,7 @@
{
"abstract" : "A very easy interface to YouTube.",
"author" : [
- "Șuteu \"Trizen\" Daniel <trizenx@gmail.com>"
+ "Daniel \"Trizen\" Șuteu <trizenx@gmail.com>"
],
"dynamic_config" : 1,
"generated_by" : "Module::Build version 0.4008, CPAN::Meta::Converter version 2.132830",
@@ -26,12 +26,12 @@
},
"runtime" : {
"recommends" : {
- "Term::ReadKey" : "0",
"Term::ReadLine::Gnu::XS" : "0",
"XML::Fast" : "0"
},
"requires" : {
"Data::Dump" : "0",
+ "File::Basename" : "0",
"File::Path" : "0",
"File::Spec::Functions" : "0",
"Getopt::Long" : "0",
@@ -57,7 +57,7 @@
},
"WWW::YoutubeViewer::Itags" : {
"file" : "lib/WWW/YoutubeViewer/Itags.pm",
- "version" : "0.02"
+ "version" : "0.03"
},
"WWW::YoutubeViewer::ParseXML" : {
"file" : "lib/WWW/YoutubeViewer/ParseXML.pm",
@@ -1,7 +1,7 @@
---
abstract: 'A very easy interface to YouTube.'
author:
- - "Șuteu \"Trizen\" Daniel <trizenx@gmail.com>"
+ - "Daniel \"Trizen\" Șuteu <trizenx@gmail.com>"
build_requires:
Test::More: 0
configure_requires:
@@ -22,7 +22,7 @@ provides:
version: 0.01
WWW::YoutubeViewer::Itags:
file: lib/WWW/YoutubeViewer/Itags.pm
- version: 0.02
+ version: 0.03
WWW::YoutubeViewer::ParseXML:
file: lib/WWW/YoutubeViewer/ParseXML.pm
version: 0.03
@@ -33,11 +33,11 @@ provides:
file: lib/WWW/YoutubeViewer/Utils.pm
version: 0.02
recommends:
- Term::ReadKey: 0
Term::ReadLine::Gnu::XS: 0
XML::Fast: 0
requires:
Data::Dump: 0
+ File::Basename: 0
File::Path: 0
File::Spec::Functions: 0
Getopt::Long: 0
@@ -7,6 +7,7 @@ WriteMakefile
'VERSION_FROM' => 'lib/WWW/YoutubeViewer.pm',
'PREREQ_PM' => {
'Data::Dump' => 0,
+ 'File::Basename' => 0,
'File::Path' => 0,
'File::Spec::Functions' => 0,
'Getopt::Long' => 0,
Oops, something went wrong.

0 comments on commit de4a73e

Please sign in to comment.