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