1: 2eval 'exec perl -wS $0 ${1+"$@"}' 3 if 0; 4# ************************************************************* 5# 6# Licensed to the Apache Software Foundation (ASF) under one 7# or more contributor license agreements. See the NOTICE file 8# distributed with this work for additional information 9# regarding copyright ownership. The ASF licenses this file 10# to you under the Apache License, Version 2.0 (the 11# "License"); you may not use this file except in compliance 12# with the License. You may obtain a copy of the License at 13# 14# http://www.apache.org/licenses/LICENSE-2.0 15# 16# Unless required by applicable law or agreed to in writing, 17# software distributed under the License is distributed on an 18# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 19# KIND, either express or implied. See the License for the 20# specific language governing permissions and limitations 21# under the License. 22# 23# ************************************************************* 24 25 26use IO::File; 27use Cwd; 28use File::Spec; 29use File::Spec::Functions; 30use File::Temp; 31use File::Path; 32 33$TempDir = ""; 34my $FirstTransitionIndex = 0; 35my $LastTransitionIndex = -1; 36 37 38# all the XML package generation is a blatant rip from AF's 39# write-calc-doc.pl 40 41 42############################################################################### 43# Open a file with the given name. 44# First it is checked if the temporary directory, in which all files for 45# the document are gathered, is already present and create it if it is not. 46# Then create the path to the file inside the temporary directory. 47# Finally open the file and return a file handle to it. 48# 49sub open_file 50{ 51 my $filename = pop @_; 52 53 # Create base directory of temporary directory tree if not alreay 54 # present. 55 if ($TempDir eq "") 56 { 57 $TempDir = File::Temp::tempdir (CLEANUP => 1); 58 } 59 60 # Create the path to the file. 61 my $fullname = File::Spec->catfile ($TempDir, $filename); 62 my ($volume,$directories,$file) = File::Spec->splitpath ($fullname); 63 mkpath (File::Spec->catpath ($volume,$directories,"")); 64 65 # Open the file and return a file handle to it. 66 return new IO::File ($fullname, "w"); 67} 68 69 70############################################################################### 71# Zip the files in the directory tree into the given file. 72# 73sub zip_dirtree 74{ 75 my $filename = pop @_; 76 77 my $cwd = getcwd; 78 my $zip_name = $filename; 79 80 # We are about to change the directory. 81 # Therefore create an absolute pathname for the zip archive. 82 83 # First transfer the drive from $cwd to $zip_name. This is a 84 # workaround for a bug in file_name_is_absolute which thinks 85 # the the path \bla is an absolute path under DOS. 86 my ($volume,$directories,$file) = File::Spec->splitpath ($zip_name); 87 my ($volume_cwd,$directories_cwd,$file_cwd) = File::Spec->splitpath ($cwd); 88 $volume = $volume_cwd if ($volume eq ""); 89 $zip_name = File::Spec->catpath ($volume,$directories,$file); 90 91 # Add the current working directory to a relative path. 92 if ( ! file_name_is_absolute ($zip_name)) 93 { 94 $zip_name = File::Spec->catfile ($cwd, $zip_name); 95 96 # Try everything to clean up the name. 97 $zip_name = File::Spec->rel2abs ($filename); 98 $zip_name = File::Spec->canonpath ($zip_name); 99 100 # Remove .. directories from the middle of the path. 101 while ($zip_name =~ /\/[^\/][^\.\/][^\/]*\/\.\.\//) 102 { 103 $zip_name = $` . "/" . $'; # $' 104 } 105 } 106 107 # Just in case the zip program gets confused by an existing file with the 108 # same name as the one to be written that file is removed first. 109 if ( -e $filename) 110 { 111 if (unlink ($filename) == 0) 112 { 113 print "Existing file $filename could not be deleted.\n"; 114 print "Please close the application that uses it, then try again.\n"; 115 return; 116 } 117 } 118 119 # Finally create the zip file. First change into the temporary directory 120 # so that the resulting zip file contains only paths relative to it. 121 print "zipping [$ZipCmd $ZipFlags $zip_name *]\n"; 122 chdir ($TempDir); 123 system ("$ZipCmd $ZipFlags $zip_name *"); 124 chdir ($cwd); 125 126} 127 128 129sub writeHeader 130{ 131 print $OUT qq~<?xml version="1.0" encoding="UTF-8"?> 132 133<office:document-content xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0" xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0" xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0" xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0" xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0" xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0" xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0" xmlns:presentation="urn:oasis:names:tc:opendocument:xmlns:presentation:1.0" xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0" xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0" xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0" xmlns:math="http://www.w3.org/1998/Math/MathML" xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0" xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0" xmlns:ooo="http://openoffice.org/2004/office" xmlns:ooow="http://openoffice.org/2004/writer" xmlns:oooc="http://openoffice.org/2004/calc" xmlns:dom="http://www.w3.org/2001/xml-events" xmlns:xforms="http://www.w3.org/2002/xforms" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:smil="urn:oasis:names:tc:opendocument:xmlns:smil-compatible:1.0" xmlns:anim="urn:oasis:names:tc:opendocument:xmlns:animation:1.0" office:version="1.0"> 134 <office:scripts/> 135 <office:automatic-styles> 136~; 137 138} 139 140sub writeSlideStyles 141{ 142 my $mode = pop @_; 143 my $direction = pop @_; 144 my $transitionSubType = pop @_; 145 my $transitionType = pop @_; 146 my $slideNum = pop @_; 147 148 return if $slideNum<$FirstTransitionIndex || ($LastTransitionIndex>=0 && $slideNum>$LastTransitionIndex); 149 150 print $OUT " <style:style style:name=\"dp",$slideNum,"\" style:family=\"drawing-page\">\n"; 151 print $OUT " <style:drawing-page-properties presentation:transition-type=\"automatic\" presentation:duration=\"PT00H00M01S\" presentation:background-visible=\"true\" presentation:background-objects-visible=\"true\" draw:fill=\"solid\" draw:fill-color=\"#ff",$slideNum % 2 ? "ff99" : "cc99","\" smil:type=\"",$transitionType,"\" smil:subtype=\"",$transitionSubType,"\" ",$direction == 0 ? "" : "smil:direction=\"reverse\" ",$mode == 0 ? "" : "smil:mode=\"out\"","/>\n"; 152 print $OUT " </style:style>\n"; 153} 154 155sub writeIntermediate 156{ 157 print $OUT qq~ <style:style style:name="gr1" style:family="graphic"> 158 <style:graphic-properties style:protect="size"/> 159 </style:style> 160 <style:style style:name="pr1" style:family="presentation" style:parent-style-name="Default-title"> 161 <style:graphic-properties draw:fill-color="#ffffff" draw:auto-grow-height="true" fo:min-height="3.508cm"/> 162 </style:style> 163 <style:style style:name="pr2" style:family="presentation" style:parent-style-name="Default-notes"> 164 <style:graphic-properties draw:fill-color="#ffffff" draw:auto-grow-height="true" fo:min-height="13.367cm"/> 165 </style:style> 166 <style:style style:name="P1" style:family="paragraph"> 167 <style:paragraph-properties fo:margin-left="0cm" fo:margin-right="0cm" fo:text-indent="0cm"/> 168 </style:style> 169 <style:style style:name="P2" style:family="paragraph"> 170 <style:paragraph-properties fo:margin-left="0.6cm" fo:margin-right="0cm" fo:text-indent="-0.6cm"/> 171 </style:style> 172 <text:list-style style:name="L1"> 173 <text:list-level-style-bullet text:level="1" text:bullet-char="●"> 174 <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/> 175 </text:list-level-style-bullet> 176 <text:list-level-style-bullet text:level="2" text:bullet-char="●"> 177 <style:list-level-properties text:space-before="0.6cm" text:min-label-width="0.6cm"/> 178 <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/> 179 </text:list-level-style-bullet> 180 <text:list-level-style-bullet text:level="3" text:bullet-char="●"> 181 <style:list-level-properties text:space-before="1.2cm" text:min-label-width="0.6cm"/> 182 <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/> 183 </text:list-level-style-bullet> 184 <text:list-level-style-bullet text:level="4" text:bullet-char="●"> 185 <style:list-level-properties text:space-before="1.8cm" text:min-label-width="0.6cm"/> 186 <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/> 187 </text:list-level-style-bullet> 188 <text:list-level-style-bullet text:level="5" text:bullet-char="●"> 189 <style:list-level-properties text:space-before="2.4cm" text:min-label-width="0.6cm"/> 190 <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/> 191 </text:list-level-style-bullet> 192 <text:list-level-style-bullet text:level="6" text:bullet-char="●"> 193 <style:list-level-properties text:space-before="3cm" text:min-label-width="0.6cm"/> 194 <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/> 195 </text:list-level-style-bullet> 196 <text:list-level-style-bullet text:level="7" text:bullet-char="●"> 197 <style:list-level-properties text:space-before="3.6cm" text:min-label-width="0.6cm"/> 198 <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/> 199 </text:list-level-style-bullet> 200 <text:list-level-style-bullet text:level="8" text:bullet-char="●"> 201 <style:list-level-properties text:space-before="4.2cm" text:min-label-width="0.6cm"/> 202 <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/> 203 </text:list-level-style-bullet> 204 <text:list-level-style-bullet text:level="9" text:bullet-char="●"> 205 <style:list-level-properties text:space-before="4.8cm" text:min-label-width="0.6cm"/> 206 <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/> 207 </text:list-level-style-bullet> 208 </text:list-style> 209 </office:automatic-styles> 210 <office:body> 211 <office:presentation> 212~; 213 214} 215 216sub writeSlide 217{ 218 my $mode = pop @_; 219 my $direction = pop @_; 220 my $transitionSubtype = pop @_; 221 my $transitionType = pop @_; 222 my $slideNum = pop @_; 223 224 return if $slideNum<$FirstTransitionIndex || ($LastTransitionIndex>=0 && $slideNum>$LastTransitionIndex); 225 226 print $OUT " <draw:page draw:name=\"page",$slideNum,"\" draw:style-name=\"dp",$slideNum,"\" draw:master-page-name=\"Default\" presentation:presentation-page-layout-name=\"AL1T19\">"; 227 228 print $OUT " <draw:frame presentation:style-name=\"pr1\" draw:layer=\"layout\" svg:width=\"25.199cm\" svg:height=\"3.256cm\" svg:x=\"1.4cm\" svg:y=\"0.962cm\" presentation:class=\"title\">\n"; 229 print $OUT " <draw:text-box>\n"; 230 print $OUT " <text:p text:style-name=\"P1\">Transition “",$slideNum-1,"”</text:p>\n"; 231 print $OUT " </draw:text-box>\n"; 232 print $OUT " </draw:frame>\n"; 233 print $OUT " <draw:frame presentation:style-name=\"pr2\" draw:layer=\"layout\" svg:width=\"25.199cm\" svg:height=\"13.609cm\" svg:x=\"1.4cm\" svg:y=\"4.914cm\" presentation:class=\"outline\">\n"; 234 print $OUT " <draw:text-box>\n"; 235 print $OUT " <text:list text:style-name=\"L2\">\n"; 236 print $OUT " <text:list-item>\n"; 237 print $OUT " <text:p text:style-name=\"P2\">Transition: ",$transitionType,"</text:p>\n"; 238 print $OUT " </text:list-item>\n"; 239 print $OUT " </text:list>\n"; 240 print $OUT " <text:list text:style-name=\"L2\">\n"; 241 print $OUT " <text:list-item>\n"; 242 print $OUT " <text:list>\n"; 243 print $OUT " <text:list-item>\n"; 244 print $OUT " <text:p text:style-name=\"P3\">Subtype: ",$transitionSubtype,"</text:p>\n"; 245 print $OUT " </text:list-item>\n"; 246 print $OUT " </text:list>\n"; 247 print $OUT " </text:list-item>\n"; 248 print $OUT " </text:list>\n"; 249 print $OUT " <text:list text:style-name=\"L2\">\n"; 250 print $OUT " <text:list-item>\n"; 251 print $OUT " <text:list>\n"; 252 print $OUT " <text:list-item>\n"; 253 print $OUT " <text:p text:style-name=\"P3\">Direction: ",$direction == 0 ? "forward" : "reverse","</text:p>\n"; 254 print $OUT " </text:list-item>\n"; 255 print $OUT " </text:list>\n"; 256 print $OUT " </text:list-item>\n"; 257 print $OUT " </text:list>\n"; 258 print $OUT " <text:list text:style-name=\"L2\">\n"; 259 print $OUT " <text:list-item>\n"; 260 print $OUT " <text:list>\n"; 261 print $OUT " <text:list-item>\n"; 262 print $OUT " <text:p text:style-name=\"P3\">Mode: ",$mode == 0 ? "in" : "out","</text:p>\n"; 263 print $OUT " </text:list-item>\n"; 264 print $OUT " </text:list>\n"; 265 print $OUT " </text:list-item>\n"; 266 print $OUT " </text:list>\n"; 267 print $OUT " </draw:text-box>\n"; 268 print $OUT " </draw:frame>\n"; 269 print $OUT " <presentation:notes draw:style-name=\"dp2\">\n"; 270 print $OUT " <draw:page-thumbnail draw:style-name=\"gr1\" draw:layer=\"layout\" svg:width=\"14.851cm\" svg:height=\"11.138cm\" svg:x=\"3.068cm\" svg:y=\"2.257cm\" draw:page-number=\"1\" presentation:class=\"page\"/>\n"; 271 print $OUT " <draw:frame presentation:style-name=\"pr3\" draw:layer=\"layout\" svg:width=\"16.79cm\" svg:height=\"13.116cm\" svg:x=\"2.098cm\" svg:y=\"14.109cm\" presentation:class=\"notes\" presentation:placeholder=\"true\">\n"; 272 print $OUT " <draw:text-box/>\n"; 273 print $OUT " </draw:frame>\n"; 274 print $OUT " </presentation:notes>\n"; 275 print $OUT " </draw:page>\n"; 276 277} 278 279sub writeFooter 280{ 281 print $OUT qq~ <presentation:settings presentation:full-screen="false"/> 282 </office:presentation> 283 </office:body> 284</office:document-content> 285~; 286 287} 288 289sub writeManifest 290{ 291 my $outFile = open_file("META-INF/manifest.xml"); 292 293 print $outFile qq~<?xml version="1.0" encoding="UTF-8"?> 294<!DOCTYPE manifest:manifest PUBLIC "-//OpenOffice.org//DTD Manifest 1.0//EN" "Manifest.dtd"> 295<manifest:manifest xmlns:manifest="urn:oasis:names:tc:opendocument:xmlns:manifest:1.0"> 296 <manifest:file-entry manifest:media-type="application/vnd.oasis.opendocument.presentation" manifest:full-path="/"/> 297 <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="content.xml"/> 298</manifest:manifest> 299~; 300 301 $outFile->close; 302} 303 304 305$transitionsRef = [ 306 307 ["barWipe", 308 ["leftToRight", 309 "topToBottom"]], 310 311 ["blindsWipe", 312 ["vertical", 313 "horizontal"]], 314 315 ["boxWipe", 316 ["topLeft", 317 "topRight", 318 "bottomRight", 319 "bottomLeft", 320 "topCenter", 321 "rightCenter", 322 "bottomCenter", 323 "leftCenter"]], 324 325 ["fourBoxWipe", 326 ["cornersIn", 327 "cornersOut"]], 328 329 ["barnDoorWipe", 330 ["vertical", 331 "horizontal", 332 "diagonalBottomLeft", 333 "diagonalTopLeft"]], 334 335 ["bowTieWipe", 336 ["vertical", 337 "horizontal"]], 338 339 ["miscDiagonalWipe", 340 ["doubleBarnDoor", 341 "doubleDiamond"]], 342 343 ["veeWipe", 344 ["down", 345 "left", 346 "up", 347 "right"]], 348 349 ["barnVeeWipe", 350 ["top", 351 "left", 352 "up", 353 "right"]], 354 355 ["zigZagWipe", 356 ["leftToRight", 357 "topToBottom"]], 358 359 ["barnZigZagWipe", 360 ["vertical", 361 "horizontal"]], 362 363 ["irisWipe", 364 ["rectangle", 365 "diamond"]], 366 367 ["triangleWipe", 368 ["up", 369 "right", 370 "down", 371 "left"]], 372 373 ["arrowHeadWipe", 374 ["up", 375 "right", 376 "down", 377 "left"]], 378 379 ["pentagonWipe", 380 ["up", 381 "down"]], 382 383 ["hexagonWipe", 384 ["horizontal", 385 "vertical"]], 386 387 ["ellipseWipe", 388 ["circle", 389 "horizontal", 390 "vertical"]], 391 392 ["eyeWipe", 393 ["vertical", 394 "horizontal"]], 395 396 ["roundRectWipe", 397 ["horizontal", 398 "vertical"]], 399 400 ["starWipe", 401 ["fourPoint", 402 "fivePoint", 403 "sixPoint"]], 404 405 ["miscShapeWipe", 406 ["heart", 407 "keyhole"]], 408 409 ["clockWipe", 410 ["clockwiseTwelve", 411 "clockwiseThree", 412 "clockwiseSix", 413 "clockwiseNine"]], 414 415 ["pinWheelWipe", 416 ["oneBlade", 417 "twoBladeVertical", 418 "twoBladeHorizontal", 419 "threeBlade", 420 "fourBlade", 421 "eightBlade"]], 422 423 ["singleSweepWipe", 424 ["clockwiseTop", 425 "clockwiseRight", 426 "clockwiseBottom", 427 "clockwiseLeft", 428 "clockwiseTopLeft", 429 "counterClockwiseBottomLeft", 430 "clockwiseBottomRight", 431 "counterClockwiseTopRight"]], 432 433 ["fanWipe", 434 ["centerTop", 435 "centerRight", 436 "top", 437 "right", 438 "bottom", 439 "left"]], 440 441 ["doubleFanWipe", 442 ["fanOutVertical", 443 "fanOutHorizontal", 444 "fanInVertical", 445 "fanInHorizontal"]], 446 447 ["doubleSweepWipe", 448 ["parallelVertical", 449 "parallelDiagonal", 450 "oppositeVertical", 451 "oppositeHorizontal", 452 "parallelDiagonalTopLeft", 453 "parallelDiagonalBottomLeft"]], 454 455 ["saloonDoorWipe", 456 ["top", 457 "left", 458 "bottom", 459 "right"]], 460 461 ["windshieldWipe", 462 ["right", 463 "up", 464 "vertical", 465 "horizontal"]], 466 467 ["snakeWipe", 468 ["topLeftHorizontal", 469 "topLeftVertical", 470 "topLeftDiagonal", 471 "topRightDiagonal", 472 "bottomRightDiagonal", 473 "bottomLeftDiagonal"]], 474 475 ["spiralWipe", 476 ["topLeftClockwise", 477 "topRightClockwise", 478 "bottomRightClockwise", 479 "bottomLeftClockwise", 480 "topLeftCounterClockwise", 481 "topRightCounterClockwise", 482 "bottomRightCounterClockwise", 483 "bottomLeftCounterClockwise"]], 484 485 ["parallelSnakesWipe", 486 ["verticalTopSame", 487 "verticalBottomSame", 488 "verticalTopLeftOpposite", 489 "verticalBottomLeftOpposite", 490 "horizontalLeftSame", 491 "horizontalRightSame", 492 "horizontalTopLeftOpposite", 493 "horizontalTopRightOpposite", 494 "diagonalBottomLeftOpposite", 495 "diagonalTopLeftOpposite"]], 496 497 ["boxSnakesWipe", 498 ["twoBoxTop", 499 "twoBoxLeft", 500 "twoBoxRight", 501 "fourBoxVertical", 502 "fourBoxHorizontal"]], 503 504 ["waterfallWipe", 505 ["verticalLeft", 506 "verticalRight", 507 "horizontalLeft", 508 "horizontalRight"]], 509 510 ["pushWipe", 511 ["fromLeft", 512 "fromTop", 513 "fromRight", 514 "fromBottom", 515 "fromBottomRight", 516 "fromBottomLeft", 517 "fromTopRight", 518 "fromTopLeft", 519 "combHorizontal", 520 "combVertical"]], 521 522 ["slideWipe", 523 ["fromLeft", 524 "fromTop", 525 "fromRight", 526 "fromBottom", 527 "fromBottomRight", 528 "fromBottomLeft", 529 "fromTopRight", 530 "fromTopLeft"]], 531 532 ["fade", 533 ["crossfade", 534 "fadeToColor", 535 "fadeFromColor", 536 "fadeOverColor"]], 537 538 ["randomBarWipe", 539 ["vertical", 540 "horizontal"]], 541 542 ["checkerBoardWipe", 543 ["down", 544 "across"]], 545 546 ["dissolve", 547 ["default"]] 548]; 549 550 551############################################################################### 552# Print usage information. 553# 554sub usage () 555{ 556 print <<END_OF_USAGE; 557usage: $0 <option>* [<output-file-name>] 558 559output-file-name defaults to alltransitions.odp. 560 561options: -a Generate _all_ combinations of type, subtype, 562 direction, and mode 563 -h Print this usage information. 564 -f First transition to include, defaults to 0 565 -l Last transition to include 566END_OF_USAGE 567} 568 569############################################################################### 570# Process the command line. 571# 572sub process_command_line 573{ 574 foreach (@ARGV) 575 { 576 if (/^-h/) 577 { 578 usage; 579 exit 0; 580 } 581 } 582 583 $global_gen_all=0; 584 $global_output_name = "alltransitions.odp"; 585 586 my $j = 0; 587 for (my $i=0; $i<=$#ARGV; $i++) 588 { 589 if ($ARGV[$i] eq "-a") 590 { 591 $global_gen_all=1; 592 } 593 elsif ($ARGV[$i] eq "-f") 594 { 595 $FirstTransitionIndex = $ARGV[++$i]; 596 } 597 elsif ($ARGV[$i] eq "-l") 598 { 599 $LastTransitionIndex = $ARGV[++$i]; 600 } 601 elsif ($ARGV[$i] =~ /^-/) 602 { 603 print "Unknown option $ARGV[$i]\n"; 604 usage; 605 exit 1; 606 } 607 elsif ($#ARGV == $i ) 608 { 609 $global_output_name = $ARGV[$i]; 610 } 611 } 612 613 print "output to $global_output_name\n"; 614} 615 616 617############################################################################### 618# Main 619############################################################################### 620 621$ZipCmd = $ENV{LOG_FILE_ZIP_CMD}; 622$ZipFlags = $ENV{LOG_FILE_ZIP_FLAGS}; 623# Provide default values for the zip command and it's flags. 624if ( ! defined $ZipCmd) 625{ 626 $ZipCmd = "zip" unless defined $ZipCmd; 627 $ZipFlags = "-r -q" unless defined $ZipFlags; 628} 629 630process_command_line(); 631 632writeManifest(); 633 634$OUT = open_file( "content.xml" ); 635 636writeHeader(); 637 638$slideNum=1; 639foreach $transitionRef (@$transitionsRef) 640{ 641 $transitionType = @$transitionRef[0]; 642 643 foreach $subtype (@{$transitionRef->[1]}) 644 { 645 if( $global_gen_all != 0 ) 646 { 647 writeSlideStyles($slideNum++, 648 $transitionType, 649 $subtype, 650 0, 0); 651 writeSlideStyles($slideNum++, 652 $transitionType, 653 $subtype, 654 1, 0); 655 writeSlideStyles($slideNum++, 656 $transitionType, 657 $subtype, 658 0, 1); 659 writeSlideStyles($slideNum++, 660 $transitionType, 661 $subtype, 662 1, 1); 663 } 664 else 665 { 666 writeSlideStyles($slideNum++, 667 $transitionType, 668 $subtype, 669 0, 0); 670 } 671 } 672} 673 674writeIntermediate(); 675 676$slideNum=1; 677foreach $transitionRef (@$transitionsRef) 678{ 679 $transitionType = @$transitionRef[0]; 680 681 foreach $subtype (@{$transitionRef->[1]}) 682 { 683 if( $global_gen_all != 0 ) 684 { 685 writeSlide($slideNum++, 686 $transitionType, 687 $subtype, 688 0, 0); 689 writeSlide($slideNum++, 690 $transitionType, 691 $subtype, 692 1, 0); 693 writeSlide($slideNum++, 694 $transitionType, 695 $subtype, 696 0, 1); 697 writeSlide($slideNum++, 698 $transitionType, 699 $subtype, 700 1, 1); 701 } 702 else 703 { 704 writeSlide($slideNum++, 705 $transitionType, 706 $subtype, 707 0, 0); 708 } 709 } 710} 711 712writeFooter(); 713 714$OUT->close; 715 716zip_dirtree ($global_output_name); 717 718