bicyclesonthemoon.info Git - ott/bsta/blob - testhtml.pl

   1 #!/usr/bin/perl
   2 use lib '/eizm/lib/bstatest/';
   3 use strict;
   4 use bsta_lib qw(failpage gethttpheader getcgi entityencode readdatafile writedatafile printdatafileht urlencode bb2ht bb2bb linehtml);
   5
   6 my $bb;
   7 my $ht;
   8
   9 $bb="[fq]<fq>[/fq][tq]<tq>[/tq][ni]<ni>[/ni][br]<br>[/br][po]<po>[/po][url=<url>]<url>[/url][i]<i>[/i]<teqt>\n";
  10 $ht=bb2bb($bb,1);
  11 print $ht."\n";
  12 $ht=bb2ht($bb,1);
  13 print $ht."\n";
  14
  15 # print ht;