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 | |
---|
9 | open(INFO, "<$file" ) ; # Open the file |
---|
10 | @lines = <INFO> ; # Read it into an array |
---|
11 | close(INFO) ; # Close the file |
---|
12 | |
---|
13 | |
---|
14 | foreach $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 | |
---|