svragv/peertube-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add option and flag to pass flags to the video player

Browse source
This commit is contained in:
qorg11 2021-11-17 16:59:45 +01:00
parent 2c7e7fd5c3
commit e10fff11e4
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
.ptclirc
View file

@ -6,6 +6,10 @@
$config{player} = "mpv"; $config{player} = "mpv";
# Flags to pass the player, nothing by default
$config{player_flags} = "";
# Default instance to use. # Default instance to use.
$config{instance} = "https://vid.qorg11.net"; $config{instance} = "https://vid.qorg11.net";
@ -14,6 +18,8 @@ $config{instance} = "https://vid.qorg11.net";
$config{default_resolution} = 0; $config{default_resolution} = 0;
# This tells perl everything's alright # This tells perl everything's alright
1; 1;

5
peertube-cli
View file

@ -55,7 +55,8 @@ our $counter = 0;
GetOptions( GetOptions(
"instance=s" => \$config{instance}, "instance=s" => \$config{instance},
"resolution=i" => \$config{default_resolution}, "resolution=i" => \$config{default_resolution},
"player=s" => \$config{player} "player=s" => \$config{player},
"player-flags=s" => \$config{player_flags}
); );
# Main program # Main program
while (1) { while (1) {
@ -200,7 +201,7 @@ sub play_video($) {
print "Video author: $author\n"; print "Video author: $author\n";
print "Resolution: $resolution\n"; print "Resolution: $resolution\n";
`$config{player} $url`; `$config{player} $config{player_flags} $url`;
} }
sub help_prompt() { sub help_prompt() {