source: trunk/documents/UserDoc/UsersGuides/ForApplicationDeveloper/print/MergeDocs.pl @ 1319

Last change on this file since 1319 was 1208, checked in by garnier, 15 years ago

CVS update
  • Property svn:executable set to *
File size: 4.8 KB
Line 
1#!/usr/bin/perl
2#
3# Merge html files into one so that MSWord can read
4# it and generate a ps file.
5#
6
7$file = $ARGV[0];                     # Name the file
8
9open(INFO, "<$file" ) ;               # Open the file
10@lines = <INFO> ;                     # Read it into an array
11close(INFO) ;                         # Close the file
12
13
14foreach $line (@lines)                # assign @lines to $line, one at a time
15{                                     # braces {} are required, bracket code
16
17  $line =~ s#"../../../../resources/#"../../../resources/#;
18
19  if ($line =~ "IMG SRC")
20  {
21    $line =~ s#"../../../../Welcome/#"../../../Welcome/#g;
22  }
23
24    $line =~ s#"physicsProcessHAD.src/img1.gif"#"../html/PracticalApplications/physicsProcessHAD.src/img1.gif"#g;
25
26    $line =~ s#"wwconcept.gif"#"../html/Fundamentals/wwconcept.gif" width=550#g;
27
28    $line =~ s#"geometry.src/aBox.jpg"#"../html/Detector/geometry.src/aBox.jpg"#g;
29
30    $line =~ s#"geometry.src/aTubs.jpg"#"../html/Detector/geometry.src/aTubs.jpg"#g;
31
32    $line =~ s#"geometry.src/aCons.jpg"#"../html/Detector/geometry.src/aCons.jpg"#g;
33
34    $line =~ s#"geometry.src/aPara.jpg"#"../html/Detector/geometry.src/aPara.jpg"#g;
35
36    $line =~ s#"geometry.src/aTrap.jpg"#"../html/Detector/geometry.src/aTrap.jpg"#g;
37
38    $line =~ s#"geometry.src/aTrd.jpg"#"../html/Detector/geometry.src/aTrd.jpg"#g;
39
40    $line =~ s#"geometry.src/aSphere.jpg"#"../html/Detector/geometry.src/aSphere.jpg"#g;
41
42    $line =~ s#"geometry.src/aOrb.jpg"#"../html/Detector/geometry.src/aOrb.jpg"#g;
43
44    $line =~ s#"geometry.src/aTorus.jpg"#"../html/Detector/geometry.src/aTorus.jpg"#g;
45
46    $line =~ s#"geometry.src/aBREPSolidPCone.jpg"#"../html/Detector/geometry.src/aBREPSolidPCone.jpg"#g;
47
48    $line =~ s#"geometry.src/aBREPSolidPolyhedra.jpg"#"../html/Detector/geometry.src/aBREPSolidPolyhedra.jpg"#g;
49
50    $line =~ s#"geometry.src/aEllipticalTube.jpg"#"../html/Detector/geometry.src/aEllipticalTube.jpg"#g;
51
52    $line =~ s#"geometry.src/aEllipsoid.jpg"#"../html/Detector/geometry.src/aEllipsoid.jpg"#g;
53
54    $line =~ s#"geometry.src/aEllipticalCone.jpg"#"../html/Detector/geometry.src/aEllipticalCone.jpg"#g;
55
56    $line =~ s#"geometry.src/aHyperboloid.jpg"#"../html/Detector/geometry.src/aHyperboloid.jpg"#g;
57
58    $line =~ s#"geometry.src/aTet.jpg"#"../html/Detector/geometry.src/aTet.jpg"#g;
59
60    $line =~ s#"geometry.src/aTwistedBox.jpg"#"../html/Detector/geometry.src/aTwistedBox.jpg"#g;
61
62    $line =~ s#"geometry.src/aTwistedTrap.jpg"#"../html/Detector/geometry.src/aTwistedTrap.jpg"#g;
63
64    $line =~ s#"geometry.src/aTwistedTrd.jpg"#"../html/Detector/geometry.src/aTwistedTrd.jpg"#g;
65
66    $line =~ s#"geometry.src/aTwistedTubs.jpg"#"../html/Detector/geometry.src/aTwistedTubs.jpg"#g;
67
68    $line =~ s#"geometry.src/cad-tess1.jpg"#"../html/Detector/geometry.src/cad-tess1.jpg"#g;
69
70    $line =~ s#"geometry.src/cad-tess2.jpg"#"../html/Detector/geometry.src/cad-tess2.jpg"#g;
71
72    $line =~ s#"geometry.src/avex1.jpg"#"../html/Detector/geometry.src/avex1.jpg"#g;
73
74    $line =~ s#"geometry.src/avex2.jpg"#"../html/Detector/geometry.src/avex2.jpg"#g;
75
76    $line =~ s#"geometry.src/avpic.jpg"#"../html/Detector/geometry.src/avpic.jpg"#g;
77
78    $line =~ s#"geometry.src/geomtest.gif"#"../html/Detector/geometry.src/geomtest.gif"#g;
79
80    $line =~ s#"geometry.src/DAVID_SAMPLE.gif"#"../html/Detector/geometry.src/DAVID_SAMPLE.gif"#g;
81
82    $line =~ s#"electroMagneticField.src/electroMagneticField.gif"#"../html/Detector/electroMagneticField.src/electroMagneticField.gif"#g;
83
84    $line =~ s#"electroMagneticField.src/MissDistance.jpg"#"../html/Detector/electroMagneticField.src/MissDistance.jpg" width=550#g;
85
86    $line =~ s#"electroMagneticField.src/IntersectionError.jpg"#"../html/Detector/electroMagneticField.src/IntersectionError.jpg"#g;
87
88    $line =~ s#"hit.src/RO.gif"#"../html/Detector/hit.src/RO.gif"#g;
89
90    $line =~ s#"persistency.src/GeomDBsolid3.gif"#"../html/Detector/persistency.src/GeomDBsolid3.gif"#g;
91
92    $line =~ s#"persistency.src/pobject.gif"#"../html/Detector/persistency.src/pobject.gif"#g;
93
94    $line =~ s#"persistency.src/UsingODBMS.gif"#"../html/Detector/persistency.src/UsingODBMS.gif"#g;
95
96    $line =~ s#"persistency.src/schema.gif"#"../html/Detector/persistency.src/schema.gif"#g;
97
98    $line =~ s#"persistency.src/schema2.gif"#"../html/Detector/persistency.src/schema2.gif"#g;
99
100    $line =~ s#"physicsProcessPARAM.src/ComponentsWithRegion.gif"#"../html/TrackingAndPhysics/physicsProcessPARAM.src/ComponentsWithRegion.gif"#g;
101    $line =~ s#"visualization.src/gagtree.jpg"#"../html/Visualization/visualization.src/gagtree.jpg" height=423 width=550#g;
102
103    $line =~ s#"visualization.src/xmlnp.gif"#"../html/Visualization/visualization.src/xmlnp.gif"#g;
104
105    $line =~ s#"visualization.src/xmlnpfind.gif"#"../html/Visualization/visualization.src/xmlnpfind.gif"#g;
106
107  print "$line" ;    # print formatted lines to screen
108}
109
110#
111# DONE
112#
113
114
Note: See TracBrowser for help on using the repository browser.