Changeset 29683 for main/trunk/package-kits
- Timestamp:
- 2015-01-09T15:53:33+13:00 (9 years ago)
- Location:
- main/trunk/package-kits/scripts
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/package-kits/scripts/gs-mkinterface.pl
r29682 r29683 8 8 use Greenstone::Interface; 9 9 10 my $delete = 0; 11 12 for (@ARGV) { 13 if (/^-/) { 14 if (/^-delete$/) { 15 $delete = 1; 16 } else { 17 die "Unknown flag '$_'\n"; 18 } 19 } 20 } 21 10 22 my $interface = Greenstone::Interface->new (shift); 11 $interface->exists and die "Interface already exists\n"; 12 $interface->create and print "Interface created\n"; 23 if ($delete) { 24 $interface->delete and print "Interface deleted\n"; 25 } else { 26 $interface->create and print "Interface created\n"; 27 } -
main/trunk/package-kits/scripts/gs-mksite.pl
r29675 r29683 8 8 use Greenstone::Site; 9 9 10 my $delete = 0; 11 12 for (@ARGV) { 13 if (/^-/) { 14 if (/^-delete$/) { 15 $delete = 1; 16 } else { 17 die "Unknown flag '$_'\n"; 18 } 19 } 20 } 21 10 22 my $site = Greenstone::Site->new (shift); 11 $site->exists and die "Site already exists\n"; 12 $site->create and print "Site created\n"; 23 if ($delete) { 24 $site->delete and print "Site deleted\n"; 25 } else { 26 $site->create and print "Site created\n"; 27 } -
main/trunk/package-kits/scripts/perllib/Greenstone/Directory.pm
r29678 r29683 6 6 use base 'Exporter'; 7 7 8 use File::Path 'remove_tree'; 8 9 use Greenstone::Config; 9 10 … … 61 62 sub create { 62 63 my $self = shift; 63 $self->exists and return 0; 64 if ($self->exists) { 65 print STDERR "Site already exists\n"; 66 return 0; 67 } 64 68 mkdir $self->dir or die "Failed to create directory: $!\n"; 65 69 return 1; 66 70 } 67 71 72 sub delete { 73 my $self = shift; 74 unless ($self->exists) { 75 print STDERR "Site doesn't exist\n"; 76 return 0; 77 } 78 remove_tree $self->dir or die "Failed to remove directory: $!\n"; 79 return 1; 80 } 81 68 82 1;
Note:
See TracChangeset
for help on using the changeset viewer.