Last change
on this file since 31602 was 29676, checked in by Jeremy Symon, 9 years ago |
Added gs-siteinfo.pl. Lists current sites. Updated site listing code to ignore anything which isn't a site.
|
-
Property svn:executable
set to
*
|
File size:
197 bytes
|
Line | |
---|
1 | #!/usr/bin/env perl
|
---|
2 |
|
---|
3 | use strict;
|
---|
4 | use warnings;
|
---|
5 | use utf8;
|
---|
6 |
|
---|
7 | use lib 'perllib';
|
---|
8 | use Greenstone::Site;
|
---|
9 |
|
---|
10 | my $sites = Greenstone::Site::list;
|
---|
11 | for my $site (sort keys %$sites) {
|
---|
12 | print $site, "\n";
|
---|
13 | }
|
---|
Note:
See
TracBrowser
for help on using the repository browser.