root/lang/actionscript/todoshare/perl/Html.pm @ 16014

package stream;

sub new {
  my $c=shift;
  my $out=shift;
  bless{out=>$out};     
}
my %noClose;
for (split(/\n/,<<EOF)) { $noClose{$_}=1; }
br
input
EOF

sub p {
  my $t=shift;
  my $c=shift;
  if ( (ref $c) eq "ARRAY") {
    my $tag= $c->[0]; 
    die ("No tag name: [".join(",",@{$c})."]") unless($tag);
    if ((ref $tag) eq "ARRAY") {
       for (@{$tag}) {
          $t->p($_);
       }
       return;
    }
    $t->out("<$tag "); 
    my $params=$c->[1];
    my $start=1;
    if ((ref $params) eq "HASH") {
       while (my ($k,$v)= each %{$params}) {
          $t->out( &sym($k)."=".&attr($v)." " ); 
       }
       $start++;
    }
    $t->out(">");
    for (my $i=$start; $i<@{$c}; $i++) {
       $t->p($c->[$i] );
    }
    $t->out("</$tag>") unless($noClose{$tag});
  } elsif ( (ref $c) eq "CODE") {
     &{$c}($t);
  } else {
     $t->out(&literal($c));
  }  
  $t;
}
sub out {
  my $t=shift;
  my $s=shift;
  &{$t->{out}}($s);
  $t;
}
sub ln {
  my $t=shift;
  $t->out("\n");
  $t;
}
sub brln {
  my $t=shift;
  $t->out("<BR>\n");
  $t;
}
sub literal {
  my $s=shift;
  #$s =~ s/&/&amp;/g;
  $s =~ s/"/&quot;/g;
  $s =~ s/>/&gt;/g;
  $s =~ s/</&lt;/g;
  $s;
}
sub sym {
  my $s=shift;
  $s=~s/[^\w\d]//g;
  $s;
}
sub attr {
  my $s=shift;
  '"'.&literal($s).'"';
}

package Html;

our @EXPORT = qw(header p brln);
use base qw(Exporter);

sub header {
  print "Content-type: text/html; charset=utf-8\n\n";
}
sub brln {
  sub {$_[0]->out("<BR>\n");};
}

sub p {
  my $c=shift;
  new stream(sub {
      my $s=shift; 
      print $s;
  })->p($c);
}
1;