view release on metacpan or  search on metacpan

examples/embedded.cgi  view on Meta::CPAN

use warnings;

use CGI         qw[];
use Digest::MD5 qw[];
use Time::HiRes qw[];

my $id = Digest::MD5::md5_hex( time() . {} . rand() . $$ );
my $q  = CGI->new( sub { Time::HiRes::sleep(0.250) } ); # will give us a nice slowdown

print $q->header(
          -charset  => 'UTF-8',
      ),
      $q->start_html(
          -title    => 'Apache2::UploadProgress Embedded Example',
          -encoding => 'UTF-8',
          -script   => [ { -src => '/UploadProgress/progress.js'      },
                         { -src => '/UploadProgress/progress.jmpl.js' }, ],
          -style    => [ { -src => '/UploadProgress/progress.css', -rel => 'StyleSheet',           -title => 'Default' },
                         { -src => 'css/progress_blueblock.css',   -rel => 'Alternate StyleSheet', -title => 'Blue Blocks' },
                         { -src => 'css/progress_bluebar.css',     -rel => 'Alternate StyleSheet', -title => 'Blue Animated Bar' }, ],
      ),

examples/popup.cgi  view on Meta::CPAN

use warnings;

use CGI         qw[];
use Digest::MD5 qw[];
use Time::HiRes qw[];

my $id = Digest::MD5::md5_hex( time() . {} . rand() . $$ );
my $q  = CGI->new( sub { Time::HiRes::sleep(0.250) } ); # will give us a nice slowdown

print $q->header(
          -charset  => 'UTF-8',
      ),
      $q->start_html(
          -title    => 'Apache2::UploadProgress Popup Example',
          -encoding => 'UTF-8',
          -script   => { -src => '/UploadProgress/progress.js' },
      ),
      $q->h1( $q->param('file') ? 'Upload complete!' : 'Apache2::UploadProgress Example' ),
      $q->start_form(
          -action   => $q->script_name,
          -enctype  => 'multipart/form-data',