lib/CGI/Push.pm

1 package CGI::Push;
17 #   http://stein.cshl.org/WWW/software/CGI/
19 $CGI::Push::VERSION='1.04';
20 use CGI;
21 use CGI::Util 'rearrange';
22 @ISA = ('CGI');
24 $CGI::DefaultClass = 'CGI::Push';
25 $CGI::Push::AutoloadClass = 'CGI';
28 push(@{$CGI::EXPORT_TAGS{':standard'}},'do_push','push_delay');
31     my ($self,@p) = CGI::self_or_default(@_);
52     push(@o,'-Server'=>"CGI.pm Push Module") if $nph;
57     $boundary = "$CGI::CRLF--$boundary";
59     print "WARNING: YOUR BROWSER DOESN'T SUPPORT THIS SERVER-PUSH TECHNOLOGY.${boundary}$CGI::CRLF";
65         print "Content-type: ${type}$CGI::CRLF$CGI::CRLF" unless $type =~ /^dynamic|heterogeneous$/i;
69             print "${boundary}$CGI::CRLF";
73                 print "${boundary}$CGI::CRLF";
75                 print "Content-type: ${type}$CGI::CRLF$CGI::CRLF" unless $type =~ /^dynamic|heterogeneous$/i;
78             print "${boundary}--$CGI::CRLF";
82     print "WARNING: YOUR BROWSER DOESN'T SUPPORT THIS SERVER-PUSH TECHNOLOGY.$CGI::CRLF";
87     return $self->start_html("CGI::Push Default Counter"),
88            $self->h1("CGI::Push Default Counter"),
91            $self->a({'-href'=>'http://www.genome.wi.mit.edu/ftp/pub/software/WWW/cgi_docs.html'},'CGI.pm home page'),
105     my ($self,$delay) = CGI::self_or_default(@_);
114 CGI::Push - Simple Interface to Server Push
118     use CGI::Push qw(:standard);
143 CGI::Push is a subclass of the CGI object created by CGI.pm.  It is
147 You provide CGI::Push with a pointer to a subroutine that will draw
157 =head1 USING CGI::Push
159 CGI::Push adds one new method to the standard CGI suite, do_push().
163 parameters include most of those recognized by the CGI header()
169     use CGI::Push;
170     $q = new CGI::Push;
175     use CGI::Push qw(:standard);
188 consisting of the CGI object and a counter indicating the number
233 CGI::header().
241 Ordinarily all pages displayed by CGI::Push share a common MIME type.
293 =head1 INSTALLING CGI::Push SCRIPTS
322 L<CGI::Carp>, L<CGI>