Changeset 14018
- Timestamp:
- 2007-04-23T15:14:21+12:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r14012 r14018 341 341 &util::mk_dir($tmp_dirname) if (!-e $tmp_dirname); 342 342 343 my $test_dirname = ""; 344 if ($dirname =~ /import\//) 345 { 346 $test_dirname = $'; 347 348 #print STDERR "init $'\n"; 349 350 while ($test_dirname =~ /[\/]/) 351 { 352 my $folderdirname = $`; 353 $tmp_dirname = &util::filename_cat($tmp_dirname,$folderdirname); 354 &util::mk_dir($tmp_dirname) if (!-e $tmp_dirname); 355 $test_dirname = $'; 356 #print STDERR "folder $`\n"; 357 } 358 359 #my $folderdirname = $'; 360 #$tmp_dirname = &util::filename_cat($tmp_dirname,$folderdirname); 361 #&util::mk_dir($tmp_dirname) if (!-e $tmp_dirname); 362 #print STDERR "folderdirnae $'\n"; 363 364 #$test_dirname =~ s/[\\\/]+$//; 365 #print STDERR "$'"; 366 } 367 343 368 # remove trailing slashes 344 $dirname =~ s/[\\\/]+$//;369 #$dirname =~ s/[\\\/]+$//; 345 370 # create folder for this file 346 my $folderdirname = &File::Basename::basename($dirname); 347 $tmp_dirname = &util::filename_cat($tmp_dirname,$folderdirname); 348 &util::mk_dir($tmp_dirname) if (!-e $tmp_dirname); 371 #my $folderdirname = &File::Basename::basename($dirname); 372 #my $folderdirname = $test_dirname; 373 #$tmp_dirname = &util::filename_cat($tmp_dirname,$folderdirname); 374 #&util::mk_dir($tmp_dirname) if (!-e $tmp_dirname); 349 375 350 376 my $tmp_filename = &util::filename_cat($tmp_dirname, "$tailname$suffix"); … … 353 379 if (($suffix eq ".htm") || ($suffix eq ".html") || ($suffix eq ".shtml")) 354 380 { 355 # 381 #convert the input file to a new style HDL 356 382 my $hdl_output_filename = $input_filename; 357 383 if ($self->{'old_style_HDL'}) … … 361 387 } 362 388 363 # tidy the input file 364 my $tidy_output_filename = $hdl_output_filename; 365 if ($self->{'tidy_html'}) 366 { 367 $tidy_output_filename = &util::filename_cat($tmp_dirname, "$tailname$suffix"); 368 $tidy_output_filename = $self->tmp_tidy_file($hdl_output_filename,$tidy_output_filename); 369 } 370 371 $tmp_filename = $tidy_output_filename; 372 373 # just for checking copy all other file from the base dir to tmp dir if it is not exists 389 #just for checking copy all other file from the base dir to tmp dir if it is not exists 374 390 opendir(DIR,$base_dirname) or die "Can't open base directory : $base_dirname!"; 375 391 my @files = grep {!/^\.+$/} readdir(DIR); … … 390 406 } 391 407 } 408 409 # tidy the input file 410 my $tidy_output_filename = $hdl_output_filename; 411 if ($self->{'tidy_html'}) 412 { 413 $tidy_output_filename = &util::filename_cat($tmp_dirname, "$tailname$suffix"); 414 $tidy_output_filename = $self->tmp_tidy_file($hdl_output_filename,$tidy_output_filename); 415 } 416 $tmp_filename = $tidy_output_filename; 392 417 } 393 418 else
Note:
See TracChangeset
for help on using the changeset viewer.