$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); <%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;