Return to surveyinput.html CVS log

Up to [Development] / xfs-website.orig

*** empty log message ***

<& xfsTemplate,top=>1,side=>1 &>
<H1>The XFS team thanks you for your response. </h1>
<A href=index.html >XFS home</A>
<& xfsTemplate,bottom=>1 &>


<%perl>
my $key;
my @stor = ("0 - 10 GB","11 - 25 GB","26 - 50 GB","51 - 100 GB","MORE");
#print Dumper(%ARGS);
#foreach $key (keys(%ARGS)){
#  print "<p> $key $ARGS{$key}\n</p>";
#}
open(OUT, ">>/oss/www/projects/xfs/XFSSurvey") or print "tmpfile open failed: $! \n";
print OUT "Date: ", strftime "%a %b %e %H:%M:%S %Y", localtime;
print OUT "\n";
print OUT "Name: $FNAME $LNAME\n";
print OUT "Email: $EMAIL\n";
print OUT "Company: $COMPANY\n";
print OUT "XFS version: $VERS\n";
print OUT "NUMBER: $NUMMACH\n";
if ($DIST =~ "other"){
  print OUT "Linux distribution: $ODIST\n";
}else {
  print OUT "Linux distribution: $DIST\n";
}
print OUT "Hardware: $HARDWARE\n";
#print OUT "Hard Drives: $DRIVES\n";   
print OUT "Manufacturer(s): $MAKER\n";
print OUT "Storage amount: $stor[$STORAGE-1] $MORE\n";
print OUT "LVM: $LVM MD: $MD OTHER: $OTHER NONE: $NONE\n";   
print OUT "TAPEDRV $TAPEDRV\n";
print OUT "Comments: $COMMENTS\n";      
print OUT "######################################################\n";
print OUT "\n";                                         
close(OUT);

</%perl>


<%args>

$FNAME=>""
$LNAME=>""
$EMAIL=>""
$COMPANY=>""
$VERS=>""
$DIST=>""
$ODIST=>""
$HARDWARE=>""
$OHARDWARE=>""
$DRIVE1=>""
$DRIVE2=>""
$DRIVE3=>""
$MAKER=>""
$STORAGE=>""
$MORE=>""
$LVM=>""
$MD=>""
$OTHER=>""
$NONE=>""
$COMMENTS=>""
$TAPEDRV=>""
$NUMMACH=>0


</%args>

<%INIT>
	
use Data::Dumper;
use POSIX qw(strftime);
</%INIT>