lsanime

   1 #!/usr/bin/perl
   2
   3 use Getopt::Long;
   4 use Term::ReadKey;
   5
   6 GetOptions(\%options, 'k', 'i', 't');
   7
   8 if(@ARGV > 0) {
   9     chdir($ARGV[0]);
  10 }
  11 while($dir = <*>) {
  12     if(-d $dir) {
  13         $fl = {};
  14         if(-r "$dir/nextep") {
  15             open NE, "$dir/nextep" || die;
  16             $ne = "";
  17             $ne += $_ while <NE>;
  18             close NE;
  19             if($ne == 1) {
  20                 $fl->{"first"} = 1;
  21             } else {
  22                 $fl->{"act"} = 1;
  23             }
  24             $dirs{$dir} = $ne;
  25             if(-r "$dir/.autodl/curep" && -r "$dir/.autodl/rtinfo") {
  26                 open DE, "$dir/.autodl/curep" || die;
  27                 $de = "";
  28                 $de += $_ while <DE>;
  29                 close DE;
  30                 if($ne < $de) {
  31                     $fl->{"hasmore"} = 1;
  32                 } else {
  33                     $fl->{"nomore"} = 1;
  34                 }
  35             }
  36         }
  37         if(-r "$dir/.flags") {
  38             open FL, "$dir/.flags" || die;
  39             while(<FL>) {
  40                 chomp;
  41                 $fl->{$_} = 1;
  42             }
  43             close FL;
  44         }
  45         $dirs{$dir} = $fl;
  46     }
  47 }
  48 if(! -t STDOUT) {
  49     die "not on a tty";
  50 }
  51 for (keys %dirs) {
  52     $cns = $options{"k"} == $dirs{$_}->{"kaka"};
  53     # $cns = 0 if $dirs{$_}->{"notdone"} && !$options{"i"};
  54     if($cns) {
  55         if($dirs{$_}->{"lp"}) {
  56             $nc = 31;
  57         } elsif($dirs{$_}->{"first"}) {
  58             $nc = 32;
  59         } elsif($dirs{$_}->{"hasmore"}) {
  60             $nc = 36;
  61         } elsif($dirs{$_}->{"nomore"}) {
  62             $nc = 35;
  63         } elsif($dirs{$_}->{"act"}) {
  64             $nc = 33;
  65         } else {
  66             $nc = 34;
  67         }
  68     } else {
  69         $nc = 34;
  70     }
  71     if($options{"t"} && ($nc == 34)) {
  72         delete $dirs{$_};
  73     } else {
  74         $dirs{$_}->{"color"} = $nc;
  75     }
  76 }
  77 $cw = 0;
  78 for $d (keys %dirs) {
  79     $l = length $d;
  80     $cw = $l if $l > $cw;
  81 }
  82 $cw += 2;
  83 ($w, $h) = GetTerminalSize;
  84 $cols = int($w / $cw);
  85 @sorted = sort keys %dirs;
  86 $percol = int(@sorted / $cols) + 1;
  87 for($i = 0; $i < $percol; $i++) {
  88     for($o = 0, $x = 0; $o < $cols; $o++) {
  89         $n = ($o * $percol) + $i;
  90         last if $n >= @sorted;
  91         print (" " x (($cw * $o) - $x)) if $x < $cw * $o;
  92         $_ = $sorted[$n];
  93         $x = $cw * $o;
  94         $nc = $dirs{$_}->{"color"};
  95         print "\e[${nc}m$_\e[39m";
  96         $x += length;
  97     }
  98     print "\n";
  99 }