[Openinteract-commits] CVS: OpenInteract/pkg/base_page/script static_page2base_page.pl,1.2,1.3

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/script
In directory usw-pr-cvs1:/tmp/cvs-serv2703/script

Modified Files:
	static_page2base_page.pl 
Log Message:
add docs, try to find mime_type of content


Index: static_page2base_page.pl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/script/static_page2base_page.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** static_page2base_page.pl	2001/11/27 12:09:03	1.2
--- static_page2base_page.pl	2001/11/27 13:21:03	1.3
***************
*** 10,25 ****
  use OpenInteract::Startup;
  
- # Do you want to add '.html' to any pages that don't have it? This can
- # be useful if you need to use the files for something else, or ensure
- # that they can be used
- 
- my $ADD_HTML = 'yes';
- 
- # Do you want your pages saved in the filesystem? This is encouraged.
- 
- my $AS_FILE  = 'yes';
- 
  {
!     my $R = OpenInteract::Startup->setup_static_environment_options();
  
      # First retrieve all the static page objects
--- 10,21 ----
  use OpenInteract::Startup;
  
  {
!     my ( $OPT_add_html, $OPT_as_file, $OPT_as_database );
!     my %opts = ( 'add_html'    => \$OPT_add_html,
!                  'as_file'     => \$OPT_as_file,
!                  'as_database' => \$OPT_as_database );
!     my $R = OpenInteract::Startup->setup_static_environment_options( '', \%opts );
! 
!     $OPT_as_file++ unless ( $OPT_as_file or $OPT_as_database );
  
      # First retrieve all the static page objects
***************
*** 35,39 ****
  
          my $location => $static_page->{location};
!         if ( $ADD_HTML eq 'yes' and $location !~ /\.html$/ ) {
              $location .= '.html';
          }
--- 31,35 ----
  
          my $location => $static_page->{location};
!         if ( $OPT_add_html and $location !~ /\.\w+$/ ) {
              $location .= '.html';
          }
***************
*** 51,65 ****
                           is_active     => $static_page->{is_active},
                           notes         => $static_page->{notes},
-                          mime_type     => 'text/html',
                           location      => $location });
  
          # Set file status
  
!         if ( $AS_FILE eq 'yes' ) {
!             $page->{storage} = 'file';
!         }
!         else {
!             $page->{storage} = 'database';
!         }
  
          # Set the content
--- 47,56 ----
                           is_active     => $static_page->{is_active},
                           notes         => $static_page->{notes},
                           location      => $location });
  
          # Set file status
  
!         $page->{storage} = 'database' if ( $OPT_as_database );
!         $page->{storage} = 'file'     if ( $OPT_as_file );
  
          # Set the content
***************
*** 75,78 ****
--- 66,73 ----
          }
  
+         $page->{mime_type} = OpenInteract::Page->mime_type_content( $page->{content} ) ||
+                              'text/html';
+         $page->{size}      = length $page->{content};
+ 
          # Save the page object (automatically saves the content) and
          # display a status
***************
*** 89,90 ****
--- 84,145 ----
      }
  }
+ 
+ __END__
+ 
+ =pod
+ 
+ =head1 NAME
+ 
+ static_page2base_page.pl - Migrate pages from the 'static_page' to the 'base_page' package
+ 
+ =head1 SYNOPSIS
+ 
+  $ export OIWEBSITE=/home/httpd/mysite
+  $ perl static_page2base_page.pl --add_html --as_file
+ 
+ =head1 DESCRIPTION
+ 
+ As of OpenInteract 1.35, all functionality for serving 'static' pages
+ and files is now in the 'base_page' package. (Previously it was in the
+ 'static_page' package.)
+ 
+ The new package has been entirely rewritten and uses a different table
+ structure, so you will need to migrate the pages from the structure of
+ the earlier package to this one. This script should do the job.
+ 
+ =head1 OPTIONS
+ 
+ B<--add_html>
+ 
+ If pass we will add C<.html> to any file that does not have an
+ extension.
+ 
+ B<--as_file>
+ 
+ B<--as_database>
+ 
+ These two options are mutually exclusive. They determine where the
+ page content will be stored. If not specified, we use B<--as_file>.
+ 
+ =head1 BUGS
+ 
+ None known.
+ 
+ =head1 TO DO
+ 
+ Nothing known.
+ 
+ =head1 SEE ALSO
+ 
+ =head1 COPYRIGHT
+ 
+ Copyright (c) 2001 intes.net, inc.. All rights reserved.
+ 
+ This library is free software; you can redistribute it and/or modify
+ it under the same terms as Perl itself.
+ 
+ =head1 AUTHORS
+ 
+ Chris Winters <ch...@cw...>
+ 
+ =cut