[FormMagick-devel] CVS: formmagick/lib/CGI FormMagick.pm,1.1,1.2

[Kirrily R. <sk...@us...>]

Update of /cvsroot/formmagick/formmagick/lib/CGI
In directory usw-pr-cvs1:/tmp/cvs-serv29828/lib/CGI

Modified Files:
	FormMagick.pm 
Log Message:
TYPE => "STRING" works fine.
This means you can do things like:

  $/ = undef;
  my $data = <DATA>;

  my $fm = new CGI::FormMagick(TYPE => "STRING", SOURCE => $data);
  $fm->display();

  __DATA__
  <FORM ... etc>

That is, everything in one file.  Handy.




Index: FormMagick.pm
===================================================================
RCS file: /cvsroot/formmagick/formmagick/lib/CGI/FormMagick.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** FormMagick.pm	2001/02/27 23:46:07	1.1
--- FormMagick.pm	2001/02/28 18:41:02	1.2
***************
*** 132,152 ****
    my $p = new XML::Parser (Style => 'Tree');
    $self->{debug} = $args{DEBUG} || 0;
  
! 
!   if ($args{SOURCE}) {
      $self->{source} = $args{SOURCE};
!   } else {
!     # default source filename to the same as the perl script, with .xml 
!     # extension
!     use File::Basename;
!   
!     my($scriptname, $scriptdir, $extension) =
!        File::Basename::fileparse($0, '\.[^\.]+');
!   
!     my $string = $scriptname . '.xml';
!     $self->{source} = $string;
    }
- 
-   $self->{xml} = $p->parsefile($self->{source});
  
    # okay, this XML::Parser data structure is a little strange. 
--- 132,156 ----
    my $p = new XML::Parser (Style => 'Tree');
    $self->{debug} = $args{DEBUG} || 0;
+   $self->{inputtype} = $args{TYPE} || 0;
  
!   if ($self->{inputtype} eq "FILE") {
!     if ($args{SOURCE}) {
!       $self->{source} = $args{SOURCE};
!     } else {
!       # default source filename to the same as the perl script, with .xml 
!       # extension
!       use File::Basename;
!     
!       my($scriptname, $scriptdir, $extension) =
!          File::Basename::fileparse($0, '\.[^\.]+');
!     
!       my $string = $scriptname . '.xml';
!       $self->{source} = $string;
!     }
!     $self->{xml} = $p->parsefile($self->{source});
!   } elsif ($self->{inputtype} eq "STRING") {
      $self->{source} = $args{SOURCE};
!     $self->{xml} = $p->parse($self->{source});
    }
  
    # okay, this XML::Parser data structure is a little strange.