Lines Matching refs:out

394             FileWriter out = new FileWriter(aFile);  in createWordPrintHelper()  local
397out.write( "eval 'exec perl -wS $0 ${1+\"$@\"}' … in createWordPrintHelper()
398out.write( " if 0; … in createWordPrintHelper()
399out.write( "use strict; … in createWordPrintHelper()
400out.write( "use Time::HiRes; … in createWordPrintHelper()
401out.write( "if ( $^O ne \"MSWin32\") … in createWordPrintHelper()
402out.write( "{ … in createWordPrintHelper()
403out.write( " print 'Windows only.\\n'; … in createWordPrintHelper()
404out.write( " print_usage(); … in createWordPrintHelper()
405out.write( " exit(1); … in createWordPrintHelper()
406out.write( "} … in createWordPrintHelper()
407out.write( " … in createWordPrintHelper()
408out.write( "use Win32::OLE; … in createWordPrintHelper()
409out.write( "use Win32::OLE::Const 'Microsoft Word'; … in createWordPrintHelper()
410out.write( " … in createWordPrintHelper()
411out.write( "# ------ usage ------ … in createWordPrintHelper()
412out.write( "sub print_usage() … in createWordPrintHelper()
413out.write( "{ … in createWordPrintHelper()
414out.write( " print STDERR \"Usage: word_print.pl <Word file> <name of printer> <output file> .… in createWordPrintHelper()
415out.write( " Please use the same string for the name of the printer as you can fi… in createWordPrintHelper()
416out.write( " under Start-Control Panel-Printer and Faxes \\n … in createWordPrintHelper()
417out.write( " The name could look like the the following line: \\n … in createWordPrintHelper()
418out.write( " Apple LaserWriter II NT v47.0 \\n … in createWordPrintHelper()
419out.write( " Sample command line: \\n … in createWordPrintHelper()
420out.write( " execl_print.pl c:\\book1.doc Apple LaserWriter II NT v47.0 c:\\outp… in createWordPrintHelper()
421out.write( "} … in createWordPrintHelper()
422out.write( " … in createWordPrintHelper()
423out.write( " … in createWordPrintHelper()
424out.write( "if ($#ARGV != 2) … in createWordPrintHelper()
425out.write( "{ … in createWordPrintHelper()
426out.write( " print 'Too less arguments.\\n'; … in createWordPrintHelper()
427out.write( " print_usage(); … in createWordPrintHelper()
428out.write( " exit(1); … in createWordPrintHelper()
429out.write( "} … in createWordPrintHelper()
430out.write( " … in createWordPrintHelper()
431 out.write( "my $startWordTime = Time::HiRes::time(); " + ls ); in createWordPrintHelper()
432out.write( "my $Word = Win32::OLE->new('Word.Application'); … in createWordPrintHelper()
433 out.write( "my $stopWordTime = Time::HiRes::time() - $startWordTime; " + ls ); in createWordPrintHelper()
434out.write( "# $Word->{'Visible'} = 1; # if you want to see what's going on … in createWordPrintHelper()
435 out.write( "# , ReadOnly => 1})" + ls ); in createWordPrintHelper()
436 out.write(ls); in createWordPrintHelper()
437 out.write( "my $startLoadWordTime = Time::HiRes::time(); " + ls ); in createWordPrintHelper()
438out.write( "$Word->Documents->Open({Filename => $ARGV[0]}) … in createWordPrintHelper()
439out.write( " || die('Unable to open document ', Win32::OLE->LastError()); … in createWordPrintHelper()
440 out.write( "my $stopLoadWordTime = Time::HiRes::time() - $startLoadWordTime; " + ls ); in createWordPrintHelper()
441 out.write(ls); in createWordPrintHelper()
442 out.write( "my $startPrintWordTime = Time::HiRes::time(); " + ls); in createWordPrintHelper()
443out.write( "my $oldActivePrinte = $Word->{ActivePrinter} ; … in createWordPrintHelper()
444out.write( "$Word->{ActivePrinter} = $ARGV[1]; … in createWordPrintHelper()
445out.write( "$Word->ActiveDocument->PrintOut({ … in createWordPrintHelper()
446out.write( " Background => 0, … in createWordPrintHelper()
447out.write( " Append => 0, … in createWordPrintHelper()
448out.write( " Range => wdPrintAllDocument, … in createWordPrintHelper()
449out.write( " Item => wdPrintDocumentContent, … in createWordPrintHelper()
450out.write( " Copies => 1, … in createWordPrintHelper()
451out.write( " PageType => wdPrintAllPages, … in createWordPrintHelper()
452out.write( " PrintToFile => 1, … in createWordPrintHelper()
453out.write( " OutputFileName => $ARGV[2] … in createWordPrintHelper()
454out.write( " }); … in createWordPrintHelper()
455out.write( "$Word->{ActivePrinter} = $oldActivePrinte; … in createWordPrintHelper()
456 out.write( "my $stopPrintWordTime = Time::HiRes::time() - $startPrintWordTime;" + ls); in createWordPrintHelper()
458out.write( "# ActiveDocument.Close(SaveChanges:=WdSaveOptions.wdDoNotSaveChanges)" + ls ); in createWordPrintHelper()
459 out.write( "my $sVersion = $Word->Application->Version();"+ls); in createWordPrintHelper()
460out.write( "$Word->ActiveDocument->Close({SaveChanges => 0}); … in createWordPrintHelper()
461out.write( "$Word->Quit(); … in createWordPrintHelper()
463 out.write( "local *FILE;" + ls); in createWordPrintHelper()
464 out.write( "if (open(FILE, \">$ENV{HOME}/msofficeloadtimes.txt\"))" + ls); in createWordPrintHelper()
465 out.write( "{" + ls); in createWordPrintHelper()
466 out.write( " print FILE \"name=$ARGV[0]\\n\";" + ls); in createWordPrintHelper()
467 out.write( " print FILE \"WordVersion=$sVersion\\n\";" + ls); in createWordPrintHelper()
468 out.write( " print FILE \"WordStartTime=$stopWordTime\\n\";" + ls); in createWordPrintHelper()
469 out.write( " print FILE \"WordLoadTime=$stopLoadWordTime\\n\";" + ls); in createWordPrintHelper()
470 out.write( " print FILE \"WordPrintTime=$stopPrintWordTime\\n\";" + ls); in createWordPrintHelper()
471 out.write( " close(FILE);" + ls); in createWordPrintHelper()
472 out.write( "}" + ls); in createWordPrintHelper()
473 out.close(); in createWordPrintHelper()
533 FileWriter out = new FileWriter(aFile); in createWordStoreHelper() local
535out.write( "eval 'exec perl -wS $0 ${1+\"$@\"}' … in createWordStoreHelper()
536out.write( " if 0; … in createWordStoreHelper()
537out.write( "use strict; … in createWordStoreHelper()
538out.write( " … in createWordStoreHelper()
539out.write( "if ( $^O ne \"MSWin32\") … in createWordStoreHelper()
540out.write( "{ … in createWordStoreHelper()
541out.write( " print 'Windows only.\\n'; … in createWordStoreHelper()
542out.write( " print_usage(); … in createWordStoreHelper()
543out.write( " exit(1); … in createWordStoreHelper()
544out.write( "} … in createWordStoreHelper()
545out.write( " … in createWordStoreHelper()
546out.write( "use Win32::OLE; … in createWordStoreHelper()
547out.write( "use Win32::OLE::Const 'Microsoft Word'; … in createWordStoreHelper()
548out.write( " … in createWordStoreHelper()
549out.write( "# ------ usage ------ … in createWordStoreHelper()
550out.write( "sub print_usage() … in createWordStoreHelper()
551out.write( "{ … in createWordStoreHelper()
552out.write( " print STDERR \"Usage: storeViaWord.pl <Word file> <output filer> <output file> \\… in createWordStoreHelper()
553out.write( "} … in createWordStoreHelper()
554out.write( " … in createWordStoreHelper()
555out.write( " … in createWordStoreHelper()
556out.write( "if ($#ARGV != 2) … in createWordStoreHelper()
557out.write( "{ … in createWordStoreHelper()
558out.write( " print 'Too less arguments.\\n'; … in createWordStoreHelper()
559out.write( " print_usage(); … in createWordStoreHelper()
560out.write( " exit(1); … in createWordStoreHelper()
561out.write( "} … in createWordStoreHelper()
562out.write( " … in createWordStoreHelper()
563out.write( " … in createWordStoreHelper()
564out.write( "my $Word = Win32::OLE->new('Word.Application'); … in createWordStoreHelper()
565out.write( "# $Word->{'Visible'} = 1; # if you want to see what's going on … in createWordStoreHelper()
566out.write( "my $Book = $Word->Documents->Open($ARGV[0]) … in createWordStoreHelper()
567out.write( " || die('Unable to open document ', Win32::OLE->LastError()); … in createWordStoreHelper()
568out.write( "# my $oldActivePrinte = $Word->{ActivePrinter} ; … in createWordStoreHelper()
569out.write( "# $Word->{ActivePrinter} = $ARGV[1]; … in createWordStoreHelper()
570out.write( "# $Word->ActiveDocument->PrintOut({ … in createWordStoreHelper()
571out.write( "# Background => 0, … in createWordStoreHelper()
572out.write( "# Append => 0, … in createWordStoreHelper()
573out.write( "# Range => wdPrintAllDocument, … in createWordStoreHelper()
574out.write( "# Item => wdPrintDocumentContent, … in createWordStoreHelper()
575out.write( "# Copies => 1, … in createWordStoreHelper()
576out.write( "# PageType => wdPrintAllPages, … in createWordStoreHelper()
577out.write( "# PrintToFile => 1, … in createWordStoreHelper()
578out.write( "# OutputFileName => $ARGV[2] … in createWordStoreHelper()
579out.write( "# }); … in createWordStoreHelper()
580out.write( "# $Word->{ActivePrinter} = $oldActivePrinte; … in createWordStoreHelper()
581out.write( "$Book->savaAs($ARGV[2], $ARGV[1]); … in createWordStoreHelper()
582out.write( "# ActiveDocument.Close(SaveChanges:=WdSaveOptions.wdDoNotSaveChanges)" + ls ); in createWordStoreHelper()
583out.write( "$Book->Close({SaveChanges => 0}); … in createWordStoreHelper()
584out.write( "$Word->Quit(); … in createWordStoreHelper()
585 out.close(); in createWordStoreHelper()
613 FileWriter out = new FileWriter(aFile); in createExcelPrintHelper() local
617 out.write("#BEGIN" + ls); in createExcelPrintHelper()
618 out.write("#{" + ls); in createExcelPrintHelper()
619 out.write("#" + ls); in createExcelPrintHelper()
620 out.write("# # insert HACK" + ls); in createExcelPrintHelper()
621 out.write("# unshift(@INC, '');" + ls); in createExcelPrintHelper()
622 out.write("#}" + ls); in createExcelPrintHelper()
623out.write( "use strict; … in createExcelPrintHelper()
624out.write( " … in createExcelPrintHelper()
625out.write( "if ( $^O ne \"MSWin32\") … in createExcelPrintHelper()
626out.write( "{ … in createExcelPrintHelper()
627out.write( " print \"Windows only.\\n\"; … in createExcelPrintHelper()
628out.write( " print_usage(); … in createExcelPrintHelper()
629out.write( " exit(1); … in createExcelPrintHelper()
630out.write( "} … in createExcelPrintHelper()
631out.write( " … in createExcelPrintHelper()
632out.write( " … in createExcelPrintHelper()
633out.write( "use Win32::OLE qw(in with); … in createExcelPrintHelper()
634out.write( "use Win32::OLE::Const 'Microsoft Excel'; … in createExcelPrintHelper()
635out.write( " … in createExcelPrintHelper()
636out.write( "# ------ usage ------ … in createExcelPrintHelper()
637out.write( "sub print_usage() … in createExcelPrintHelper()
638out.write( "{ … in createExcelPrintHelper()
639out.write( " print STDERR \"Usage: printViaExcel.pl <Excel file> <name of printer> <output fil… in createExcelPrintHelper()
640out.write( " Please use the same string for the name of the printer as you can fi… in createExcelPrintHelper()
641out.write( " under Start-Control Panel-Printer and Faxes \\n … in createExcelPrintHelper()
642out.write( " The name could look like the the following line: \\n … in createExcelPrintHelper()
643out.write( " Apple LaserWriter II NT v47.0 \\n … in createExcelPrintHelper()
644out.write( " Sample command line: \\n … in createExcelPrintHelper()
645out.write( " execl_print.pl c:\\book1.xls Apple LaserWriter II NT v47.0 c:\\outp… in createExcelPrintHelper()
646out.write( "} … in createExcelPrintHelper()
647out.write( " … in createExcelPrintHelper()
648out.write( " … in createExcelPrintHelper()
649out.write( " … in createExcelPrintHelper()
650out.write( "$Win32::OLE::Warn = 3; # die on errors... … in createExcelPrintHelper()
651out.write( " … in createExcelPrintHelper()
652out.write( " … in createExcelPrintHelper()
653out.write( "if ($#ARGV != 2) … in createExcelPrintHelper()
654out.write( "{ … in createExcelPrintHelper()
655out.write( " print STDERR \"Too less arguments.\\n\"; … in createExcelPrintHelper()
656out.write( " print STDERR \"ARGV[0] $ARGV[0]\\n\"; … in createExcelPrintHelper()
657out.write( " print STDERR \"ARGV[1] $ARGV[1]\\n\"; … in createExcelPrintHelper()
658out.write( " print STDERR \"ARGV[2] $ARGV[2]\\n\"; … in createExcelPrintHelper()
659out.write( " print_usage(); … in createExcelPrintHelper()
660out.write( " exit(1); … in createExcelPrintHelper()
661out.write( "} … in createExcelPrintHelper()
662out.write( " … in createExcelPrintHelper()
663out.write( "my $Excel = Win32::OLE->GetActiveObject('Excel.Application') … in createExcelPrintHelper()
664out.write( " || Win32::OLE->new('Excel.Application', 'Quit'); # get already active Excel … in createExcelPrintHelper()
665out.write( " # application or open new … in createExcelPrintHelper()
666out.write( " … in createExcelPrintHelper()
667out.write( " … in createExcelPrintHelper()
668out.write( " … in createExcelPrintHelper()
669out.write( "my $Book = $Excel->Workbooks->Open( $ARGV[0] ); … in createExcelPrintHelper()
670out.write( " $Book->PrintOut({Copies => 1, … in createExcelPrintHelper()
671out.write( " ActivePrinter => $ARGV[1], … in createExcelPrintHelper()
672out.write( " PrToFileName => $ARGV[2], … in createExcelPrintHelper()
673out.write( " Collate => 1 … in createExcelPrintHelper()
674out.write( " }); … in createExcelPrintHelper()
675 out.write( "# Close worksheets without store changes" + ls ); in createExcelPrintHelper()
676out.write( "# $Book->Close({SaveChanges => 0}); … in createExcelPrintHelper()
677 out.write( "my $sVersion = $Excel->Application->Version();"+ls); in createExcelPrintHelper()
678out.write( "$Excel->Quit(); … in createExcelPrintHelper()
679 out.write( "local *FILE;" + ls); in createExcelPrintHelper()
680 out.write( "if (open(FILE, \">$ENV{HOME}/msofficeloadtimes.txt\"))" + ls); in createExcelPrintHelper()
681 out.write( "{" + ls); in createExcelPrintHelper()
682 out.write( " print FILE \"name=$ARGV[0]\\n\";" + ls); in createExcelPrintHelper()
683 out.write( " print FILE \"ExcelVersion=$sVersion\\n\";" + ls); in createExcelPrintHelper()
687 out.write( " close(FILE);" + ls); in createExcelPrintHelper()
688 out.write( "}" + ls); in createExcelPrintHelper()
689 out.close(); in createExcelPrintHelper()
716 FileWriter out = new FileWriter(aFile); in createExcelStoreHelper() local
718out.write( "eval 'exec perl -wS $0 ${1+\"$@\"}' … in createExcelStoreHelper()
719out.write( " if 0; … in createExcelStoreHelper()
720out.write( "use strict; … in createExcelStoreHelper()
721out.write( "# This script is automatically created. … in createExcelStoreHelper()
722out.write( " … in createExcelStoreHelper()
723out.write( "use Win32::OLE qw(in with); … in createExcelStoreHelper()
724out.write( "use Win32::OLE::Const 'Microsoft Excel'; … in createExcelStoreHelper()
725out.write( " … in createExcelStoreHelper()
726out.write( "# ------ usage ------ … in createExcelStoreHelper()
727out.write( "sub print_usage() … in createExcelStoreHelper()
728out.write( "{ … in createExcelStoreHelper()
729out.write( " print STDERR \"Usage: savaViaExcel.pl <Excel file> <filefilter> <output file> .\\… in createExcelStoreHelper()
730out.write( " execl_print.pl c:\\book1.xls Apple LaserWriter II NT v47.0 c:\\outp… in createExcelStoreHelper()
731out.write( "} … in createExcelStoreHelper()
732out.write( " … in createExcelStoreHelper()
733out.write( " … in createExcelStoreHelper()
734out.write( " … in createExcelStoreHelper()
735out.write( "$Win32::OLE::Warn = 3; # die on errors... … in createExcelStoreHelper()
736out.write( " … in createExcelStoreHelper()
737out.write( " … in createExcelStoreHelper()
738out.write( "if ($#ARGV != 2) … in createExcelStoreHelper()
739out.write( "{ … in createExcelStoreHelper()
740out.write( " print \"Too less arguments.\\n\"; … in createExcelStoreHelper()
741out.write( " print_usage(); … in createExcelStoreHelper()
742out.write( " exit(1); … in createExcelStoreHelper()
743out.write( "} … in createExcelStoreHelper()
744out.write( " … in createExcelStoreHelper()
745out.write( "my $Excel = Win32::OLE->GetActiveObject('Excel.Application') … in createExcelStoreHelper()
746out.write( " || Win32::OLE->new('Excel.Application', 'Quit'); # get already active Excel … in createExcelStoreHelper()
747out.write( " # application or open new … in createExcelStoreHelper()
748out.write( "my $sFilterParameter = $ARGV[1]; … in createExcelStoreHelper()
749out.write( "my $sFilterName = xlHTML; … in createExcelStoreHelper()
750out.write( "if ($sFilterParameter eq 'xlXMLSpreadsheet') … in createExcelStoreHelper()
751out.write( "{ … in createExcelStoreHelper()
752out.write( " $sFilterName = xlXMLSpreadsheet; … in createExcelStoreHelper()
753out.write( "} … in createExcelStoreHelper()
754out.write( "elsif ($sFilterParameter eq 'xlHTML') … in createExcelStoreHelper()
755out.write( "{ … in createExcelStoreHelper()
756out.write( " $sFilterName = xlHTML; … in createExcelStoreHelper()
757out.write( "} … in createExcelStoreHelper()
758out.write( "else … in createExcelStoreHelper()
759out.write( "{ … in createExcelStoreHelper()
760out.write( " my $undefined; … in createExcelStoreHelper()
761out.write( " $sFilterName = $undefined; … in createExcelStoreHelper()
762out.write( "} … in createExcelStoreHelper()
763out.write( " … in createExcelStoreHelper()
764out.write( "my $Book = $Excel->Workbooks->Open( $ARGV[0] ); … in createExcelStoreHelper()
765out.write( "$Excel->{DisplayAlerts} = 0; … in createExcelStoreHelper()
766out.write( "$Book->saveAs($ARGV[2], … in createExcelStoreHelper()
767out.write( " $sFilterName, … in createExcelStoreHelper()
768out.write( " '', … in createExcelStoreHelper()
769out.write( " '', … in createExcelStoreHelper()
770out.write( " 0, … in createExcelStoreHelper()
771out.write( " 0, … in createExcelStoreHelper()
772out.write( " xlNoChange, … in createExcelStoreHelper()
773out.write( " xlLocalSessionChanges, … in createExcelStoreHelper()
774out.write( " 1); … in createExcelStoreHelper()
775 out.write( "# Close worksheets without store changes" + ls ); in createExcelStoreHelper()
776 out.write( "# $Book->Close({SaveChanges => 0}); " + ls ); in createExcelStoreHelper()
777out.write( "$Excel->Quit(); … in createExcelStoreHelper()
778 out.close(); in createExcelStoreHelper()
805 FileWriter out = new FileWriter(aFile); in createPowerPointPrintHelper() local
808out.write( "eval 'exec perl -wS $0 $1 $2 ' … in createPowerPointPrintHelper()
809out.write( " if 0; … in createPowerPointPrintHelper()
810out.write( "use strict; … in createPowerPointPrintHelper()
811out.write( " … in createPowerPointPrintHelper()
812out.write( "if ( $^O ne \"MSWin32\") … in createPowerPointPrintHelper()
813out.write( "{ … in createPowerPointPrintHelper()
814out.write( " print \"Windows only.\\n\"; … in createPowerPointPrintHelper()
815out.write( " print_usage(); … in createPowerPointPrintHelper()
816out.write( " exit(1); … in createPowerPointPrintHelper()
817out.write( "} … in createPowerPointPrintHelper()
818out.write( " … in createPowerPointPrintHelper()
819out.write( " … in createPowerPointPrintHelper()
820out.write( "use Win32::OLE qw(in with); … in createPowerPointPrintHelper()
821out.write( "use Win32::OLE::Const 'Microsoft PowerPoint'; … in createPowerPointPrintHelper()
822out.write( " … in createPowerPointPrintHelper()
823out.write( "# ------ usage ------ … in createPowerPointPrintHelper()
824out.write( "sub print_usage() … in createPowerPointPrintHelper()
825out.write( "{ … in createPowerPointPrintHelper()
826out.write( " print STDERR \"Usage: powerpoint_print.pl <PowerPoint file> <name of printer> <ou… in createPowerPointPrintHelper()
827out.write( " Please use the same string for the name of the printer as you can fi… in createPowerPointPrintHelper()
828out.write( " under Start-Control Panel-Printer and Faxes \\n … in createPowerPointPrintHelper()
829out.write( " The name could look like the the following line: \\n … in createPowerPointPrintHelper()
830out.write( " Apple LaserWriter II NT v47.0 \\n … in createPowerPointPrintHelper()
831out.write( " Sample command line: \\n … in createPowerPointPrintHelper()
832out.write( " powerpoint_print.pl c:\\book.ppt Apple LaserWriter II NT v47.0 c:\\… in createPowerPointPrintHelper()
833out.write( "} … in createPowerPointPrintHelper()
834out.write( " … in createPowerPointPrintHelper()
835out.write( " … in createPowerPointPrintHelper()
836out.write( " … in createPowerPointPrintHelper()
837out.write( "$Win32::OLE::Warn = 3; # die on errors... … in createPowerPointPrintHelper()
838out.write( " … in createPowerPointPrintHelper()
839out.write( " … in createPowerPointPrintHelper()
840out.write( "if ($#ARGV < 2) … in createPowerPointPrintHelper()
841out.write( "{ … in createPowerPointPrintHelper()
842out.write( " print \"Too less arguments.\\n\"; … in createPowerPointPrintHelper()
843out.write( " print_usage(); … in createPowerPointPrintHelper()
844out.write( " exit(1); … in createPowerPointPrintHelper()
845out.write( "} … in createPowerPointPrintHelper()
846out.write( " … in createPowerPointPrintHelper()
847out.write( "my $PowerPoint = Win32::OLE->GetActiveObject('PowerPoint.Application') … in createPowerPointPrintHelper()
848out.write( " || Win32::OLE->new('PowerPoint.Application', 'Quit'); # get already active Excel … in createPowerPointPrintHelper()
849out.write( " # application or open new … in createPowerPointPrintHelper()
850out.write( " … in createPowerPointPrintHelper()
851out.write( " … in createPowerPointPrintHelper()
852out.write( " … in createPowerPointPrintHelper()
853out.write( " $PowerPoint->{'Visible'} = 1; … in createPowerPointPrintHelper()
854out.write( " my $Presentation = $PowerPoint->Presentations->Add; … in createPowerPointPrintHelper()
855out.write( " my $Presentation = $PowerPoint->Presentations->Open( $ARGV[0] ); … in createPowerPointPrintHelper()
856out.write( "# we can't change active printer in powerpoint … in createPowerPointPrintHelper()
857 out.write( "# $Presentation->PrintOptions->{ActivePrinter} = $ARGV[1]; " + ls ); in createPowerPointPrintHelper()
858out.write( " print \"Active printer is: \" . $Presentation->PrintOptions->{ActivePrinter} . \"\\… in createPowerPointPrintHelper()
859out.write( " $Presentation->PrintOptions->{PrintInBackground} = 0; … in createPowerPointPrintHelper()
860out.write( " # PrintColorType = 1 means print in color and PrintColorType = 2 means print in gra… in createPowerPointPrintHelper()
861out.write( " $Presentation->PrintOptions->{PrintColorType} = 1; … in createPowerPointPrintHelper()
862out.write( " … in createPowerPointPrintHelper()
863out.write( " $Presentation->PrintOut({PrintToFile => $ARGV[2]}); … in createPowerPointPrintHelper()
864out.write( " sleep 5; … in createPowerPointPrintHelper()
865out.write( " print \"Presentation has been printed\\n\"; … in createPowerPointPrintHelper()
866 out.write( "my $sVersion = $Presentation->Application->Version();"+ls); in createPowerPointPrintHelper()
867 out.write( " $PowerPoint->Quit(); " + ls ); in createPowerPointPrintHelper()
869 out.write( "local *FILE;" + ls); in createPowerPointPrintHelper()
870 out.write( "if (open(FILE, \">$ENV{HOME}/msofficeloadtimes.txt\"))" + ls); in createPowerPointPrintHelper()
871 out.write( "{" + ls); in createPowerPointPrintHelper()
872 out.write( " print FILE \"name=$ARGV[0]\\n\";" + ls); in createPowerPointPrintHelper()
873 out.write( " print FILE \"PowerPointVersion=$sVersion\\n\";" + ls); in createPowerPointPrintHelper()
877 out.write( " close(FILE);" + ls); in createPowerPointPrintHelper()
878 out.write( "}" + ls); in createPowerPointPrintHelper()
879 out.close(); in createPowerPointPrintHelper()
936 System.out.println("couldn't open file " + _sFilename); in getOfficeType()
937 System.out.println("Message: " + fne.getMessage()); in getOfficeType()
941 System.out.println("Exception while reading file " + _sFilename); in getOfficeType()
942 System.out.println("Message: " + ie.getMessage()); in getOfficeType()
950 System.out.println("Couldn't close file " + _sFilename); in getOfficeType()
951 System.out.println("Message: " + ie.getMessage()); in getOfficeType()