Name:
	ScriptTest
FullName:
	WWW Scripting Implemention Testing Plugin
URI:
	IW:SuikaWiki:ScriptTest

{
Name:
	wikiform_input/script-test-supported-list
FullName:
	ScriptTest: Test whether the User Agent is supporting scripting
	with SCRIPT element having given attribute value.
Format:
	my @types = split /,/, $o->escape($p->{type});
	my @langs = split /,/, $o->escape($p->{language});
	my @slangs = split /,/, $p->{script_lang};
	my $id = 'wikiform__'.$o->escape ($p->{id});
	my $l = $#types > $#langs ? $#types : $#langs;
	$l = $#slangs if $#slangs > $l;
	$r = qq(<table class="script-test">\n);
	$r .= qq(<caption>@{[$o->escape($p->{caption})]}</caption>\n) if $p->{caption};
	$r .= qq(<thead><tr><th>type</th><th>language</th><th>?</th></tr></thead><tbody>\n);
	for my $i (0..$l) {
	  $r .= qq(<tr><th>$types[$i]</th><th>$langs[$i]</th>\n<td>);
	  $r .= '<script';
	  $r .= qq( type="$types[$i]") if $types[$i];
	  $r .= qq( language="$langs[$i]") if $langs[$i];
	  $r .= ">\n";
	  if ($slangs[$i] eq 'vbscript') {
	    $r .= qq(call document.write ("VBS: OK!<input type=""hidden"" name=""${id}__$types[$i]_$langs[$i]"" value=""VBS"" />")\n);
	  } elsif ($slangs[$i] eq 'perlscript') {
	    $r .= qq(\$window->document->write ('PS('.sprintf('%vd',\$^V).'): OK!<input type="hidden" name="${id}__$types[$i]_$langs[$i]" value="PS('.sprintf('%vd',\$^V).')" />');\n);
	  } else {
	    $r .= qq(document.write ('JS: OK!<input type="hidden" name="${id}__$types[$i]_$langs[$i]" value="JS" />');\n);
	  }
	  $r .= qq(</script></td></tr>\n);
	}
	$r .= "</tbody></table>\n";
}
{
Name:
	wikiform_template/script-test-supported-list
FullName:
	ScriptTest: Output the result table of wikiform_input/script-test-supported-list.
Format:
	for (sort keys %{$o->{argv}}) {
	  if (/^wikiform__$p->{source}__([^_]*)_(.*)$/) {
	    $r .= qq(,$1,$2,$o->{argv}->{$_}\n);
	  }
	}
}

POD:LICENSE:
	Copyright 2003 Wakaba <w@suika.fam.cx>
	
	%%GNUGPL2%%