Commit | Line | Data |
---|---|---|
29c59b44 FT |
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 | } |