tools/emailDataLint.pl

   1 #!/usr/bin/perl -w
   2 use File::stat;
   3
   4
   5
   6 ###
   7  # Copyright (C)2000-2002 Sony Online Entertainment Inc.
   8  # All Rights Reserved
   9  #
  10  # Title:        emailDataLint.pl
  11  # Description:  emails datalint generated client files to appropriate people
  12  # @author       $Author: gmcdaniel $
  13  # @version      $Revision: #4 $
  14  ##
  15
  16
  17
  18 #todo Once the command line parameter of where to drop the files is added I can move this script back out of the exe\win32 directory.
  19 #todo Change the taskmanager to point to the new script location once above change happens.
  20 #todo Email may not work unless client does not crash.
  21
  22
  23
  24
  25
  26 ##
  27 # This subroutine returns the current local date
  28
  29 sub get_date
  30 {
  31         ($day, $month, $year) = (localtime) [3,4,5];
  32         $month = $month + 1;
  33         $year = $year + 1900;
  34         $date = $month."/".$day."/".$year;
  35         return $date;
  36
  37 } # End of sub get_date
  38
  39
  40
  41
  42 ##
  43 # This subroutine checks for warnings and errors in the datalint txt files.  If there is an error it returns true otherwise it returns false.
  44 # It takes the name of the txt file to check as input.
  45
  46 sub Check_Logfile_For_Warnings_and_Errors
  47 {
  48
  49        $second_to_last_line = "current_line_2";
  50
  51        open (Logfile,"C:\\$work_path\\swg\\test\\exe\\win32\\$_[0].txt") || die "Cannot open $_[0] for reading.";
  52        while (<Logfile>)
  53        {
  54            chomp;
  55            $second_to_last_line = $_;
  56        }
  57        close (Logfile)  || die "can't close $_[0]";
  58        print ("\n");
  59
  60
  61        if ($second_to_last_line eq "current_line_2")
  62        {
  63            print ("No warnings or fatals found in $_[0]\n");
  64            print ("\n");
  65            return "false";
  66        }
  67        else
  68        {
  69            print ("Warnings or errors found in $_[0]\n");
  70            print ("\n");
  71            return "true";
  72        }
  73
  74 } # End of sub Check_Logfile_For_Warnings_and_Errors
  75
  76
  77
  78
  79 ##
  80 # This subroutine checks for the existance of errors and fatals in the datalint logs.  The logs are then sent to the appropriate people.
  81 # It takes the name of the logfile to check and a string with the list if email addresses to mail if there are errors.
  82
  83 sub check_and_email_datalint_logs
  84 {
  85
  86        $date_stamp = get_date();
  87
  88
  89        $Error = Check_Logfile_For_Warnings_and_Errors($_[0]);
  90
  91        if ($Error eq "true")
  92        {
  93
  94             #Check size of file to see if it should be zipped or not
  95
  96             $LogFile="C:\\$work_path\\swg\\test\\exe\\win32\\$_[0].txt";
  97             $info=stat($LogFile);
  98             $sizeOfFile = $info->size;
  99
 100             if ($sizeOfFile < 512)
 101             {
 102                print ("Error or warning found in $_[0].  Emailing appropriate people.\n");
 103                system ("c:\\postie\\postie -host:mail-sd.station.sony.com $_[1] -from:$gmcdaniel -s:\"[DataLint] Errors or Warnings in $_[0] $date_stamp\" -msg:\"Attached is $_[0] listing the asset warnings and errors as found by DataLint.  Let me know if you have any questions.   Thanks,Grant\" -a:c:\\$work_path\\swg\\test\\exe\\win32\\$_[0].txt");
 104             }
 105
 106             else
 107             {
 108                print ("Error or warning found in $_[0].  Emailing appropriate people.\n");
 109                print ("File to large to send, zipping");
 110                system ("c:\\progra~1\\winzip\\wzzip.exe c:\\$work_path\\swg\\test\\exe\\win32\\$_[0].zip $LogFile");
 111                system ("c:\\postie\\postie -host:mail-sd.station.sony.com $_[1] -from:$gmcdaniel -s:\"[DataLint] Errors or Warnings in $_[0] $date_stamp\" -msg:\"Attached is $_[0] listing the asset warnings and errors as found by DataLint.  Let me know if you have any questions.   Thanks,Grant\" -a:c:\\$work_path\\swg\\test\\exe\\win32\\$_[0].zip");
 112
 113             }
 114
 115
 116        }
 117
 118
 119        else
 120        {
 121           print ("No errors or warnings found in $_[0].");
 122           system ("c:\\postie\\postie -host:mail-sd.station.sony.com $gmcdaniel -from:$gmcdaniel -s:\"[DataLint] $_[0] $date_stamp\" -nomsg -a:c:\\$work_path\\swg\\test\\exe\\win32\\$_[0].txt");
 123        }
 124
 125
 126
 127 } # End of sub check_and_email_datalint_logs
 128
 129
 130
 131
 132
 133
 134
 135 ########## MAIN ##########
 136
 137
 138
 139 $work_path = "workpublish";
 140
 141
 142
 143 ##
 144 # Runs DataLintRspBuilder and DataLint
 145
 146
 147     print ("Beginning DataLintRspBuilder...\n");
 148     #system ("copy c:\\work\\swg\\test\\tools\\DataLintRspBuilder.exe c:\\$work_path\\swg\\test\\exe\\win32\\DataLintRspBuilder.exe");
 149     #system ("c:\\$work_path\\swg\\test\\exe\\win32\\DataLintRspBuilder.exe c:\\$work_path\\swg\\test\\exe\\win32\\common.cfg");
 150     print ("DataLintRspBuilder Complete\n");
 151     print ("\n");
 152     print ("\n");
 153
 154
 155     print ("Beginning DataLint...\n");
 156     #system ("c:\\$work_path\\swg\\test\\exe\\win32\\SwgClient_d.exe -- -s DataLint disable=0 -s SharedFoundation demo Mode=1");
 157     print ("DataLint Complete\n");
 158     print ("\n");
 159     print ("\n");
 160
 161 #
 162 ## End of Runs DataLintRspBuilder and DataLint
 163
 164
 165
 166
 167
 168
 169 ##  Check_For_Warnings_and_Errors
 170 #
 171
 172      print ("Checking for errors and warnings...\n");
 173      print ("\n");
 174
 175
 176      # Email addresses
 177      $gmcdaniel = "gmcdaniel\@soe.sony.com";
 178      $jbrack = "jbrack\@soe.sony.com";
 179      $jgrills = "jgrills\@soe.sony.com";
 180      $asommers = "asommers\@soe.sony.com";
 181      $cmayer = "cmayer\@soe.sony.com";
 182      $jrodgers = "jrodgers\@soe.sony.com";
 183      $jroy = "jroy\@soe.sony.com";
 184      $jshoopack = "jshoopack\@soe.sony.com";
 185      #$acastoro = "acastoro\@soe.sony.com";
 186      $cbarnes = "cbarnes\@soe.sony.com";
 187      $rkoster = "rkoster\@soe.sony.com";
 188      $jdonham = "jdonham\@soe.sony.com";
 189      $rvogel = "rvogel\@soe.sony.com";
 190      $mhigby = "mhigby\@soe.sony.com";
 191      $ssnopel = "ssnopel\@soe.sony.com";
 192      $jwhisenant = "jwhisenant\@soe.sony.com";
 193
 194
 195
 196      $swo_leads = "-to:$cmayer -to:$asommers -to:$jgrills -to:$jrodgers -to:$jroy -to:$jshoopack -to:$cbarnes -to:$rkoster -cc:$gmcdaniel -cc:$jbrack -cc:$jdonham -cc:$rvogel -cc:$ssnopel -cc:$jwhisenant";
 197      $prog_leads = "-to:$cmayer -to:$asommers -to:$jgrills -cc:$gmcdaniel -cc:$jbrack  -cc:$ssnopel -cc:$jwhisenant";
 198      $art_leads = "-to:$jrodgers -to:$jroy -to:$jshoopack -cc:$gmcdaniel -cc:$jbrack  -cc:$ssnopel -cc:$jwhisenant";
 199      $design_leads = "-to:$cbarnes -to:$rkoster -cc:$gmcdaniel -cc:$jbrack  -cc:$ssnopel -cc:$jwhisenant";
 200      $art_and_design_leads = "-to:$cbarnes -to:$rkoster -to:$jrodgers -to:$jroy -to:$jshoopack -cc:$gmcdaniel -cc:$jbrack  -cc:$ssnopel -cc:$jwhisenant";
 201      $qa_leads = "-to:$gmcdaniel -to:$ssnopel -to:$jwhisenant";
 202
 203
 204
 205      check_and_email_datalint_logs("DataLint_Errors_All",$swo_leads);
 206
 207      check_and_email_datalint_logs("DataLint_Errors_All_Fatal",$swo_leads);
 208
 209      check_and_email_datalint_logs("DataLint_Errors_Appearance",$art_leads);
 210
 211      check_and_email_datalint_logs("DataLint_Errors_ArrangementDescriptor",$art_and_design_leads);
 212
 213      check_and_email_datalint_logs("DataLint_Errors_LocalizedStringTable",$design_leads);
 214
 215      check_and_email_datalint_logs("DataLint_Errors_ObjectTemplate",$design_leads);
 216
 217      check_and_email_datalint_logs("DataLint_Errors_PortalProperty",$art_leads);
 218
 219      check_and_email_datalint_logs("DataLint_Errors_ShaderTemplate",$art_leads);
 220
 221      check_and_email_datalint_logs("DataLint_Errors_SkyBox",$art_leads);
 222
 223      check_and_email_datalint_logs("DataLint_Errors_SlotDescriptor",$art_and_design_leads);
 224
 225      check_and_email_datalint_logs("DataLint_Errors_SoundTemplate",$prog_leads);
 226
 227      check_and_email_datalint_logs("DataLint_Errors_Texture",$art_leads);
 228
 229      check_and_email_datalint_logs("DataLint_Errors_TextureRenderer",$art_leads);
 230
 231
 232
 233
 234
 235      # Checks for content in DataLint_UnsupportedAssets.txt and sends appropriate email
 236      #todo this should probably not be daily
 237
 238           $Logfile_to_check = "DataLint_UnsupportedAssets";
 239           print ("Checking $Logfile_to_check for contents...\n");
 240           $Error = Check_Logfile_For_Warnings_and_Errors($Logfile_to_check);
 241
 242
 243      if ($Error eq "true")
 244        {
 245
 246             #Check size of file to see if it should be zipped or not
 247
 248             $LogFile="C:\\$work_path\\swg\\test\\exe\\win32\\$Logfile_to_check.txt";
 249             $info=stat($LogFile);
 250             $sizeOfFile = $info->size;
 251
 252             if ($sizeOfFile < 512)
 253             {
 254              print ("Contents found in $Logfile_to_check.  Emailing appropriate people.\n");
 255              system ("c:\\postie\\postie -host:mail-sd.station.sony.com $prog_leads -from:$gmcdaniel -s:\"Unsupported Assets in $Logfile_to_check $date_stamp\" -nomsg -a:c:\\$work_path\\swg\\test\\exe\\win32\\$Logfile_to_check.txt");
 256             }
 257
 258             else
 259             {
 260                print ("Contents found in $Logfile_to_check.  Emailing appropriate people.\n");
 261                print ("File to large to send, zipping");
 262                system ("c:\\progra~1\\winzip\\wzzip.exe c:\\$work_path\\swg\\test\\exe\\win32\\DataLint_UnsupportedAssets.zip $LogFile");
 263                system ("c:\\postie\\postie -host:mail-sd.station.sony.com $prog_leads -from:$gmcdaniel -s:\"Unsupported Assets in $Logfile_to_check $date_stamp\" -nomsg -a:c:\\$work_path\\swg\\test\\exe\\win32\\$Logfile_to_check.zip");
 264             }
 265
 266
 267        }
 268
 269
 270        else
 271        {
 272              print ("No contents in $Logfile_to_check.");
 273
 274              #todo Should eventually not email anyone with the results.
 275              system ("c:\\postie\\postie -host:mail-sd.station.sony.com -to:$gmcdaniel -from:$gmcdaniel -s:\"$Logfile_to_check $date_stamp\" -nomsg -a:c:\\$work_path\\swg\\test\\exe\\win32\\$Logfile_to_check");
 276        }
 277
 278
 279
 280        print ("End of errors and warnings check for DataLint files.\n");
 281        print ("\n");
 282
 283 #
 284 ## End of Check_For_Warnings_and_Errors
 285
 286
 287
 288
 289
 290
 291
 292 ########## END OF MAIN ##########