#!/usr/bin/perl
#
use strict;
use File::Find;
use File::Copy;

my @files;
@files = @ARGV or (".");
if (@ARGV) {
} else {
  @files = (".");
}

find({ no_chdir => 1, wanted => \&wanted }, @files);

sub wanted {
  return if ($File::Find::name =~ m{(\./(tmp|save)|CVS|GNUmakefile)});

  if ($File::Find::name =~ /\.(class|inc|php)$/) {
    process($File::Find::name);
  }
}

sub process {
  my $file = shift;
  my $bak = "$file.bak";

  print "$file\n";

  unless (-f $bak) {
    copy($file, $bak);
  }

  open(IFD, "<$bak") || die;
  open(OFD, ">$file") || die;

  while (<IFD>) {
    s/GalleryCoreApi\s*::\s*relativeRequireOnce\s*\(/GalleryCoreApi::requireOnce\(/i;
    print OFD;
  }
  close(IFD);
  close(OFD);
}