Return to surveyinput.html CVS log

Up to [Development] / xfs-website

> is for strings, not "gt..."

<& 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: $DRIVE1 $DRIVE2 $DRIVE3\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 "Tape Drive: $TAPEDRV\n";
print OUT "Comments: $COMMENTS\n";      
print OUT "######################################################\n";
print OUT "\n";                                         
close(OUT);

# Now mail it...
my $msg =
    "To: slinx-xfs\@engr.sgi.com\n" .
    "Subject: New XFS Survey Response\n\n" .
    "Name: $FNAME $LNAME\n" .
    "Email: $EMAIL\n" .
    "Company: $COMPANY\n" .
    "XFS version: $VERS\n" .
    "Number of machines: $NUMMACH\n" .
    "Std. Linux distribution: $DIST\n" .
    "Other Linux distribution: $ODIST\n" .
    "Hardware: $HARDWARE\n" .
    "Hard Drives: $DRIVE1 $DRIVE2 $DRIVE3\n" .
    "Manufacturer(s): $MAKER\n" .
    "Storage amount: $stor[$STORAGE-1] $MORE\n" .
    "LVM: $LVM MD: $MD OTHER: $OTHER NONE: $NONE\n" .
    "Tape Drive: $TAPEDRV\n" .
    "Comments:\n$COMMENTS\n";

# No huge mail bombs please...
if ( length($msg) > 3000 ) {
  $msg = substr($msg, 0, 3000);
  $msg .= "\n(Message truncated, see http://gibble.americas.sgi.com/xfs-website/readsurvey.html for full message)";
}

# Strip out evil chars...
$msg =~ s/[;><\*`\|]//g;

open(SENDMAIL, "|/usr/lib/sendmail -t") || die "Can't open sendmail";
print SENDMAIL $msg;
close SENDMAIL;

</%perl>


<%args>

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

</%args>

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