| blob | 978172e747c56e4df2cf5f8f6c42119bf611fde3 |
1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '*
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: g_export_html.inc,v $
10 '*
11 '* $Revision: 1.2 $
12 '*
13 '* last change: $Author: rt $ $Date: 2008-08-28 11:42:05 $
14 '*
15 '* This file is part of OpenOffice.org.
16 '*
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
20 '*
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
26 '*
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
31 '*
32 '/************************************************************************
33 '*
34 '* Owner : wolfram.garten@sun.com
35 '*
36 '* short description :
37 '*
38 '*********************************************************************
39 ' #1 tHtmlExport
40 ' #1 tHtmlExport_Webcast
41 '\********************************************************************
43 testcase tHtmlExport
45 Dim Autor1 as string
46 Dim Adresse1 as string
47 Dim Liste(50) as string
48 dim i as integer
49 dim x as integer
50 dim sTemp as string
51 dim sFile as string
53 printlog "open 'tools->options' and set first/last name and email adress on the page 'StarOffice->UserData' "
54 ToolsOptions
55 hToolsOptions ("STAROFFICE","USERDATA")
56 VorName.SetText "Garfield"
57 ZuName.SetText "Peanuts"
58 EMail.SetText "recumbent@sun.com"
59 Kontext "ExtrasOptionenDlg"
60 ExtrasOptionenDlg.OK
62 printlog "create directory if not exists and delete the content, if exists user\\work\\html\\ "
63 app.mkDir ((ConvertPath (gOfficePath + "user\work\html\"))
64 Liste(0) = 0
65 GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
66 if (KillFileList (Liste()) <> TRUE) then
67 for i = 1 to ListCount (Liste())
68 Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
69 next i
70 endif
72 printlog "open application "
73 Call hNewDocument
74 WaitSlot (3000)
75 '------------------ simple document --------------------
76 printlog "create a rectrangle "
77 hTextrahmenErstellen ("This is a test text",10,10,40,20)
78 WaitSlot (2000)
79 printlog "create another rectrangle "
80 hRechteckErstellen (50,50,70,70)
81 WaitSlot (3000)
82 '####################################
83 Printlog "test if no file is created, if dialog is canceld"
84 printlog "call 'File->Export'"
85 FileExport
86 Kontext "ExportierenDlg"
87 WaitSlot (1000)
88 gHTMLFilter = Dateityp.GetItemText(1)
89 Dateityp.Select(gHTMLFilter)
90 printlog "set Filename to 'user\\work\\html\\expo0.html' "
91 sFile = ConvertPath (gOfficePath + "user\work\html\expo0")
92 Dateiname.SetText sFile
93 WaitSlot (2000)
94 printlog "click button 'Save' "
95 Speichern.Click
96 WaitSlot (3000)
97 Kontext "Active"
98 if Active.Exists Then Active.Yes
99 '---------------------------------------------------------
100 printlog "now we are on the dialog -1- 'Assign design' "
101 Kontext "HTMLExport1"
102 printlog "click button 'Cancel' "
103 HTMLExport1.Cancel
104 WaitSlot (5000)
105 Liste(0) = 0
106 GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
107 WaitSlot (1000)
108 Printlog "used file name: " + sFile
109 if (ListCount (Liste()) > 0) then
110 warnlog "dialog for export was canceled, but file was created :-("
111 for i = 1 to ListCount (Liste())
112 Warnlog "File created: " + i + ": '" + Liste(i) + "'"
113 next i
114 KillFileList (Liste())
115 end if
116 '####################################
117 Printlog "'test if files are created"
118 printlog "call 'File->Export'"
119 FileExport
120 Kontext "ExportierenDlg"
121 WaitSlot (1000)
122 try
123 printlog "select Filetype 'HTML...' aka 'WebPage' "
124 Dateityp.Select gHTMLFilter
125 catch
126 errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
127 Dateityp.Select 1
128 printlog "Selects the first entry - which should be html "
129 endcatch
130 WaitSlot (1000)
131 printlog "set Filename to 'user\\work\\html\\expo.html' "
132 sFile = ConvertPath (gOfficePath + "user\work\html\expo.html")
133 Dateiname.SetText sFile
134 WaitSlot (2000)
135 printlog "click button 'Save' "
136 Speichern.Click
137 WaitSlot (3000)
138 Kontext "Active"
139 if Active.Exists Then Active.Yes
140 '---------------------------------------------------------
141 Printlog "now we are on the dialog -1- 'Assign design' "
142 Kontext "HTMLExport1"
143 printlog "'New design' should be checked "
144 if (NeuesDesign.IsEnabled <> TRUE) then
145 warnlog "NewDesign is not enabled by default :-("
146 endif
147 printlog "click button 'Next >>' "
148 Weiter.Click
149 WaitSlot (1000)
150 Printlog "now we are on the dialog -2- 'Publication Type & Options' "
151 Kontext "HTMLExport2"
152 printlog "checkbox 'Standard HTML Format' is checked by default "
153 if (Standard.IsChecked <> TRUE) then
154 warnlog "Standard is not enabled by default :-("
155 Standard.Check
156 end if
157 printlog "checkbox 'Title Page' is checked by default "
158 if Not TitelseiteErzeugen.IsChecked Then
159 TitelSeiteErzeugen.Check
160 Warnlog "- 'create Titlepage' should be checked as default :-("
161 end if
162 if (gApplication = "IMPRESS") then
163 printlog "if application is impress: the checkbox 'Show notes' is enabled by default"
164 If (Notizenanzeigen.IsChecked <> TRUE) Then
165 warnlog "- 'Show notes' checked as default :-("
166 Notizenanzeigen.Check
167 end if
168 end if
169 printlog "click button 'Next >>' "
170 Weiter.Click
171 Printlog "now we are on the dialog -3- 'png/gif/jpeg & resolution & sound' "
172 Kontext "HTMLExport3"
173 printlog "checkbox 'PNG' is checked by default "
174 if (PNG.isChecked <> TRUE) then
175 warnlog "Save Graphic as 'PNG' is not checked as default :-("
176 PNG.Check
177 end if
178 printlog "Listbox compression '75%' is selected by default "
179 if (Kompressionswert.GetSelText <> "75%") then
180 warnlog "'Compression' should be '75%', but is: '" + Kompressionswert.GetSelText + "'"
181 Kompressionswert.Select "75%"
182 end if
183 printlog "checkbox 'low monitor resolution' is checked by default "
184 if (NiedrigeAufloesung.IsChecked <> TRUE)Then
185 warnlog "Monitor resolution 'low' is not selected as default :-("
186 NiedrigeAufloesung.Check
187 end if
188 printlog "checkbox 'export sounds' is checked by default "
189 if (KlaengeExportieren.IsChecked <> true) then
190 warnlog "'Export Sounds' is not checked as default :-("
191 KlaengeExportieren.Check
192 end if
193 printlog "click button 'Next >>' "
194 Weiter.Click
195 WaitSlot (1000)
196 Printlog "now we are on the dialog -4- 'Information for the title page' "
197 Kontext "HTMLExport4"
198 printlog "the names you entered in the options have to appeare here! "
199 sTemp = Autor.GetText
200 Autor1=Autor.GetText
201 if (sTemp <> "Garfield Peanuts") then
202 warnlog "Value for 'Author' is other than expected, should 'Garfield Peanuts', is: '"+sTemp+"'"
203 end if
204 sTemp = EMail.GetText
205 Adresse1=EMail.GetText
206 if (sTemp <> "recumbent@sun.com") then
207 warnlog "Value for 'Email' is other than expected, should be 'recumbent@sun.com', is: '"+sTemp+"'"
208 end if
209 printlog "set text in field 'your homepage' "
210 Homepage.SetText "mahler"
211 AdditionalInformation.SetText "QualityApprooved"
212 printlog "click button 'Next >>' "
213 Weiter.Click
214 WaitSlot (2000)
215 Printlog "now we are on the dialog -5- 'select button style' "
216 Kontext "HTMLExport5"
217 WaitSlot (5000)
218 printlog "checkbox 'Text only' should be checked by default "
219 if (NurText.ischecked <> TRUE) then
220 warnlog "'Text only' is not checked by default :-("
221 NurText.check
222 end if
223 printlog "click button 'Next >>' "
224 Weiter.Click
225 WaitSlot (1000)
226 printlog "now we are on the dialog -6- 'select color scheme' "
227 Kontext "HTMLExport6"
228 WaitSlot (2000)
229 ' maybe check if colour dialog comes up ?! TBO
230 'Text
231 'Hyperlink
232 'AktiverLink
233 'GesichteterLink
234 'Hintergrund
235 printlog "'Apply color schemes from document' should be checked per default :-) "
236 if (FarbenAusDok.IsChecked <> TRUE) Then
237 warnlog "'Apply color schemes from document' should be checked per default :-("
238 FarbenAusDok.Check
239 end if
240 WaitSlot (2000)
241 printlog "click button 'Create' "
242 HTMLExport6.OK
243 WaitSlot (5000)
244 Printlog "now we are on the dialog -7- 'Name HTML Design' "
245 Kontext "HTMLDesign"
246 WaitSlot (1000)
247 Designname.SetText "Lem's Standard"
248 HTMLDesign.OK
249 WaitSlot (3000)
250 Kontext "active"
251 if active.exists (5) then
252 printlog " the name for this design already exists : '" + active.GetText+ "'"
253 active.yes
254 end if
255 printlog "check number and names of created files "
256 Printlog "used file name: '" + sFile + "'"
257 Liste(0) = 0
258 GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
259 WaitSlot (1000)
260 x = ListCount(Liste())
261 if gApplication = "DRAW" then
262 if (x <> "3") then
263 Warnlog "- Number of files is not correct, it should be:3 but it is: '" + x + "' - Draw"
264 for i=1 to x
265 printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
266 next
267 end if
268 else
269 if (x <> "4") then
270 Warnlog "- Number of files is not correct, it should be:4 but it is: '" + x + "' - Impress"
271 for i=1 to x
272 printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
273 next
274 end if
275 end if
276 printlog "check if fileextension is common - .htm or .html for all files the same "
277 Liste(0) = 0
278 GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.htm" , Liste() )
279 WaitSlot (1000)
280 x = ListCount(Liste())
281 Liste(0) = 0
282 GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.html" , Liste() )
283 WaitSlot (1000)
284 i = ListCount(Liste())
285 if ((x > 0) AND (i > 0)) Then
286 Warnlog " fileextension is different between HTML-files :-( (htm/html)"
287 Warnlog " htm : " + x
288 Warnlog " html: " + i
289 end if
290 '--------------------------------------------------------
291 Printlog "check if design is created in dialog"
292 WaitSlot (3000)
293 printlog "File->Export "
294 FileExport
295 Kontext "ExportierenDlg"
296 printlog "Set Filename to user\\work\\html\\expo.html "
297 Dateiname.SetText sFile
298 try
299 printlog "select Filetype 'HTML...' aka 'WebPage' "
300 Dateityp.Select gHTMLFilter
301 catch
302 errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
303 endcatch
304 WaitSlot (1000)
305 printlog "click button 'save' "
306 Speichern.Click
307 WaitSlot (1000)
308 Kontext "Active"
309 ' active about overwriting existing file
310 if Active.Exists Then Active.Yes
311 '---------------------------------------------------------
312 WaitSlot (1000)
313 Kontext "HTMLExport1"
314 WaitSlot (1000)
315 try
316 printlog "now 'existing design' is checkable -> check it "
317 ExistierendesDesign.Check
318 WaitSlot (3000)
319 printlog "there has to be 1 design in the list, select and delete it "
320 x = Designliste.GetItemCount
321 if (x <> 1) then
322 warnlog "there is an unexpected count on designs in the list, expected 1, but there are : '" + x + "'"
323 end if
324 Designliste.Select 1
325 sTemp = Designliste.GetSelText
326 if sTemp = "Lem's Standard" Then
327 Printlog "- Created design exists in list and will be deleted now"
328 WaitSlot (1000)
329 DesignLoeschen.Click
330 WaitSlot (2000)
331 else
332 Warnlog "- Created design does not appear in the list it is: '"+sTemp+"'"
333 end if
334 catch
335 Warnlog "- List could not be accessed"
336 endcatch
337 WaitSlot (5000)
338 HTMLExport1.OK
339 kontext "Active"
340 if Active.Exists then
341 Active.Yes
342 end if
343 Call hCloseDocument
344 Printlog "used file name: '" + sFile + "'"
345 ' TBOTODO CHECK files contenet !
347 endcase 'tHtmlExport
349 '---------------------------------------------------------
351 testcase tHtmlExport_Webcast
353 Dim iWaitIndex as integer
354 Dim i as integer
355 Dim a as integer
356 Dim x as integer
357 dim Liste ( 200 ) as String
358 dim sFile as string
360 printlog "create directories if not exists and delete the content, if exists user\\work\\html\\[asp|perl]\\ "
361 app.mkDir (ConvertPath (gOfficePath + "user\work\html\asp\"))
362 app.mkDir (ConvertPath (gOfficePath + "user\work\html\perl\"))
363 Liste(0) = 0
364 GetFileList ((ConvertPath (gOfficePath + "user\work\html\asp\")), "*.*" , Liste() )
365 WaitSlot (1000)
366 if (KillFileList (Liste()) <> TRUE) then
367 for i = 1 to ListCount (Liste())
368 Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
369 next i
370 end if
371 Liste(0) = 0
372 GetFileList ((ConvertPath (gOfficePath + "user\work\html\perl\")), "*.*" , Liste() )
373 WaitSlot (1000)
374 if (KillFileList (Liste()) <> TRUE) then
375 for i = 1 to ListCount (Liste())
376 Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
377 next i
378 end if
380 printlog "File->Autopillot->Presentation... " '---------
381 FileAutopilotPresentation
382 Kontext "Active"
383 if Active.Exists(1) then
384 WarnlogActive.GetText
385 try
386 Active.OK
387 catch
388 Active.No
389 endcatch
390 goto endsub
391 end if
392 printlog "Page 1 of autopilot"
393 Kontext "AutopilotPraesentation1"
394 printlog "uncheck 'preview' "
395 Preview.Uncheck
396 printlog "click on button 'create' "
397 AutopilotPraesentation1.OK
398 WaitSlot (3000)
399 '************************************ Page 1
400 Printlog "create a presentation and save it for further references"
401 printlog "start creating the presentation now "'------------------------------
402 Printlog "- Create presentation"
403 printlog "select 'click to add title' with [TAB] and press [F2] to edit the placeholder title "
404 hTypeKeys "<TAB><F2>"
405 WaitSlot (2000)
406 Select Case Ucase(gApplication)
407 case "DRAW" : hMouseClick DocumentDraw,50,50
408 case "IMPRESS" : hMouseClick DocumentImpress,50,50
409 end select
410 WaitSlot (3000)
411 printlog "Type 'This is a test text', select it. "
412 hTextrahmenErstellen ("This is a test text",10,10,40,20)
413 EditSelectAll
415 Kontext "TextObjectbar"
417 if TextObjectbar.Exists <> TRUE then
418 ViewToolbarsTextFormatting
419 end if
420 WaitSlot (3000)
421 Kontext "TextObjectbar"
422 printlog "click 'bold text' in object toolbar "
423 Fett.Click
424 WaitSlot (2000)
425 printlog "press [esacpe][tab] to get out of edit mode and select the next placeholder "
426 hTypeKeys "<escape><TAB>"
427 WaitSlot (1000)
428 printlog "SlideShow->Effects "
429 SlideShowCustomAnimation
430 WaitSlot (1000)
431 Kontext "Tasks"
432 WaitSlot (1000)
433 EffectAdd.Click
434 printlog "Dialog 'Custom Animation' comes up "
435 kontext
436 printlog "Switch to TabPage: Entrance "
437 active.setPage(TabEntrance)
438 Kontext "TabEntrance"
439 if TabEntrance.Exists (5) then
440 WaitSlot (1000)
441 printlog "select effect 'ABC v' :-) "
442 Effects.Select(5)
443 printlog "select speed 'slow' -> first item in list "
444 Speed.Select 1
445 try
446 TabEntrance.Ok
447 catch
448 errorlog "SlideShowEffects wasnt closed as it should have been"
449 endcatch
450 if TabEntrance.Exists then
451 TabEntrance.Close
452 warnlog "TabEntrance.Ok didn't seem to close the dialog."
453 else
454 printlog "TabEntrance was closed as it should"
455 end if
456 kontext "Tasks"
457 end if
458 WaitSlot (3000)
459 printlog "activate grafik insert dialog by typing [return] "
461 InsertGraphicsFromFile
462 Kontext "GrafikEinfuegenDlg"
463 if GrafikEinfuegenDlg.Exists <> TRUE then
464 WaitSlot (1000)
465 end if
466 printlog "insert grafik: global\\input\\graf_inp\\borabora.jpg "
467 Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
468 WaitSlot (3000)
469 Oeffnen.Click
470 WaitSlot (2000)
471 printlog "select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder "
472 hTypeKeys "<TAB><F2>"
473 printlog "insert text and select the words by typing [strg a] "
474 hTypeKeys "Mecury<RETURN>Venus<RETURN>Earth<RETURN>Mars<RETURN>Jupiter<RETURN>Saturn<RETURN>Uranus<RETURN>Neptune<RETURN>Pluto"
475 EditSelectAll
476 WaitSlot (1000)
477 printlog "format->character "
478 FormatCharacter
479 WaitSlot (2000)
480 Kontext
481 Active.SetPage TabFont
482 Kontext "TabFont"
483 printlog "set font size to '18' on tabpage 'font' "
484 try
485 SizeWest.SetText "18"
486 catch
487 Size.SetText "18"
488 endcatch
489 printlog "click button OK "
490 TabFont.OK
491 WaitSlot (1000)
492 printlog "click 'bold text' in object toolbar "
493 Kontext "TextObjectbar"
494 try
495 usebindings
496 Fett.Click 'culprint
497 catch
498 warnlog "Objectbar 'Text' not available :-( / didn't change automatical!"
499 hTypeKeys "<escape><escape><escape><tab><tab><TAB>"
500 WaitSlot (1000)
501 hTypeKeys "<F2>"
502 hTypeKeys "<HOME>"
503 hTypeKeys "<SHIFT><END>"
504 Kontext "TextObjectbar"
505 try
506 usebindings
507 Fett.Click 'culprint
508 catch
509 warnlog "darn again TBO"
510 endcatch
511 endcatch
512 WaitSlot (2000)
513 printlog "SlideShow-> CustomAnimation "
514 SlideShowCustomAnimation
515 WaitSlot (1000)
516 Kontext "Tasks"
517 WaitSlot (1000)
518 EffectChange.Click
519 kontext
520 printlog "Switch to TabPage: Entrance "
521 active.setPage(TabEntrance)
522 kontext "TabEntrance"
523 Effects.TypeKeys "<DOWN>",8
524 Speed.Select 2
525 try
526 TabEntrance.Ok
527 catch
528 warnlog "select another effect, assign is not possible"
529 endcatch
530 '******************************** Page 2 Merkur
531 printlog "create a 2nd slide with: insert->slide "
532 InsertSlide
533 WaitSlot (2000)
534 hTypekeys "<Pagedown>"
535 WaitSlot (2000)
536 printlog "select 'click to add title' with [TAB] and press [F2] to edit the placeholder title "
537 hTypeKeys "<TAB><F2>"
538 WaitSlot (2000)
539 printlog "Type 'MERKUR', select it via Edit-Select All"
540 hTextrahmenErstellen ("MERKUR",10,10,60,30)
541 EditSelectAll
542 WaitSlot (2000)
543 printlog "click 'bold text' in object toolbar "
544 Kontext "TextObjectbar"
545 Fett.Click
546 WaitSlot (1000)
547 printlog "press [esacpe][tab][return] to get out of edit mode and select the next placeholder and activate grafik insert dialog "
548 ' hTypeKeys "<escape><tab><return>"
549 hTypeKeys "<escape><tab>"
550 InsertGraphicsFromFile
551 WaitSlot (4000)
552 printlog "insert grafik: global\\input\\graf_inp\\borabora.jpg "
553 Kontext "GrafikEinfuegenDlg"
554 Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
555 WaitSlot (3000)
556 Oeffnen.Click
557 WaitSlot (2000)
558 printlog "select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder "
559 hTypeKeys "<TAB><F2>"
560 printlog "insert text and select the words by typing [strg a] "
561 WaitSlot (1000)
562 hTypeKeys "Reciprocal Mass *5972000<SHIFT RETURN>Mass (Erde=1) 0,0558<SHIFT RETURN>Mass in kg 3,30310<SHIFT RETURN>"
563 hTypeKeys "Equator-radius (km) 2440<SHIFT RETURN>Equator-radius (Erde=1)0,382<SHIFT RETURN>Middle density (kg/m^3) 5400<SHIFT RETURN>"
564 hTypeKeys "Gravity acceleration at the equator (m/s^2) 3,78<SHIFT RETURN>Flightvelocity at the equator (km/s) 4,3<SHIFT RETURN>Sidereal rotationtime 58,65 Tage<SHIFT RETURN>"
565 hTypeKeys "Bias of the equatorplane against the orbitplane 0><SHIFT RETURN>Time of circulation 88 days<SHIFT RETURN>Distance to the sun Sun (km) 58Mio.<SHIFT RETURN>Temperatur at the day 350C<SHIFT RETURN>"
566 hTypeKeys "Temperatur at night -170C<SHIFT RETURN>Diameter (km) 4800"
567 EditSelectAll
568 WaitSlot (1000)
569 printlog "format->character "
570 FormatCharacter
571 WaitSlot (2000)
572 Kontext
573 Active.SetPage TabFont
574 Kontext "TabFont"
575 printlog "set font size to '18' on tabpage 'font' "
576 try
577 SizeWest.SetText "16"
578 catch
579 Size.SetText "16"
580 endcatch
581 printlog "click button OK "
582 TabFont.OK
583 WaitSlot (2000)
584 printlog "click 'bold text' in object toolbar "
585 Kontext "TextObjectbar"
586 try
587 Fett.Click 'culprint
588 catch
589 warnlog "Objectbar 'Text' not available :-( / didn't change automatical!"
590 hTypeKeys "<escape><escape><escape><tab><tab><TAB>"
591 WaitSlot (1000)
592 hTypeKeys "<F2>"
593 hTypeKeys "<HOME>"
594 hTypeKeys "<SHIFT><END>"
595 Kontext "TextObjectbar"
596 try
597 Fett.Click 'culprint
598 catch
599 warnlog "darn again TBO"
600 endcatch
601 endcatch
602 WaitSlot (2000)
603 printlog "save file with impress filter : user\\work\\webcast.odp "
604 sFile = ConvertPath (gOfficePath + "user\work\webcast")
605 if (Dir (sFile + ".odp") <> "") then app.kill (sFile + ".odp")
606 WaitSlot (2000)
607 hFileSaveAsWithFilterKill ((sFile + ".odp") , "impress8" )
608 Printlog "saved presentation: " + sFile + ".odp"
609 '------------------------- Exportieren als ASP Web-Cast
610 Printlog "'export as webcast ASP"
611 printlog "File->SaveAs "
612 FileExport
613 WaitSlot (2000)
614 Kontext "ExportierenDlg"
615 try
616 printlog "select Filetype 'HTML...' aka 'WebPage' "
617 gHTMLFilter = Dateityp.GetItemText(1)
618 Dateityp.Select(gHTMLFilter)
619 catch
620 errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
621 Dateityp.Select 1
622 printlog "Selects the first entry - which should be html "
623 endcatch
624 printlog "Set Filename to user\\work\\webcst_asp.html "
625 sFile = ConvertPath (gOfficePath + "user\work\html\asp\webcast.html")
626 Dateiname.SetText sFile
627 printlog "click button 'save' "
628 Speichern.Click
629 WaitSlot (5000)
630 Kontext "Active"' ????????? TBO
631 if Active.Exists (5) Then Active.Yes
632 WaitSlot (3000)
633 printlog "now we are on the dialog -1- 'Assign design' "
634 Kontext "HTMLExport1"
635 WaitSlot (2000)
636 printlog "click button 'Next >>' "
637 Weiter.Click
638 WaitSlot (2000)
639 printlog "now we are on the dialog -2- 'Publication Type & Options' "
640 Kontext "HTMLExport2"
641 WaitSlot (2000)
642 Printlog "check 'WebCast'"
643 WebCast.Check
644 WaitSlot (2000)
645 Printlog "check 'Active Server Pages (ASP)'"
646 ASP.Check
647 printlog "click button 'Next >>' "
648 Weiter.Click
649 printlog "now we are on the dialog -3- 'gif/jpeg & resolution & sound' "
650 Kontext "HTMLExport3"
651 WaitSlot (2000)
652 printlog "check Save graphics as 'GIF' "
653 Gif.Check
654 printlog "check 'Medium (monitor) Resolution' "
655 MittlereAufloesung.Check
656 WaitSlot (1000)
657 printlog "click button 'Create' "
658 HTMLExport3.OK
659 WaitSlot (2000)
660 printlog "now we are on the dialog -7- 'Name HTML Design' "
661 Kontext "HTMLDesign"
662 printlog "click button 'Do Not Save' "
663 if HTMLDesign.Exists Then HTMLDesign.Cancel
664 iWaitIndex = 0
665 do while HTMLDesign.Exists AND iWaitIndex < 30
666 WaitSlot (1000)
667 iWaitIndex = iWaitIndex + 1
668 loop
669 Printlog "- Check number of safed files"
670 Printlog "file saved: '" + sFile + "'"
671 Liste(0) = 0
672 GetFileList ((ConvertPath (gOfficePath + "user\work\html\asp\")), "*.*" , Liste() )
673 WaitSlot (1000)
674 x = ListCount(Liste())
675 if (x <> "11") Then
676 Warnlog "- Number of files is not correct, it should be:11 but it is: '" + x + "'"
677 for i=1 to x
678 printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
679 next
680 end if
681 '------------------------- Exportieren als ASP Web-Cast
682 Printlog "export as webcast PERL"
683 Kontext "DocumentImpress"
684 WaitSlot (2000)
685 printlog "File->export "
686 FileExport
687 WaitSlot (2000)
688 Kontext "ExportierenDlg"
689 printlog "select Filetype 'HTML...' aka 'WebPage' "
690 try
691 Dateityp.Select gHTMLFilter
692 catch
693 errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
694 Dateityp.Select 1 ' selects the first one just in case anything else is selected.
695 printlog "Selected " + Dateityp.GetSelText + " manually."
696 endcatch
697 WaitSlot (1000)
698 printlog "Set Filename to user\\work\\wbcst_p.html "
699 sFile = ConvertPath (gOfficePath + "user\work\html\perl\webcast")
700 Dateiname.SetText sFile
701 printlog "click button 'save' "
702 Speichern.Click
703 WaitSlot (2000)
704 Kontext "Active"
705 printlog "click button 'save' "
706 if Active.Exists Then Active.Yes
707 WaitSlot (2000)
708 printlog "now we are on the dialog -1- 'Assign design' "
709 Kontext "HTMLExport1"
710 WaitSlot (2000)
711 printlog "click button 'Next >>' "
712 Weiter.Click
713 WaitSlot (2000)
714 printlog "now we are on the dialog -2- 'Publication Type & Options' "
715 Kontext "HTMLExport2"
716 WaitSlot (2000)
717 Printlog "check 'WebCast'"
718 WebCast.Check
719 WaitSlot (2000)
720 Printlog "check 'Perl'"
721 PERL.Check
722 WaitSlot (1000)
723 printlog "'URL for listeners' "
724 printlog "URL for listeners compare to to TBO: "+BeamerURL.GetText
725 printlog "set 'URL for presentation' to 'wbcst_prl.html' "
726 PraesentationURL.SetText "wbcst_prl"
727 WaitSlot (1000)
728 printlog "set 'URL for perl scrips' to '/WebCast/cgi-bin/' "
729 ScriptURL.SetText "/WebCast/cgi-bin/"
730 printlog "presentation url? : "+ (gOfficePath + "/WebCast/cgi-bin/wbcst_prl")
731 WaitSlot (1000)
732 printlog "click button 'Next >>' "
733 Weiter.Click
734 WaitSlot (1000)
735 printlog "now we are on the dialog -3- 'gif/jpeg & resolution & sound' "
736 Kontext "HTMLExport3"
737 WaitSlot (1000)
738 printlog "check Save graphics as 'GIF' "
739 Gif.Check
740 printlog "check 'Medium (monitor) Resolution' "
741 MittlereAufloesung.Check
742 WaitSlot (3000)
743 printlog "click button 'Create' "
744 HTMLExport3.OK
745 WaitSlot (3000)
746 Kontext "HTMLDesign"
747 if HTMLDesign.Exists Then HTMLDesign.Cancel
748 Printlog "- Presentation saved and exported into both Webcast formats. all files can be found here: " + gOfficePath + "output\impress\web-cast\"
749 Printlog "file saved: '" + sFile + ".html'"
750 WaitSlot (10000)
751 Liste(0) = 0
752 GetFileList ((ConvertPath (gOfficePath + "user\work\html\perl\")), "*.*" , Liste() )
753 x = ListCount(Liste())
754 if (x <> "12") Then
755 Warnlog "- Number of files is not correct, it should be:5 but it is: '" + x + "'"
756 for i=1 to x
757 printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
758 next
759 end if
760 Call hCloseDocument
762 ' TBO: TODO FILECHECK IF EXISTS
763 endcase 'tHtmlExport_Webcast