Plod

<?xml version="1.0" encoding="UTF-8"?>
<urlset xmlns="http://www.google.com/schemas/sitemap/0.84">
　<url>
　　<loc><$MTBlogURL encode_xml="1"$></loc>
　　<priority>1.0</priority>
　</url>
　<MTEntries lastn="9999">
　<url>
　　<loc><$MTEntryPermalink encode_xml="1"$></loc>
　　<lastmod><$MTEntryModifiedDate utc="1" format="%Y-%m-%dT%H:%M:%SZ"$></lastmod>
　</url>
　</MTEntries>
</urlset>

<?php require('wp-blog-header.php');
header('Content-type: text/xml; charset=' . get_settings('blog_charset'), true);?>
<?php echo '<?xml version="1.0" encoding="UTF-8"?>'; ?>
<!-- generator="http://www.socialpatterns.com/"-->
<urlset xmlns="http://www.google.com/schemas/sitemap/0.84" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.google.com/schemas/sitemap/0.84 http://www.google.com/schemas/sitemap/0.84/sitemap.xsd">
　<url>
　　<loc><?php bloginfo('url') ?></loc>
　　<lastmod><?php echo mysql2date('Y-m-d\TH:i:s\Z', get_lastpostmodified('GMT'), false); ?></lastmod>
　　<changefreq>always</changefreq>
　　<priority>1.0</priority>
　</url>
　<?php $sitemap = $wpdb->get_results("SELECT * FROM $wpdb->posts WHERE post_status = 'publish' ORDER by post_modified DESC"); ?>
　<?php foreach ($sitemap as $sitemap) { ?>
　<url>
　　<loc><?php echo get_permalink($sitemap->ID); ?></loc>
　　<lastmod><?php echo mysql2date('Y-m-d\TH:i:s\Z', $sitemap->post_modified, false); ?></lastmod>
　　<changefreq>daily</changefreq>
　　<priority>0.8</priority>
　</url>
　<?php } ?>
</urlset>

<?php
include_once('serendipity_config.inc.php');
header("Content-type: text/xml");
$doc = domxml_new_doc("1.0");

$root = $doc->add_root("urlset");

$url = $root->new_child("url");

$loc = $url->new_child("loc", $serendipity['baseURL']);
$lastmod = $url->new_child("lastmod", date("Y-m-d", time()));
$changefreq = $url->new_child("changefreq", "daily");
$priority = $url->new_child("priority", "0.0");

$entries = serendipity_fetchEntries();

foreach($entries as $entry) {
　$url = $root->new_child("url");
　$loc = $url->new_child("loc", sprintf("%s%s", rtrim($serendipity['baseURL'], "/"), serendipity_archiveURL($entry['id'], $entry['title'], 'serendipityHTTPPath')));

　$lastmod = $url->new_child("lastmod", date("Y-m-d",$entry['timestamp']));
　$changefreq = $url->new_child("changefreq", "never");
　$priority = $url->new_child("priority", "1.0");
}

echo ($doc->dump_mem());
$doc->dump_file("Sitemap", false, false);
system("gzip Sitemap");
system("gzip create_sitemap.php");
?>

<?php

// enter host , user, password database
$host = '';
$user = '';
$password = '';
$database = '';

// base url of the forum with trailing slash, table prefix if any, $base = '';
$prefix = '';
// home page if different than the base url for the forum
$home = '';

// the var string for forum display
// if your url is forumdisplay.php?f=73 then this would be f=
$forumq = '';
// the var string for your thread display
// if your url is showthread.php?t=872 then is t=
$threadq = '';
// url text file name make it writable!!!
$file = '';
// new line character \r\n for widnows \n for unix
$nl = "\n";
// forum priority , tread priority, change frequency tread and forum see the sitemaps dcumentation
$fpriority = "0.8";
$tpriority = '1.0';
$fchange ='hourly' ;
$tchange ='weekly';
// base and forum base change and priority
$bchange ='hourly';
$bpriority = '1.0';
// end variabless

$fpriority = "priority=".$fpriority;
$tpriority = "priority=".$tpriority;
$fchange = "changefreq=".$fchange;
$tchange = "changefreq=".$tchange;
$bchange = "changefreq=".$bchange;
$bpriority = "priority=".$bpriority;

$basestr = " $bchange $bpriority";
$fstr = " $fchange $fpriority";
$tstr = " $tchange $tpriority";

　$connection = mysql_connect($host, $user, $password ) or die("Database is down please try again");
　$db = mysql_select_db($database, $connection) or die ("NO DATABASE" );

$handle = fopen("$file", "w");
　fwrite($handle, $home.$basestr.$nl);

　fwrite($handle, $base.$basestr.$nl);
$forums = $prefix."forum";
$treads = $prefix."thread";
$fquery = "SELECT forumid FROM $forums";

$results = mysql_query($fquery) or DIE("$fquery" );
$num_rows = mysql_num_rows($results);

for ( $i = 0; $i < $num_rows; $i++)
　{

　　$row = mysql_fetch_row($results);
　　print_r($row);
　　$url = $base."forumdisplay.php?".$forumq.$row[0].$fstr.$nl;
　　fwrite($handle, $url);
　}

$tquery = "SELECT threadid FROM $treads";

$results = mysql_query($tquery) or DIE("$tquery" );
$num_rows = mysql_num_rows($results);

for ( $i = 0; $i < $num_rows; $i++)
　{
　　$row = mysql_fetch_row($results);
　　print_r($row);
　　$url = $base."showthread.php?".$threadq.$row[0].$tstr.$nl;
　　fwrite($handle, $url);
　}

fclose($handle);

?>

<%
' sitemap_gen.asp
' A simple ASP script to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP)
' by Francesco Passantino
' www.iteam5.net/francesco/sitemap_gen
' v0.1 released 4 june 2005
'
' BSD 2.0 license,
' http://www.opensource.org/licenses/bsd-license.php



'modify this to change website and root folder
session("server")="http://www.yousite.net"
vDir = "/blog/"



MAXURLS_PER_SITEMAP = 50000
set fso = CreateObject("Scripting.FileSystemObject")
root = Server.MapPath(vDir) &"\"
set fold = fso.getFolder(root)

response.ContentType = "text/xml"
response.write "<?xml version='1.0' encoding='UTF-8'?>"
response.write "<!-- generator='http://www.iteam5.net/francesco/sitemap_gen'-->"
response.write "<urlset xmlns='http://www.google.com/schemas/sitemap/0.84'>"

if fold.subfolders.count > 0 then
　for each f in fold.subfolders
　　sfoldname = root &f.name &"\"
　　fpath = vDir &f.name &"/"

　　if folderpermission(fpath) then
　　　set cfold = fso.getFolder(sfoldname)
　　　if cfold.subfolders.count > 0 or cfold.files.count > 0 then
　　　　for each sf in cfold.subfolders
　　　　　sfoldname = root &f.name &"\" &sf.name &"\"
　　　　　path = vDir &f.name &"/" &sf.name &"/"
　　　　　set sfold = fso.getFolder(sfoldname)
　　　　　if sfold.files.count > 0 then
　　　　　　for each fil in sfold.files
　　　　　　　response.write getfilelink(path, fil)
　　　　　　next
　　　　　end if
　　　　next
　　　　for each fil in cfold.files
　　　　　response.write getfilelink(fpath, fil)
　　　　next
　　　else
　　　　response.Write getfoldlink(cfold, fpath)
　　　end if
　　　if session("URLS")=MAXURLS_PER_SITEMAP then exit for
　　end if
　next
end if

if session("URLS")<MAXURLS_PER_SITEMAP then
　for each fil in fold.files
　　response.write getfilelink(vDir, fil)
　next
end if

response.write "</urlset>"
set fso = nothing


Function getfilelink(fold, file)
　If FileExtensionIsBad(file) then Exit Function
　filelmdate=file.dateLastModified
　if month(filelmdate)<10 then filedatem="0"
　if day(filelmdate)<10 then filedated="0"

　filedate=year(filelmdate)&"-"&filedatem&month(filelmdate)&"-"&filedated&day(filelmdate)
　getfilelink = "<url><loc>"&server.htmlencode(session("server")&fold&file.name)&"</loc><lastmod>"&filedate&"</lastmod><priority>1.0</priority></url>"
　session("URLS")=session("URLS")+1
　Response.Flush
End Function

Function Folderpermission(pathName)

　'modify this to exclude path
　PathExclusion=Array("/test1/","/test/test2/")
　Folderpermission =True
　for each PathExcluded in PathExclusion
　　if ucase(pathName) = ucase(PathExcluded) then
　　　Folderpermission = False
　　　exit for
　　end if
　next
End Function

Function FileExtensionIsBad(sFileName)
　Dim sFileExtension, bFileExtensionIsValid, sFileExt

　'http://www.googleguide.com/file_type.html
　Extensions = Array("gif","jpg","zip","pdf","ps","html","htm","asp","wk1","wk2","wk3","wk4","wk5","wki","wks","wku","lwp","mw","xls","ppt","doc","wks","wps","wdb","wri","rtf","ans","txt")

　if len(trim(sFileName)) = 0 then
　　FileExtensionIsBad = true
　　Exit Function
　end if

　sFileExtension = right(sFileName, len(sFileName) - instrrev(sFileName, "."))
　bFileExtensionIsValid = false'assume extension is bad
　for each sFileExt in extensions
　　if ucase(sFileExt) = ucase(sFileExtension) then
　　　bFileExtensionIsValid = True
　　　exit for
　　end if
　next
　FileExtensionIsBad = not bFileExtensionIsValid
End Function
%>

http://plod.popoever.com/archives/000001.html
http://plod.popoever.com/archives/000002.html
http://plod.popoever.com/archives/000003.html
.
.
.