c62c8c13edeb882738f5c2027a4d3fdb8ac745d6
[utils.git] / anndl
1 #!/usr/bin/perl -w
2
3 use Anime::ANN;
4 use Getopt::Long qw/:config gnu_getopt/;
5
6 if(!defined($ARGV[0])) {
7     print STDERR "usage: anndl SERIES\n";
8     exit 1;
9 }
10
11 unless($id = Anime::ANN::getid $ARGV[0]) {
12     print STDERR "anndl: could not find $ARGV[0]\n";
13     exit 1;
14 }
15
16 %info = %{Anime::ANN::getseries $id};
17
18 if(!defined $info{"eps"}) {
19     print "could not find number of eps\n";
20     print "accept? ";
21     if(!(<STDIN> =~ /^y/i)) {
22         exit 1;
23     }
24 }
25
26 $name = $info{"name"};
27 print "canonical name [$name]: ";
28 chomp($newname = <STDIN>);
29 $name = $newname if $newname ne "";
30 $dirname = $ENV{"HOME"} . "/dc/autodl/cur/" . $name;
31 mkdir $dirname || die "could not create $dirname: $!";
32 mkdir "$dirname/.autodl" || die "could not create $dirname/.autodl: $!";
33 open FH, ">$dirname/.autodl/disabled" || die "could not create $dirname/.autodl/disabled: $!";
34 close FH;
35 open FH, ">$dirname/nextep" || die "could not create nextep: $!";
36 print FH "1\n";
37 close FH;
38 open FH, ">$dirname/.autodl/uarg" || die "could not create $dirname/.autodl/uarg: $!";
39 if(defined $info{"eps"}) {
40     $melen = length $info{"eps"}
41 } else {
42     $melen = 2;
43 }
44 print FH ("rename:auto:$name:$melen:move:../autodl/cur/$name\n");
45 close FH;
46 $sexpr = lc $name;
47 $sexpr =~ s/ /.*/g;
48 $sexpr = "\"L~$sexpr\[^0-9]*0*%i([^0-9]*(\\[[^]]*\\]|\\([^\\)]*\\)|v2))*[^0-9]*\\.(avi|ogm|mkv|mp4)\$\"";
49 open FH, ">$dirname/.autodl/sexpr" || die "could not create $dirname/.autodl/sexpr: $!";
50 print FH "$sexpr\n";
51 close FH;
52 print "sexpr: $sexpr\n";
53 print "accept? ";
54 if(!(<STDIN> =~ /^y/i)) {
55     system $ENV{"EDITOR"}, "$dirname/.autodl/sexpr";
56 }
57 open FH, ">$dirname/.autodl/curep" || die "could not create $dirname/.autodl/curep: $!";
58 print FH "1\n";
59 close FH;
60 if(defined $info{"eps"}) {
61     open FH, ">$dirname/.autodl/maxep" || die "could not create $dirname/.autodl/maxep: $!";
62     print FH ($info{"eps"} . "\n");
63     close FH;
64 }
65 print "begin? ";
66 if(<STDIN> =~ /^y/i) {
67     unlink "$dirname/.autodl/disabled";
68 }