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

9
peertube-cli
View file

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