tagfs_to_public_videos

   1 #!/usr/bin/perl -w
   2 # $Id$
   3 use strict;
   4 my @tagfs = ('tagfs','-r',$ENV{'HOME'} . "/public/videos");
   5 if(@ARGV)
   6 {
   7     push @tagfs,@ARGV;
   8     print STDERR join(" ",@tagfs),"\n";
   9     exec(@tagfs);
  10 }
  11 else
  12 {
  13     print STDERR "Usage:$0 \"tag1,tag2,tag3,tag 4,tag 5\" files...\n";
  14     exit 0;
  15 }
  16
  17