home *** CD-ROM | disk | FTP | other *** search
/ Using VRML (Special Edition) / Special_Edition_Using_VRML_CDROM_Que_1996.iso / webpages / objects / rosetti.wrl < prev    next >
Text File  |  1995-11-07  |  1KB  |  49 lines
  1. Date sent:        Tue, 7 Nov 1995 00:43:40 -0500 (EST)
  2. From:             "Daniel F. Ancona, IV" <dfa4y@jefferson.village.virginia.edu>
  3. To:               engl5105@nexus.yorku.ca
  4. Copies to:        broehl@coulomb.uwaterloo.ca
  5. Subject:          Re: VRML Submission
  6.  
  7. #!/usr/local/bin/perl
  8.  
  9. open (screen, ">&STDOUT");
  10. print (screen "Content-type: text/html\n\n");
  11.  
  12. sub ReadQuery {
  13.     $qstring=$ENV{"QUERY_STRING"};
  14.  
  15.     %p=split(/[=&]/,$qstring);
  16.     foreach (keys %p) {
  17.  $p{$_} =~ tr/+/ /;
  18.  $p{$_} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  19.     }
  20.     @pics=keys %p;
  21. }
  22.  
  23. sub WritePage {
  24.     $catstring=join ('.wrl ', @pics);
  25.     print (screen "<html><head><title>DGR VRML
  26.     Created</title></head>"); print (screen "<body>"); print
  27.     (screen "<font size=+1>VRML Created!</font><p>"); print
  28.     (screen "<a href=\"dgr.wrl\">View the whole room
  29.     (dgr.wrl)</a><p>"); print (screen "Or, view each picture by
  30.     itself in 3D:<ul>"); foreach (@pics) {
  31.  print (screen "<li><a href=\"$_.wrl\">$_.wrl</a>");
  32.     }
  33.     print (screen "</ul>");
  34.     $furniture="shelf.wrl couch1.wrl molding";
  35. }
  36.  
  37. sub WriteVRML {
  38.     system "cat room.wrl molding.wrl wall.wrl $catstring.wrl
  39.     $furniture.wrl end.wrl > dgr.wrl";
  40. }
  41.  
  42. #MAIN
  43. &ReadQuery;
  44. &WritePage;
  45. &WriteVRML;
  46.  
  47.  
  48.  
  49.