db/prgsrc/makeauthors.pl - diff

Return to makeauthors.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.5, 2003/02/02 21:01:11	version 1.7, 2005/12/10 00:03:55
Line 115 while (<AUTHORS>)	Line 115 while (<AUTHORS>)
($number,$descr)=m/^(\d+)\s+(.*)$/g;	($number,$descr)=m/^(\d+)\s+(.*)$/g;
$nick='unknown';	$nick='unknown';
}	}
$nick=~s/\s*$//;	# if ($nick=~s/\s*$//)
$descr=~s/([\.\,\:\!\?])/$1 /g;	$descr=~s/([\.\,\:\!\?])/$1 /g;
$descr=~s/\\n/ /g;	$descr=~s/\\n/ /g;
$descr=~s/^\s+//g;	$descr=~s/^\s+//g;
Line 153 while (($QuestionId, $author)=getrow,$Qu	Line 153 while (($QuestionId, $author)=getrow,$Qu
$author=~s/\s+$//mg;	$author=~s/\s+$//mg;
$author=~s/\s+/ /mg;	$author=~s/\s+/ /mg;
$author=uc $author;	$author=uc $author;
	$author=~s/£/Å/mg;
if ($nick = $nick{$author})	if ($nick = $nick{$author})
{	{
my @a=split ' ',$nick;	my @a=split ' ',$nick;