Skip to content
Browse files

seen: mark tv episodes etc as seen

  • Loading branch information...
1 parent 8e37ba9 commit deee7ac572c93d968bdf713ca2680de519972d51 @trapd00r committed Mar 21, 2012
Showing with 15 additions and 0 deletions.
  1. +15 −0 seen
View
15 seen
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use strict;
+use warnings FATAL => 'all';
+
+for my $f(@ARGV) {
+ if(-f $f) {
+ chmod(02740, $f) or warn "chmod: $!\n";
+ }
+ elsif(-d $f) {
+ chmod(01700, $f) or warn "chmod: $!\n";
+ }
+ else {
+ warn "E: $_ is neither a file or a directory\n";
+ }
+}

0 comments on commit deee7ac

Please sign in to comment.
Something went wrong with that request. Please try again.