onemanga-loader-mod/onemangaloader

   1 #!/usr/bin/perl
   2 #One Manga loader 0.2 alpha
   3 #by BlackLotus
   4 #maxmusterm@gmail.com
   5 #don't bother me how bad this script is ... i was bored
   6
   7 use LWP::Simple;
   8
   9 $url="http://www.onemanga.com";
  10 $seite=get($url);
  11 print "Enter a search string:\n";
  12 $buchstabe=<stdin>;
  13 chomp($buchstabe);
  14 while ($seite =~ m/<option value="(.+)">(.+)<\/option>/g){
  15         $urllink=$1;
  16         $name=$2;
  17         if($name =~ m/^$buchstabe/i){
  18                 $i++;
  19                 print "$i: $name\n";
  20                 $mangas[$i]="$urllink";
  21         }
  22 }
  23 $maximal=$i;
  24
  25 $nummer=<stdin>;
  26 chomp($nummer);
  27 if ($nummer>$maximal){
  28         print "Zu groß";
  29         exit;
  30 }
  31
  32 $mangalink="$url/".$mangas[$nummer];
  33 print "$mangalink\n";
  34 $seite=get($mangalink);
  35 if ($seite =~ m/<td class="ch-subject"><a href="\/(.+)\/(\d+)\/">(.+)<\/a>/){
  36         print "$1 has $2 chapters.\nEnter a range (foo-bar):";
  37 }
  38 $range=<stdin>;
  39 if($range =~ m/(\d+)\-(\d+)/){
  40         $foo=$1;
  41         $bar=$2;
  42         print "Downloading chapters $foo to $bar\n";
  43 }
  44
  45 for ($i=$foo;$i<=$bar;$i++){
  46         mkdir("$i",0777);
  47
  48         $ignorechap = 0;
  49         $seite = get("$mangalink/$i/01");
  50         unless ($seite =~ m/<img class=".+" src=".+" alt=".+" \/>/){
  51                 $seite = get("$mangalink/$i/01-02");
  52                 unless ($seite =~ m/<img class=".+" src=".+" alt=".+" \/>/){
  53                         $seite = get("$mangalink/$i/Page01");
  54                         unless ($seite =~ m/<img class=".+" src=".+" alt=".+" \/>/){
  55                                 $seite = get("$mangalink/$i/Page01-02");
  56                                 unless ($seite =~ m/<img class=".+" src=".+" alt=".+" \/>/){
  57                                         $seite = get("$mangalink/$i/00-01");
  58                                         unless ($seite =~ m/<img class=".+" src=".+" alt=".+" \/>/){
  59                                                 $seite = get("$mangalink/$i/001");
  60                                                 unless ($seite =~ m/<img class=".+" src=".+" alt=".+" \/>/){
  61                                                         print "Could not find URL. Ignoring chapter.\n";
  62                                                         $ignorechap = 1;
  63                                                 }
  64                                         }
  65                                 }
  66                         }
  67                 }
  68         }
  69
  70         if($ignorechap == 0){
  71                 $j=0;
  72                 while ($seite =~ m/<option value="(.+)".*>(.+)<\/option>/g){
  73                         $dings=$2;
  74                         $liste["$j"]="$dings";
  75                         $j=$j+1;
  76                 }
  77                 if ($seite =~ m/<img class=".+" src="(.+)\/.+.(jpg|jpeg)" alt=".+" \/>/){
  78                         $hauptlink=$1;
  79                 }
  80                 print "URL: $hauptlink\n";
  81                 foreach $eintrag (@liste){
  82                         $boah="$hauptlink/$eintrag.jpg";
  83                         print "Try to load $boah in $i/$eintrag.jpg ";
  84                         mirror("$boah","$i/$eintrag.jpg");
  85                         if (-e "$i/$eintrag.jpg"){
  86                                 print "Loaded\n";
  87                         }else{
  88                                 mirror("$hauptlink/".$eintrag.".jpg","$i/$eintrag.jpg");
  89                                 print "Reloaded\n";
  90                         }
  91                 }
  92         }
  93 }
  94 sub reload{
  95         ($link,$file)=@_;
  96         print "Try to reload $link to $file\n";
  97         mirror("$link","$file");
  98         if (-e "$file"){
  99                 print "RELoaded!\n";
 100         }else{
 101                 reload($link,$file);
 102         }
 103 }