File indexing completed on 2024-05-12 05:09:25 

0001 #!/usr/bin/env perl
0002 
0003 my $group;
0004 my $igdbgroup;
0005 
0006 while( $input = <STDIN> )
0007 {
0008     chop $input;
0009 
0010     if( $input =~ /^\[/)
0011     {
0012         $group=$input;
0013     } elsif( $input =~ /^APIv3 Key/)
0014     {
0015         $igdbgroup=$group;
0016     }
0017 }
0018 
0019 if( $igdbgroup ne '')
0020 {
0021     print "# DELETE ${igdbgroup}APIv3 Key\n";
0022 }