$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 $sender = new Mail::Sender { from => $EMAIL, smtp => 'oss.sgi.com'}; $sender->MailMsg({ to => 'sandeen@jump.net', 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" }); <%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;