$key $ARGS{$key}\n
"; #} 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; <%args> $FNAME=>"" $LNAME=>"" $EMAIL=>"" $COMPANY=>"" $VERS=>"" $DIST=>"" $ODIST=>"" $HARDWARE=>"" $OHARDWARE=>"" $DRIVE1=>"" $DRIVE2=>"" $DRIVE3=>"" $MAKER=>"" $STORAGE=>"" $MORE=>"" $LVM=>"" $MD=>"" $OTHER=>"" $NONE=>"" $COMMENTS=>"" $TAPEDRV=>"" $NUMMACH=>"" <%INIT> use Data::Dumper; use POSIX qw(strftime); use Mail::Sender;