logo

multimedia-dl

Unnamed repository; edit this file 'description' to name the repository. git clone https://anongit.hacktivis.me/git/multimedia-dl.git/

kara-moe-dl.pl (2527B)

    

  1. #!/usr/bin/env perl
  2. # Multimedia-DL: Youtube-DL inspired scraper
  3. # Copyright © 2021 Multimedia-DL Authors <https://hacktivis.me/git/multimedia-dl/>
  4. # SPDX-License-Identifier: AGPL-3.0-only
  5. use strict;
  6. use utf8;
  7. use HTML::TreeBuilder::XPath;
  8. use URI;
  9. use LWP::UserAgent;
  10. use LWP::Simple;
  11. use File::Basename;
  12. require HTTP::Request;
  14. use JSON::MaybeXS;
  16. sub get_suffix {
  17. 	my ($str) = @_;
  18. 	$str =~ /(\.[^\/]*)$/;
  19. 	return $1;
  20. }
  22. sub download {
  23. 	my ($url, $songname) = @_;
  24. 	my $fname = $songname . get_suffix($url);
  26. 	print STDERR "Downloading: $url -> $fname\n";
  27. 	if(!mirror($url, $fname)) {
  28. 		print STDERR "Failed downloading $url: $!\n";
  29. 	}
  31. 	return $fname;
  32. }
  34. my $json = JSON::MaybeXS->new(utf8 => 1);
  35. my $ua = LWP::UserAgent->new;
  37. # Picked this one for it's stability
  38. my $webkit_ua = "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/14.0 Safari/605.1.15";
  40. $ua->agent($webkit_ua . "Multimedia-DL/1.0");
  42. if($#ARGV != 0) {
  43. 	print "usage: kara.moe <kara-id>\n";
  44. 	exit 1;
  45. }
  47. # Just in case an URL got passed
  48. my $kid = basename($ARGV[0], qr/\.[^.]*/);
  50. my $url = "https://kara.moe/api/karas/" . $kid;
  51. print STDERR "URL: $url\n";
  52. my $req = HTTP::Request->new(GET => $url);
  54. my $res = $ua->request($req) or die "$!";
  56. if($res->is_success) {
  57. 	my $content_type = $res->header("Content-Type");
  58. 	my $content_match = qr(^application/([^+]*\+)?json(; .*)?);
  60. 	if(!($content_type =~ $content_match)) {
  61. 		die "Got $content_type instead of $content_match\n";
  62. 	}
  64. 	my $blob = $json->decode($res->content) or die "Couldn't decode JSON object";
  66. 	print STDERR "Song name: ", $blob->{"songname"}, "\n";
  68. 	#if((scalar $blob->{"lyrics_infos"}) > 2)
  69. 	#{
  70. 	#	foreach \my %lyrics (@($blob->{"lyrics_infos"}))
  71. 	#	{
  72. 	#		my $songname = $blob->{"songname"} . "-" . %lyrics->{"version"};
  73. 	#		my $fname = download("https://kara.moe/downloads/lyrics/".%lyrics->{"filename"}, $songname);
  74. 	#
  75. 	#		if($blob->{"songname"}->{"default"} == $json::true)
  76. 	#		{
  77. 	#			symlink($fname, $blob->{"songname"} . get_suffix(%lyrics->{"filename"})) or warn "Failed creating symlink for lyrics: $!";
  78. 	#		}
  79. 	#	}
  80. 	#}
  81. 	#else
  82. 	#{
  83. 	#}
  85. 	if ($blob->{"lyrics_infos"}[0]->{"filename"}) {
  86. 		download("https://kara.moe/downloads/lyrics/".$blob->{"lyrics_infos"}[0]->{"filename"}, $blob->{"songname"});
  87. 	}
  88. 	if ($blob->{"mediafile"}) {
  89. 		download("https://kara.moe/downloads/medias/".$blob->{"mediafile"}, $blob->{"songname"});
  90. 	}
  91. 	if ($blob->{"karafile"}) {
  92. 		download("https://kara.moe/downloads/karaokes/".$blob->{"karafile"}, $blob->{"songname"});
  93. 	}
  94. }