bucky2/bin/rename-file


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;

if (scalar(@ARGV) < 2) {
  print "usage: move-file file-id filename\n";
  exit(1);
}

our $bucky = new Bucky;
our $file_id = $ARGV[0];
our $filename = $ARGV[1];

rename_file($file_id, $filename);

sub rename_file {
  my ($file_id, $filename) = @_;

  my $files = $bucky->db->select('file', { id => $file_id });
  my $file = $files->[0];

  my $path = $ENV{"HOME"} . "/bucky/data/";

  print $path . $file->{'thread'} . "/" . $filename . "\n";
  if (-e $path . $file->{'thread'} . "/" . $filename) {
    print "file exists!\n";
    return
  }
  print "renaming " . $file->{'filename'} . " => " . $filename . "\n";

  system("/bin/mv",
         $path . $file->{'thread'} . "/" . $file->{'filename'},
         $path . $file->{'thread'} . "/" . $filename);

  $bucky->db->update_by_id('file', {
    "id" => $file_id,
    "record" => {
      "filename" => $filename
    }
  });
}