Name:
	Image
FullName:
	SuikaWikiImage
URI:
	IW:SuikaWiki:WikiAdmin

{
Name:
	wikiformat/SuikaWikiImage/0.9-to-HTML
FullName:
	SuikaWikiImage/0.9 document format -> HTML
URI:
	IW:SuikaWiki:SuikaWiki
Format:
	my $c = $o->{content};
	$c =~ s(\x0D?\x0A__IMAGE__\x0D?\x0A.+$){}s;
	my $embed = '[[#embed:IMG:'.$o->{page}.']]';
	unless (index ($c, $embed) > -1) {
	  $c = $embed . "\n" . $c;
	}
	if ($c !~ /\[\[\#comment/ && $o->{p}->{comment} && $o->{magic} !~ /obsoleted="yes"/ && !$main::database->meta (IsFrozen => $o->{page})) {
	  $c .= qq(\n[[#comment]]);
	}
	$r = &main::text_to_html ($c, %$o);
}
{
Name:
	wikiformat/SuikaWikiImage/0.9-to-image-png
FullName:
	SuikaWikiImage/0.9 document format -> PNG image
URI:
	IW:SuikaWiki:SuikaWiki
Format:
	if ($o->{magic} =~ m#image-type="image/png"#) {
	  if ($o->{content} =~ /\x0D?\x0A__IMAGE__\x0D?\x0A(.+)$/s) {
	    require MIME::Base64;
	    $r = MIME::Base64::decode ($1);
	  }
	}
}
{
Name:
	wikiformat/SuikaWikiImage/0.9-to-image-jpeg
FullName:
	SuikaWikiImage/0.9 document format -> JPEG image
URI:
	IW:SuikaWiki:SuikaWiki
Format:
	if ($o->{magic} =~ m#image-type="image/jpeg"#) {
	  if ($o->{content} =~ /\x0D?\x0A__IMAGE__\x0D?\x0A(.+)$/s) {
	    require MIME::Base64;
	    $r = MIME::Base64::decode ($1);
	  }
	}
}
{
Name:
	wikiformat/SuikaWikiImage/0.9-to-HTML-fragment
FullName:
	SuikaWikiImage/0.9 document format -> HTML fragment
URI:
	IW:SuikaWiki:SuikaWiki
Format:
	if ($o->{magic} =~ m#image-type="([^"]+)"#) {
	  my $type = $1; $type =~ tr/\x00-\x20\x7F//d;
	  $type =~ s/[^0-9A-Za-z_]/_/g;
	  my $uri = $o->uri('wiki'); my $epage = $o->encode($o->{page});
	  my $alt = ''; $alt = $1 if $o->{magic} =~ /image-alt="([^"]+)"/;
	  $r = qq(<img src="$uri?mypage=$epage;mycmd=$type" alt="$alt" title="@{[$o->escape($o->{page})]}" longdesc="$uri?$epage" class="embed" />);
	} else {
	  $r = qq(<span class="error-embed-image">).$o->resource('Embed:ImageNotFound',escape=>1).q(</span>);
	}
}
{
Name:
	wikiview/link-favicon
FullName:
	Returns LINK element for favicon
Format:
	my $page = $p->{page} || 'WikiIcon';
	if ($p->{use_page_icon}) {
	  my ($pmagic) = $o->magic_and_content ($main::database{$o->{page}});
	  if ($pmagic =~ m!\#\?SuikaWiki! && $pmagic =~ m#page-icon="([^"]+)"#) {
	    $page = $1;
	  }
	}
	if (exists $main::database{$page}) {
	  my ($magic, $content) = $o->magic_and_content ($main::database{$page});
	  if ($magic =~ m!^\#\?SuikaWikiImage/0\.9! && $magic =~ m#image-type="([^"]+)"#) {
	    my ($type0,$type) = ($1,$1); $type =~ tr/\x00-\x20\x7F//d;
	    $type =~ s/[^0-9A-Za-z_]/_/g;
	    my $alt = ''; $alt = $1 if $magic =~ /image-alt="([^"]+)"/;
	    $r = qq(<link rel="icon" type="@{[$o->escape($type0)]}" href="@{[$o->uri('wiki')]}?mypage=@{[$o->encode($page)]};mycmd=$type" title="$alt" class="favicon" />);
	  }
	}
}
{
Name:
	wikiview/img-favicon
FullName:
	Returns IMG element for favicon
Format:
	my $page = $p->{page} || 'WikiIcon';
	if ($p->{use_page_icon}) {
	  my ($pmagic) = $o->magic_and_content ($main::database{$o->{page}});
	  if ($pmagic =~ m!\#\?SuikaWiki! && $pmagic =~ m#page-icon="([^"]+)"#) {
	    $page = $1;
	  }
	}
	if (exists $main::database{$page}) {
	  my ($magic, $content) = $o->magic_and_content ($main::database{$page});
	  if ($magic =~ m!^\#\?SuikaWikiImage/0\.9! && $magic =~ m#image-type="([^"]+)"#) {
	    my ($type0,$type) = ($1,$1); $type =~ tr/\x00-\x20\x7F//d;
	    $type =~ s/[^0-9A-Za-z_]/_/g;
	    $r = qq(<img rel="icon" type="@{[$o->escape($type0)]}" src="@{[$o->uri('wiki')]}?mypage=@{[$o->encode($page)]};mycmd=$type" class="favicon" alt=" " />);
	  }
	}
}

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