prj-create-module-drupal

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my $name = shift;
   7
   8 unless ($name) {
   9     die <<USAGE;
  10 Usage: project-create-module-drupal NAME
  11 USAGE
  12 }
  13
  14 mkdir $name;
  15 open (INFO, "> $name/$name.info");
  16 open (MODULE, "> $name/$name.module");
  17 open (README, "> $name/README");
  18
  19 print INFO "name = " . ucfirst($name) . "
  20 description = The Great new " . ucfirst($name) . " module!
  21 version = 0.1
  22 core = 7.x
  23 ";
  24
  25 print MODULE "<?php \n";
  26
  27 print README "Installation
  28 ============
  29
  30 ";
  31
  32 close (INFO);
  33 close (MODULE);
  34 close (README);