\n";
print $DIR_HTML "\n";
print $DIR_HTML "At the top of the page is the name of the current directory\n";
print $DIR_HTML " .
\n";
print $DIR_HTML "Underneath, could appear the two titles Files\n";
print $DIR_HTML " or Directories .\n";
print $DIR_HTML "
\n";
print $DIR_HTML "Under Files\n";
print $DIR_HTML ", if present, appear the names of the files contained in the current directory . Depending on the type of the file as viewed by the user file system, \n";
print $DIR_HTML "when clicking on the name of the file, four types of action could happen :\n";
print $DIR_HTML "\n";
print $DIR_HTML "- The automatic display of the content of this file .
\n";
print $DIR_HTML "- The automatic display of the content of this file by an editor ( Wordpad or Word if you use Windows ) .
\n";
print $DIR_HTML "- The automatic display of a window asking two questions :
\n";
print $DIR_HTML "\n";
print $DIR_HTML "- Either to display the file by an editor ( Wordpad or Word if you use Windows ) ;
\n";
print $DIR_HTML "- Or to copy the file somewhere in the user system .
\n";
print $DIR_HTML "
\n";
print $DIR_HTML "
\n";
print $DIR_HTML "If needed, binary files can be always copied somewhere to be analized using some byte editor like Hexplorer .\n";
print $DIR_HTML "Under Directories , if present, appear the \n";
print $DIR_HTML "names of the directories contained in the current directory . Remember that Multics directories have been reorganized in three types \n";
print $DIR_HTML "of directories :
\n";
print $DIR_HTML "\n";
print $DIR_HTML "- Multics directories, restricted to the ASCII files contained in the original Multics directory;
\n";
print $DIR_HTML "- binaries directories containing the binary files of the upper Multics directory ;
\n";
print $DIR_HTML "- damaged directories containing the damaged files of the upper Multics directory ( due to conversion or disk errors at Calgary ) .
\n";
print $DIR_HTML "
\n";
print $DIR_HTML "\n";
print $DIR_HTML "- Clicking on a directory reference will display the content of this new directory .
\n";
print $DIR_HTML "
\n";
print $DIR_HTML "To return to the upper directory, use your browser's BACK function ( if you use Internet Explorer under Windows, click as usual on the left arrow \n";
print $DIR_HTML "at the left up corner ) .
\n";
print $DIR_HTML "\n";
print $DIR_HTML "| \n"; # BGCOLOR='#EAE2BB' beige
print $DIR_HTML "\n";
print $DIR_HTML " HISTORICAL BACK GROUND ";
print $DIR_HTML " |
\n";
print $DIR_HTML "\n";
print $DIR_HTML "\n";
print $DIR_HTML "- This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology \n";
print $DIR_HTML "by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge .
\n";
print $DIR_HTML "- This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, \n";
print $DIR_HTML "Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL \n";
print $DIR_HTML "and BULL HN Information Systems Inc. to the development of this operating system .
\n";
print $DIR_HTML "- Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970) , renamed \n";
print $DIR_HTML "the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s , under the leadership of Professor \n";
print $DIR_HTML "Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware \n";
print $DIR_HTML " properly and for executing programs. Many subsequent operating systems incorporated Multics principles.
\n";
print $DIR_HTML "- Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., \n";
print $DIR_HTML "as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. .
\n";
print $DIR_HTML "- To know more, \n";
print $DIR_HTML "look at Multicians .
\n";
print $DIR_HTML "
\n";
print $DIR_HTML "";
print $DIR_HTML "\n";
print $DIR_HTML "| \n"; # BGCOLOR='#EAE2BB' beige
print $DIR_HTML "\n";
print $DIR_HTML " ACKNOWLEDGEMENTS \n";
print $DIR_HTML " |
\n";
print $DIR_HTML "\n";
print $DIR_HTML "The decision to retrocede the Multics Sources from Bull to MIT was made by \n";
print $DIR_HTML "Didier LAMOUCHE, President of Bull .
\n";
print $DIR_HTML "The decision to create this Internet site was made by Jerry GROCHOW , \n";
print $DIR_HTML "Senior IT Executive at MIT (Cambridge, MA) .
\n";
print $DIR_HTML "The following Bull Managers have made possible the positive decision making on this project: \n";
print $DIR_HTML "\n";
print $DIR_HTML "- Gerard ROUCAIROL, Group Bull Chief Scientist, (Les Clayes-sous-Bois, France) .
\n";
print $DIR_HTML "- Herve MOUREN, President of Bull Systems, (Les Clayes-sous-Bois, France) .
\n";
print $DIR_HTML "- Matthew FOXTON, Group Bull VP for Communication, (Les Clayes-sous-Bois, France) .
\n";
print $DIR_HTML "- Christian LOYAU, Group Bull General Counsel, (Les Clayes-sous-Bois, France) .
\n";
print $DIR_HTML "- Henry PFAHL, GCOS Product Lines Director, (Les Clayes-sous-Bois, France) .
\n";
print $DIR_HTML "- Bob FOWLER, Director, Customer Support & Quality, Bull HN Information Systems (Phoenix, AZ) .
\n";
print $DIR_HTML "- Tom MAHER, Bull HN General Counsel, (Billerica, MA) .
\n";
print $DIR_HTML "- Guy PROUD, Director of GCOS Development for Bull, (Phoenix, AZ, and Les Clayes-sous-Bois, France) .
\n";
print $DIR_HTML "
\n";
print $DIR_HTML "The achievement of this project would not be possible without the involvement of the following Engineers :\n";
print $DIR_HTML "\n";
print $DIR_HTML "- Tom VAN VLECK, Multicians site Manager, whose constant help to this project have made it to\n";
print $DIR_HTML " succeed. Tom has brought all his expertise on Multics, and also a large programmatic \n";
print $DIR_HTML "support in Perl to process the 14 384 files of Mutltics \n";
print $DIR_HTML "Sources presented here and in HTML to create this server. Great thanks to Tom.
\n";
print $DIR_HTML "- David SCHROTH, who saved on a DAT the entire Multics Sources before the shutdown of \n";
print $DIR_HTML "the last Multics system running in CGI (Calgary, Canada). Whitout his intervention, Multics \n";
print $DIR_HTML "Sources would be lost. Special thanks to Dave and CGI.
\n";
print $DIR_HTML "- Henrik CZAJA, SuperSelect engineer, who kept the DAT for two years .Thanks to Henrick .
\n";
print $DIR_HTML "- Jacky BOULAY, Systems Operation, Bull Engineering, (Les Clayes-sous-Bois, France), who \n";
print $DIR_HTML " created the CDs from the David DAT . Thanks to Jacky .
\n";
print $DIR_HTML "- Alain LEMOINE, Systems Operation, Bull Engineering, (Les Clayes-sous-Bois, France), who helped \n";
print $DIR_HTML "to correct characters changes by Windows from Unix . Thanks to Alain .
\n";
print $DIR_HTML "- Patrick BIENATI, Systems Operation, Bull Engineering, (Les Clayes-sous-Bois, France), who helped \n";
print $DIR_HTML " in making the final delivered material . Thanks to Patrick .
\n";
print $DIR_HTML "
\n";
print $DIR_HTML "";
print $DIR_HTML "\n";
print $DIR_HTML "| \n"; # BGCOLOR='#EAE2BB' beige
print $DIR_HTML "\n";
print $DIR_HTML " COPYRIGHT ";
print $DIR_HTML " |
\n";
print $DIR_HTML "\n";
print $DIR_HTML "\n";
print $DIR_HTML "Permission to use, copy, modify, and distribute these programs and their documentation \n";
print $DIR_HTML "for any purpose and without fee is hereby granted, provided that this copyright notice and the above historical background \n";
print $DIR_HTML "appear in all copies and that both the copyright notice and historical background and this permission notice appear \n";
print $DIR_HTML "in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity \n";
print $DIR_HTML "pertaining to distribution of the programs without specific prior written permission.\n";
print $DIR_HTML "
\n";
print $DIR_HTML "";
print $DIR_HTML "- Copyright 1972 by the Massachusetts Institute of Technology and \n";
print $DIR_HTML "Honeywell Information Systems Inc.
\n";
print $DIR_HTML "- Copyright 2006 by Bull HN Information Systems Inc.
\n";
print $DIR_HTML "- Copyright 2006 by Bull SAS
\n";
print $DIR_HTML "- All Rights Reserved
\n";
print $DIR_HTML "
";
print $DIR_HTML "\n";
print $DIR_HTML "| \n"; # BGCOLOR='#EAE2BB' beige
print $DIR_HTML "\n";
print $DIR_HTML " AUTHOR ";
print $DIR_HTML " |
\n";
# print $DIR_HTML "";
print $DIR_HTML "This Project was realized by Bernard NIVELET, retired Director from Bull -- Strategy, Engineering and Sales -- \n";
print $DIR_HTML "(Les Clayes-sous-Bois, France) .
\n";
print $DIR_HTML "Please, if any remarks, send them to him .
\n";
}
print $DIR_HTML "\n\n";
close($DIR_HTML);
} # checkdir
# ================================================================
sub DirName {
my $dir = shift;
my $char_rep = shift;
my $p=0;
my $object_name;
my $sub;
if( (substr($dir,0,3) eq "c:/") || (substr($dir,0,3) eq "c:\\") ){
$sub = substr($dir,3);
}else{
$sub= $dir;
}
if( (substr($sub,0,39) eq "Multics_Internet_Server/Multics_Sources") || (substr($sub,0,39) eq "Multics_Internet_Server\\Multics_Sources") ){
$object_name=substr($sub,39);
}else{
$object_name=$sub;
}
if( (substr($object_name,0,1) eq "/") || (substr($object_name,0,1) eq "\\") ){
$object_name=substr($object_name,1);
}
my $dl=length($object_name);
if ($dl == 0){
$object_name="Multics_sources";
}else{
while( ($p<$dl) && ($p>=0) ){
$p=index($object_name, "/", $p);
if( $p >= 0 ){
vec($object_name, $p, 8) = hex($char_rep);
$p+=1;
}
}
$p=0;
while( ($p<$dl) && ($p>=0) ){
$p=index($object_name, "\\", $p);
if( $p >= 0 ){
vec($object_name, $p, 8) = hex($char_rep);
$p+=1;
}
}
$p=0;
while( ($p<$dl) && ($p>=0) ){
$p=index($object_name, ".", $p);
if( $p >= 0 ){
vec($object_name, $p, 8) = hex($char_rep);
$p+=1;
}
}
}
return $object_name
} # end DirName
# ================================================================
