[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: [joey@carelia.infodrom.north.de: Translation stats]



On Thu, Jul 19, 2001 at 11:37:01AM +0200, Martin Schulze wrote:
> Since Joy has "stolen" the script even thoug I objected, fix
> the crap yourself.  I'm out.

Er, okay, though I don't see why you sent two tons of old -www mail back
to the list :)

> 	Output corresponding to the changed script is in
> 
> http://ulises.adi.uam.es/~ender/webstats/
> 
> 	The patch to webwmlstattrans is attached. I'd like that you apply
> 	it, Joey. :-)

> --- webwml-stattrans.orig	Mon Jun 18 17:07:02 2001
> +++ webwml-stattrans	Mon Jun 18 17:27:45 2001
> @@ -27,6 +27,8 @@
>  	   'wmlpat'  => '*.wml',
>  	   'title'   => 'Website Translation Statistics',
>  	   'verbose' => 0,
> +	   #'diff_type' => '',
> +	   'diff_type' => '&diff_format=h',
>  	   );
>  
>  $max_versions = 5;
> @@ -231,15 +233,24 @@
>  	    $msg = check_translation ($version{"$lang/$file"}, $version{"english/$file"}, "$lang/$file");
>  	    if (length ($msg)) {
>  		$body .= sprintf ("<tr><td><a href=\"http://www.debian.org/%s.%s.html\";>%s</a></td><td>%s</td><td>%s</td>"
> -				  ."<td>%s</td></tr>\n",
> -				  $file, $l, $file, $version{"$lang/$file"}, $version{"english/$file"}, $msg);
> +				  ."<td>%s</td><td>"
> +				  ."&nbsp;&nbsp;<a href=\"http://cvs.debian.org/webwml/english/%s.wml.diff\?r1=%s\&r2=%s\&cvsroot=webwml%s\";>"
> +				  ."Diff between %s and %s</a></td></tr>\n",
> +				  $file, $l, $file, $version{"$lang/$file"}, $version{"english/$file"}, $msg, $file, $version{"$lang/$file"},
> +				  $version{"english/$file"}, $config{'diff_type'}, $version{"$lang/$file"}, $version{"english/$file"});
>  		$outdated{$lang}++;
>  	    }
>  	}
>  	if ($body) {
>  	    print HTML "<h3>Out-dated pages:</h3>";
>  	    print HTML "<table border=0 cellpadding=1 cellspacing=1>\n";
> -	    print HTML "<tr><th>File</th><th>Translated</th><th>English</th><th>Comment</th></tr>\n";
> +	    print HTML "<tr><th>File</th><th>Translated</th><th>English</th><th>Comment</th>";
> +	    if ($config{'diff_type'}) {
> +	    	print HTML "<th>Colored diff</th>";
> +	    } else {
> +	    	print HTML "<th>Unified diff</th>";
> +	    }
> +	    print HTML "</tr>\n";
>  	    print HTML $body;
>  	    print HTML "</table>\n";
>  	}

I'll go add this.

-- 
Digital Electronic Being Intended for Assassination and Nullification



Reply to: