Return to surveyinput.html CVS log

Up to [Development] / xfs-website

Re-enabled mailing - Quentin says it works now...

<& 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 $sender = new Mail::Sender { from => $EMAIL,
	smtp => 'localhost'};

$sender->MailMsg({
  to => 'slinx-xfs@engr.sgi.com',
  subject => 'New survey response',
  msg => 
    "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"
  });

</%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>