|
Last change
on this file since 29676 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.
