UsenetMacro - Revision history

Maintenance script: Repair batch-0003 pages from live compare

2026-03-27T00:29:13Z

Repair batch-0003 pages from live compare

← Older revision		Revision as of 00:29, 27 March 2026
Line 18:		Line 18:
	} else {		} else {
	$url = 'http://groups-beta.google.com/group/'.$group;		$url = 'http://groups-beta.google.com/group/'.$group;
	if (preg_match('/[[:xdigit:]]+/', $thread))		if (preg_match('/[[:xdigit:]]+/', $thread))
	$url .= '/browse_thread/thread/'.$thread;		$url .= '/browse_thread/thread/'.$thread;
	else		else
Line 25:		Line 25:
	if (!$subj) {		if (!$subj) {
	$purl = parse_url($url);		$purl = parse_url($url);
	$fp = @fsockopen($purl['host'], 80, $errno, $errstr, 5);		$fp = @fsockopen($purl['host'], 80, $errno, $errstr, 5);
	$out = "GET {$purl['path']} HTTP/1.0\nHost: {$purl['host']}\n\n";		$out = "GET {$purl['path']} HTTP/1.0\nHost: {$purl['host']}\n\n";
	@fwrite($fp, $out);		@fwrite($fp, $out);
	$buf = @fgets($fp, 80);		$buf = @fgets($fp, 80);

Maintenance script: Repair MoniWiki formatting after migration

2026-03-26T14:06:17Z

Repair MoniWiki formatting after migration

← Older revision		Revision as of 14:06, 26 March 2026
Line 47:		Line 47:

	Write like this,		Write like this,
	[[Usenet(comp.lang.python)]]		[[Usenet(comp.lang.python)]]
	[[Usenet(comp.lang.python:fec2ae850574adf4)]]		[[Usenet(comp.lang.python:fec2ae850574adf4)]]
	[[Usenet(http://groups-beta.google.com/group/comp.unix.programmer/browse_thread/thread/d302919d5af2b802)]]		[[Usenet(http://groups-beta.google.com/group/comp.unix.programmer/browse_thread/thread/d302919d5af2b802)]]
	then it will be displayed like...		then it will be displayed like...
	[[Usenet(comp.lang.python)]]		[[Usenet(comp.lang.python)]]

Maintenance script: Repair MoniWiki formatting after migration

2026-03-26T14:01:43Z

Repair MoniWiki formatting after migration

← Older revision		Revision as of 14:01, 26 March 2026
Line 57:		Line 57:

	[http://nohmad.sub-port.net/wiki/CodingLog/2003-09]		[http://nohmad.sub-port.net/wiki/CodingLog/2003-09]

imported>Unknown at 05:28, 7 February 2021

2021-02-07T05:28:21Z

New page

This works well with GoogleGroups Beta service. This helps make links to GoogleGroups with text remotely extracted from usenet topic.
<?php
/**
* Copyright 2004 by Gyoung-Yoon Noh <nohmad at sub-port.net>
* All rights reserved. Distributable under GPL.
*
* $Id: UsenetMacro,v 1.13 2005/02/05 03:23:51 root Exp root $
*/

function macro_Usenet($formatter, $value)
{
global $DBInfo;
list($group, $thread) = @explode(':', $value);
$img = sprintf('<img src="%s/google-16.png" alt="GoogleGroups:"'.
' align="middle" hspace="1" />', $DBInfo->imgs_dir);
if ($group == 'http') {
$url = $value;
} else {
$url = 'http://groups-beta.google.com/group/'.$group;
if (preg_match('/[[:xdigit:]]+/', $thread))
$url .= '/browse_thread/thread/'.$thread;
else
$subj = $group;
}
if (!$subj) {
$purl = parse_url($url);
$fp = @fsockopen($purl['host'], 80, $errno, $errstr, 5);
$out = "GET {$purl['path']} HTTP/1.0\nHost: {$purl['host']}\n\n";
@fwrite($fp, $out);
$buf = @fgets($fp, 80);
if (!preg_match('@200 OK@i', $buf))
return '<!> URL is not found <!>';
while (strlen($buf) <= 25000) {
$_ = @fread($fp, 1024);
$buf .= $_;
if (strlen($_) < 1024) break;
}
fclose($fp);
$seek = strpos($buf, '<TR><TD>Subject: <b>') + 20;
$offset = strpos($buf, '</b></TD></TR>', $seek);
$subj = substr($buf, $seek, $offset-$seek);
if (!$subj) $subj = $group;
}
return sprintf('%s<a href="%s">%s</a>', $img, $url, $subj);
}
?>

Write like this,
[[Usenet(comp.lang.python)]]
[[Usenet(comp.lang.python:fec2ae850574adf4)]]
[[Usenet(http://groups-beta.google.com/group/comp.unix.programmer/browse_thread/thread/d302919d5af2b802)]]
then it will be displayed like...
[[Usenet(comp.lang.python)]]
[[Usenet(comp.lang.python:fec2ae850574adf4)]]
[[Usenet(http://groups-beta.google.com/group/comp.unix.programmer/browse_thread/thread/d302919d5af2b802)]]

[http://nohmad.sub-port.net/wiki/CodingLog/2003-09]