Date sent: Tue, 7 Nov 1995 00:43:40 -0500 (EST) From: "Daniel F. Ancona, IV" To: engl5105@nexus.yorku.ca Copies to: broehl@coulomb.uwaterloo.ca Subject: Re: VRML Submission #!/usr/local/bin/perl open (screen, ">&STDOUT"); print (screen "Content-type: text/html\n\n"); sub ReadQuery { $qstring=$ENV{"QUERY_STRING"}; %p=split(/[=&]/,$qstring); foreach (keys %p) { $p{$_} =~ tr/+/ /; $p{$_} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } @pics=keys %p; } sub WritePage { $catstring=join ('.wrl ', @pics); print (screen "DGR VRML Created"); print (screen ""); print (screen "VRML Created!

"); print (screen "View the whole room (dgr.wrl)

"); print (screen "Or, view each picture by itself in 3D:

"); $furniture="shelf.wrl couch1.wrl molding"; } sub WriteVRML { system "cat room.wrl molding.wrl wall.wrl $catstring.wrl $furniture.wrl end.wrl > dgr.wrl"; } #MAIN &ReadQuery; &WritePage; &WriteVRML;