Changeset 24938 for gs3-extensions/html-to-expeditee
- Timestamp:
- 2012-01-11T10:35:25+13:00 (12 years ago)
- Location:
- gs3-extensions/html-to-expeditee/trunk/src/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
gs3-extensions/html-to-expeditee/trunk/src/perllib/ExpediteeFrameIO.pm
r24934 r24938 31 31 { 32 32 my $class = shift(@_); 33 my ($username) = shift(@_) || "greenstone"; 33 my $output_dir = shift(@_); 34 my $username = shift(@_) || "greenstone"; 34 35 35 36 my $self = { 'items' => [], 'lines' => [], 'constraints' => [] }; 36 37 38 $self->{'output_dir'} = $output_dir; 37 39 $self->{'username'} = $username; 38 40 … … 364 366 { 365 367 my $self = shift @_; 366 my ($filename) = @_; 368 my ($file) = @_; 369 370 my $filename = &util::filename_cat($self->{'output_dir'},$file); 367 371 368 372 my $status = undef; … … 380 384 } 381 385 else { 382 print STDERR "ExpediteeFrameIO:: Failed to open $filename for output\n";386 print STDERR "ExpediteeFrameIO::saveFrame() Failed to open $filename for output\n"; 383 387 $status = 0; 384 388 } … … 428 432 429 433 430 sub saveNextFreeFrame 431 { 432 my $self = shift @_; 433 my ($nextFreeFrame) = @_; 434 435 print STDERR "**** saveNextFreeFrame not implemented yet!!\n"; 434 sub saveLastFrameNumber 435 { 436 my $self = shift @_; 437 my ($last_frame_number) = @_; 438 439 my $filename = &util::filename_cat($self->{'output_dir'},"frame.inf"); 440 441 my $status = undef; 442 443 if (open(FNOUT,">$filename")) { 444 binmode(FOUT,":utf8"); 445 446 print FNOUT "$last_frame_number\n"; 447 448 close(FNOUT); 449 $status = 1; 450 } 451 else { 452 print STDERR "ExpediteeFrameIO::saveLastFrameNumber() Failed to open $filename for output\n"; 453 $status = 0; 454 } 455 456 return $status; 457 436 458 } 437 459 -
gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm
r24936 r24938 90 90 &util::mk_dir($output_dir); 91 91 } 92 my $frame_filename = &util::filename_cat($output_dir,"$fn.exp");93 92 94 my $expeditee_frame_io = new ExpediteeFrameIO( );93 my $expeditee_frame_io = new ExpediteeFrameIO($output_dir); 95 94 96 95 $expeditee_frame_io->buildFrame($exp_frame_tree); 97 96 98 if ($expeditee_frame_io->saveFrame( $frame_filename)) {97 if ($expeditee_frame_io->saveFrame("$fn.exp")) { 99 98 100 99 # write out next free frame num 101 $expeditee_frame_io->save NextFreeFrame($fn+1);100 $expeditee_frame_io->saveLastFrameNumber($fn); 102 101 103 102 $gsdl_cgi->generate_message("html-to-expeditee saved frame $fn"); 104 103 } 105 104 else { 106 $gsdl_cgi->generate_error("Failed to open $frame_filename for output");105 $gsdl_cgi->generate_error("Failed to save frame number $fn"); 107 106 } 108 107 }
Note:
See TracChangeset
for help on using the changeset viewer.