new_sgn_file

   1 #!/usr/bin/perl
   2
   3 eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
   4     if 0; # not running under some shell
   5
   6 use strict;
   7 use warnings;
   8
   9 use English;
  10 use Carp;
  11 use FindBin;
  12
  13 use File::Basename;
  14 use File::Path;
  15
  16 use Getopt::Std;
  17 use Pod::Usage;
  18
  19 our %opt;
  20 getopts('n',\%opt) or pod2usage(1);
  21
  22 @ARGV == 2 or pod2usage(1);
  23
  24 my ($tname,$newfile) = @ARGV;
  25 my $tgtpath = dirname($newfile);
  26
  27 my ($sgn_tools_location) = $FindBin::RealBin =~ m!(^.+/sgn-devtools)(/|$)!;
  28 $sgn_tools_location && -d $sgn_tools_location
  29     or die "could not figure out sgn-devtools installed location";
  30
  31 my @templatematches = ( glob("~/{T,t}emplates/$tname*"),
  32                         glob("$sgn_tools_location/development/templates/$tname*"),
  33                         glob("$FindBin::RealBin/templates/$tname*"),
  34                       )
  35   or die "No template found matching '$tname";
  36
  37 @templatematches = grep !/~$/,@templatematches; #filter out backup files
  38 @templatematches == 1
  39   or die "More than one template matches '$tname':\n",map {"  - $_\n"} @templatematches;
  40
  41 my ($template) = @templatematches;
  42
  43 #add an extension to the target file if it doesn't have one
  44 my (undef,undef,$ext) = fileparse($template,qr/\..+$/);
  45 $newfile .= $ext unless $newfile =~ /$ext$/;
  46
  47
  48 -d $tgtpath
  49     or mkpath( $tgtpath, {verbose => 1})
  50     or die "could not create dir '$tgtpath'";
  51
  52 #copy the template file there
  53 system( cp => -aH => $template => $newfile );
  54 $CHILD_ERROR and die "Could not copy template from $template to $newfile: $!";
  55
  56 exit if $opt{n};
  57
  58 #openoffice
  59 if( $template =~ /\.od[pfts]$|\.sx[iwc]$|\.doc$|\.xls$|\.ppt$/ ) {
  60   exec 'ooffice', $newfile;
  61 }
  62 #scripts or other things
  63 else {
  64   $ENV{EDITOR} or die "No \$EDITOR environment variable defined, please make sure it's in your .bashrc or similar\n";
  65   exec e => $newfile;
  66 }
  67
  68 __END__
  69
  70 =head1 NAME
  71
  72 new_sgn_file - script to create new SGN files from templates
  73
  74 =head1 SYNOPSIS
  75
  76   new_sgn_file [options] template_name new_filename
  77
  78   Options:
  79
  80     -n  if passed, do not open $EDITOR after making file
  81
  82 =head1 MAINTAINER
  83
  84 Robert Buels, Jonathan "Duke" Leto
  85
  86 =head1 AUTHOR
  87
  88 Robert Buels, E<lt>rmb32@cornell.eduE<gt>
  89
  90 =head1 COPYRIGHT & LICENSE
  91
  92 Copyright 2009 Boyce Thompson Institute for Plant Research
  93
  94 This program is free software; you can redistribute it and/or modify
  95 it under the same terms as Perl itself.
  96
  97 =cut