Openkore.com

#!/usr/bin/env/perl

use strict;
use warnings;

package iwant_myrecvpackets;

my %packets;

&start();

sub start {
&main();
system("pause");
}

sub main {
my ($message, $file, $input, $output, $files, $found) = 0;
$found = -1;
   foreach (<*>) {
   $files .= $_."\n";
   if (-d $_ && $_ =~ /^Output$/ig) { $found = 1;};
   }
      if ($files =~ /(recvpackets.+\.ini)/ig) {
      #$message = "Type 1 from ThemonChan.\n";
      $file = $1;
      } elsif ($files =~ /(packetlengths.+\.ini)/ig) {
      #$message .= "Type 2 from MrStr3am\n";
      $file = $1;
      } elsif (substr(Win32::GetCwd(), eval (length(Win32::GetCwd()) - 6), length(Win32::GetCwd()) ) ne 'Output') {
      $message = "\nDo you have sure this file is inside \'Output\' folder?\n";
         if ($found eq 1) {         #If we aren't inside output folder, we could be on root, check for existance!
         $message .= "Please bro, move this script to \'Output\' folder! I can see it\n";
         }
      } else {
      $message = "\nPlease, start PEEK first to extract recvpackets initial file.\nThen run this script again.\nIf you've already done it, Try asking on OK forum\n";
      } if (substr(Win32::GetCwd(), eval (length(Win32::GetCwd()) - 20), length(Win32::GetCwd()) ) !~ /([P][E][E][K]([-]?[m][a][s][t][e][r])?)|ThemonChan|MrStr.am/ig) {
      $message .= "Please, move this script to PEEK/Output folder!\n";
      }
goto end if ($message);

open $input, "<$file" or $message = "Can't open the input file\n";
open $output, ">recvpackets.txt" or $message = "Can't create recvpackets output file\n";

goto end if ($message);

read_lines($input);
get_output($output);
close_handles($input, $output);

end:

printf("Length = %d packets\nPackets were extracted with success...\n", eval(keys %packets)) if (!$message);
printf("Errors:%d\n%s\n", eval($message && 1), $message) if ($message);
return 1;
}

sub close_handles {
my ($dw1, $dw2) = @_;
   close($dw1);
   close($dw2);
return 1;
}

sub read_lines {
my $file = shift;
my ($lines, $packetid);
   while (<$file>) {
   $lines = $_;
      if ($lines =~ /0x(0...) = ((-)?\d+)/ig) {
      undef $packetid;
      $packetid = uc($1);
         if (!exists($packets{$packetid})) {
         $packets{$packetid} = $2;
         }
      }
   }
return 1;
}

sub get_output {
my $file = shift;
   foreach my $value (sort keys %packets) {
   print $file "$value $packets{$value}\n";
   }
return 1;
}

1;