check if file exists

1 files changed, 16 insertions, 5 deletions

diff --git a/videoadd.pl b/videoadd.pl
index 079a4e3..c26f227 100755
--- a/videoadd.pl
+++ b/videoadd.pl
@@ -522,12 +522,23 @@ if ( defined ($file) and defined ($sort_flag) ) {
                 }
             }
         }
-        move ( $file, catfile ( $dir, $new{filename} ) )
-            or warn "Warning: Cannot move file: $!.\n";
 
-        symlink catfile( updir(), 'DIRECTORS', $new{director}, $new{filename} ),
-                catfile( $symlinks, $new{filename} )
-            or warn "Warning: Cannot create symlink: $!.\n";
+        if ( -e catfile ( $dir, $new{filename} ) ) {
+            warn "Warning: Cannot move file: file exists.\n";
+        }
+        else {
+            move ( $file, catfile ( $dir, $new{filename} ) )
+                or warn "Warning: Cannot move file: $!.\n";
+        }
+
+        if ( -e catfile( $symlinks, $new{filename} ) ) {
+            warn "Warning: Cannot create symlink: file exists.\n";
+        }
+        else {
+            symlink catfile( updir(), 'DIRECTORS', $new{director}, $new{filename} ),
+                    catfile( $symlinks, $new{filename} )
+                or warn "Warning: Cannot create symlink: $!.\n";
+        }
     }
     else {
         warn "Warning: Cannot move file (no director found).\n"