AcePerl
view release on metacpan or search on metacpan
Ace/Object.pm view on Meta::CPAN
}
if ($opts->{timestamps} && (my $timestamp = $self->timestamp)) {
$timestamp = $self->escapeXML($timestamp);
$attributes .= qq( timestamp="$timestamp");
}
$tagname = $self->_xmlNumber($tagname) if $tagname =~ /^\d/;
unless (defined $self->right) { # lone tag
$$out .= $self->isTag || !$opts->{content} ? qq($tab<$tagname$attributes />\n)
: qq($tab<$tagname$attributes>$content</$tagname>\n);
} elsif ($self->isTag) { # most tags are implicit in the XML tag names
if (!XML_COLLAPSE_TAGS or $self->right->isTag) {
$$out .= qq($tab<$tagname$attributes>\n);
$level = $self->right->_asXML($out,$position,$level+1,$current_tag,$tag_level + !XML_COLLAPSE_TAGS,$opts);
$$out .= qq($tab</$tagname>\n);
} else {
$level = $self->right->_asXML($out,$position+1,$level+1,$current_tag,$tag_level,$opts);
}
} else {
Ace/Object.pm view on Meta::CPAN
} while defined $self;
return --$level;
}
sub escapeXML {
my ($self,$string) = @_;
$string =~ s/&/&/g;
$string =~ s/\"/"/g;
$string =~ s/</</g;
$string =~ s/>/>/g;
return $string;
}
sub _xmlNumber {
my $self = shift;
my $tag = shift;
$tag =~ s/^(\d)/
$1 eq '0' ? 'zero'
: $1 eq '1' ? 'one'
: $1 eq '2' ? 'two'
acebrowser/htdocs/index.html view on Meta::CPAN
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html> <head>
<title>AceBrowser</title>
<link rel="stylesheet" href="stylesheets/aceperl.css" />
</head>
<body>
<h1>AceBrowser Default Page</h1>
<p>
This is the default page installed by AceBrowser. You'd better change it!
</p>
<p>
docs/GFF_Spec.html view on Meta::CPAN
</TABLE>
<TABLE BORDER=1 WIDTH=100%>
<TR>
<TD>
<TABLE BORDER="0" WIDTH="100%">
<TR>
<TD WIDTH="23" ALIGN=LEFT VALIGN=MIDDLE ROWSPAN=3>
<IMG WIDTH="23" HEIGHT="55" ALT="" BORDER="0" SRC="/header-icons/helix.gif">
</TD>
<TD ALIGN=CENTER VALIGN=TOP>
<A HREF=/><IMG WIDTH="236" HEIGHT="29" BORDER="0"
ALT="[The Sanger Centre]"
SRC="/header-icons/sanger-centre.gif"></A>
</TD>
<TD WIDTH="55" ALIGN=RIGHT VALIGN=MIDDLE ROWSPAN=3>
<IMG WIDTH="55" HEIGHT="55" ALT="" BORDER=0 SRC=/header-icons/sw.gif>
</TD>
</TR>
<TR>
<TD ALIGN=CENTER VALIGN=TOP NOWRAP>
<TT><FONT FACE=Arial,Helvetica,sans-serif SIZE=-1>
|
<A HREF=/Info/>Info</A>
|
<A HREF=/HGP/>HGP</A>
|
<A HREF=/Projects/>Projects</A>
|
<A HREF=/DataSearch/>Database Searches</A>
|
<A HREF=/Software/><B>Software</B></A>
|
<A HREF=/Teams/>Teams</A>
|
<A HREF=http://search.sanger.ac.uk>Search</A>
|
</FONT></TT>
</TD>
</TR>
<TR> <TD ALIGN=LEFT VALIGN=TOP NOWRAP>
<FONT FACE=Arial,Helvetica,sans-serif SIZE=-1><TT>
<A HREF=/><IMG WIDTH=11 HEIGHT=10 BORDER=0 HSPACE=0 ALIGN=TOP ALT="Home page" SRC=/icons/arrow.small.up.gif> Home</A>
<A HREF=/Software/><IMG WIDTH=11 HEIGHT=10 BORDER=0 HSPACE=0 ALIGN=TOP ALT="up to Software & Databases " SRC=/icons/arrow.small.left.gif> Software & Databases </A>
<A HREF=/Software/GFF/><IMG WIDTH=11 HEIGHT=10 BORDER=0 HSPACE=0 ALIGN=TOP ALT="up to GFF" SRC=/icons/arrow.small.left.gif> GFF</A>
</TT></FONT>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<P>
docs/GFF_Spec.html view on Meta::CPAN
<!-- open table for page footer -->
<TABLE BORDER="0" WIDTH="100%">
<TR>
<TD ALIGN=LEFT>
<I>
last modified : 25-Mar-1999, 01:59 PM
</I>
</TD>
<TD ALIGN=RIGHT>
<A HREF=/Users/rbsk/>Richard Bruskiewich</A>
<I>(<A HREF=mailto:rbsk@sanger.ac.uk>rbsk@sanger.ac.uk</A>)</I>
</TD>
</TR>
</TABLE> <!-- close table for page footer -->
</BODY>
</HTML>
( run in 1.306 second using v1.01-cache-2.11-cpan-df04353d9ac )