logo

multimedia-dl

Unnamed repository; edit this file 'description' to name the repository.

kara-moe.pl (1825B)

    

  1. #!/usr/bin/env perl
  2. # Multimedia-DL: Youtube-DL inspired scraper
  3. # Copyright © 2021-2023 Multimedia-DL Authors <https://hacktivis.me/git/multimedia-dl/>
  4. # SPDX-License-Identifier: AGPL-3-only
  5. use strict;
  6. use utf8;
  7. use URI;
  8. use File::Basename;
  9. use LWP::UserAgent;
  10. use JSON;
  11. require HTTP::Request;
  13. my $ua = LWP::UserAgent->new;
  15. # Picked this one for it's stability
  16. my $webkit_ua = "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/14.0 Safari/605.1.15";
  18. $ua->agent($webkit_ua . "Multimedia-DL/1.0");
  20. if($#ARGV != 0) {
  21. 	print "usage: multimedia-dl <url>\n";
  22. 	exit 1;
  23. }
  25. # https://kara.moe/kara/shinkiro/0b880b76-c599-47b5-aa71-a7392a9c947f
  26. my $url = URI->new($ARGV[0]);
  27. my $id = basename($url->path);
  29. # https://kara.moe/api/karas/0b880b76-c599-47b5-aa71-a7392a9c947f
  30. my $api_url = URI->new_abs("/api/karas/" . $id, $url)->canonical;
  31. my $req = HTTP::Request->new(GET => $api_url);
  33. my $res = $ua->request($req);
  35. $res->is_success or die "Got ", $res->status_line, " instead of 2xx\n";
  37. my $content_type = $res->header("Content-Type");
  38. my $content_match = qr{^application/([^+]*\+)?json(; .*)?};
  40. ($content_type =~ $content_match) or die "Got $content_type instead of $content_match\n";
  42. my $kara = decode_json($res->content);
  44. my $title_lang = $kara->{'titles_default_language'};
  45. my $title = $kara->{'titles'}->{$title_lang};
  47. print STDERR "Title: ", $title, "\n";
  48. print "--title='", $title, "' ";
  50. # https://kara.moe/downloads/lyrics/JPN%20-%20GuraMarine%20-%20MV%20-%20SHINKIRO.ass
  51. my $subfile = URI->new_abs("/downloads/lyrics/" . $kara->{'subfile'}, $url)->canonical;
  52. print "--sub-file='", $subfile, "' ";
  54. # https://kara.moe/downloads/medias/JPN%20-%20GuraMarine%20-%20MV%20-%20SHINKIRO.mp4
  55. print URI->new_abs("/downloads/medias/" . $kara->{'mediafile'}, $url)->canonical;
  57. print "\n";