bucky2/bin/flush-files


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

#!/usr/bin/perl
use strict;
use lib "../lib";
use Bucky;

my $bucky = new Bucky;
my $thread_list = $bucky->db->select("thread");
my $thread_map = {};
foreach my $t (@$thread_list) {
  $thread_map->{ $t->{'id'} } = 1;
}

my $base = "/var/www/vhosts/carbonpictures.com/bucky/data/";
opendir(DIR, $base) or die $!;
my @dirs = readdir(DIR);
closedir(DIR);

# print scalar @dirs;

foreach my $thread_id (@dirs) {
  my $dir = $base . $thread_id;

  next unless (-d $dir && $thread_id !~ /^\./);
  next if (exists($thread_map->{$thread_id}));
  
  opendir (THREAD, $dir);
  my @local_files = readdir(THREAD);
  closedir (THREAD);
  
  my $size = `du -sh $dir`;
  print $size;
  print join("\n", sort(@local_files));
  print "\n";
  my $line = readline(STDIN);
  if (substr($line, 0, 1) eq 'y') {
    print "\n";
    print ">>> delete " . $dir . "\n";
    print "\n";
    system('rm', '-rf', $dir);
  }
  print "\n\n";
}