1 files changed, 44 insertions, 0 deletions
diff --git a/bucky2/bin/rename-file b/bucky2/bin/rename-file
new file mode 100755
index 0000000..a060b1a
--- /dev/null
+++ b/bucky2/bin/rename-file
@@ -0,0 +1,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
+    }
+  });
+}
+
+