125 lines
3 KiB
Perl
125 lines
3 KiB
Perl
package WebGUI::Content::SiteIndex;
|
|
|
|
=head1 LEGAL
|
|
|
|
-------------------------------------------------------------------
|
|
WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
|
-------------------------------------------------------------------
|
|
Please read the legal notices (docs/legal.txt) and the license
|
|
(docs/license.txt) that came with this distribution before using
|
|
this software.
|
|
-------------------------------------------------------------------
|
|
http://www.plainblack.com info@plainblack.com
|
|
-------------------------------------------------------------------
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use WebGUI::Asset;
|
|
use WebGUI::Exception;
|
|
use XML::Simple;
|
|
|
|
=head1 NAME
|
|
|
|
Package WebGUI::Content::SiteIndex
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
A content handler that displays a google site index making it easier and faster
|
|
for search engines to index a website.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use WebGUI::Content::SiteIndex;
|
|
my $output = WebGUI::Content::SiteIndex::handler($session);
|
|
|
|
=head1 SUBROUTINES
|
|
|
|
These subroutines are available from this package:
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 handler ( session )
|
|
|
|
The content handler for this package.
|
|
|
|
=cut
|
|
|
|
sub handler {
|
|
my $session = shift;
|
|
|
|
my $p = $session->url->page();
|
|
unless ($p =~ m/sitemap\.xml$/i) {
|
|
return undef;
|
|
}
|
|
|
|
my $whereClause = "assetData.groupIdView = 7";
|
|
if (! $session->config->get("siteIndex")->{showHiddenPages}) {
|
|
$whereClause .= ' AND assetData.isHidden=0';
|
|
}
|
|
|
|
my $pages = WebGUI::Asset->getRoot($session)->getLineageIterator(["self","descendants"],{
|
|
includeOnlyClasses => ["WebGUI::Asset::Wobject::Layout"],
|
|
whereClause => $whereClause,
|
|
limit => 20000
|
|
});
|
|
|
|
|
|
my $url = [];
|
|
ASSET: while (1) {
|
|
my $page = eval { $pages->() };
|
|
if (my $e = Exception::Class->caught()) {
|
|
$session->log->error($@);
|
|
next ASSET;
|
|
}
|
|
last ASSET unless $page;
|
|
push(@{$url},{
|
|
loc => $session->url->getSiteURL().formatXML($page->getUrl),
|
|
lastmod => $session->datetime->epochToSet($page->get("revisionDate")),
|
|
});
|
|
}
|
|
|
|
my $xmlStructure = { url => $url };
|
|
my $xml =
|
|
'<?xml version="1.0" encoding="UTF-8"?>'
|
|
.'<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">'
|
|
. XMLout( $xmlStructure,
|
|
NoAttr => 1,
|
|
KeepRoot => 1,
|
|
KeyAttr => ["url"],
|
|
)
|
|
.'</urlset>';
|
|
|
|
|
|
$session->http->setMimeType('text/xml');
|
|
|
|
return $xml;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 formatXML ( content )
|
|
|
|
Escape XML entities, &, <, >, ' and ".
|
|
|
|
=head3 content
|
|
|
|
The content that will have XML entities escaped.
|
|
|
|
=cut
|
|
|
|
sub formatXML {
|
|
my $content = shift;
|
|
$content =~ s/&/&/g;
|
|
$content =~ s/\</</g;
|
|
$content =~ s/\>/>/g;
|
|
$content =~ s/'/'/g;
|
|
$content =~ s/"/"/g;
|
|
|
|
return $content;
|
|
}
|
|
|
|
|
|
1;
|