Last change
on this file since 31620 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
|
Rev | Line | |
---|
[29676] | 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.