#!/usr/bin/perl

# Graemlin update by LK, 04.06.04
## Version 1.0
### All rights reserved © UBBDev.com
#### Rename it to anything .cgi, place it on the cgi-bin directory

print "Content-type: text/html\n\n";
require "vars_config.cgi";
opendir(DIR, "$vars_config{NonCGIPath}/graemlins");
my @whatever = grep(/\.gif$/, readdir(DIR));
closedir(DIR);
@whatever = sort {$a cmp $b} @whatever;
my $graem;
my $i = 0;
open(FILE, "$vars_config{VariablesPath}/vars_graemlins.cgi");
my $vars_graemlins = join("", <FILE>);
close(FILE);
unlink("$vars_config{VariablesPath}/vars_graemlins.bak") if -e "$vars_config{VariablesPath}/vars_graemlins.bak";
rename("$vars_config{VariablesPath}/vars_graemlins.cgi", "$vars_config{VariablesPath}/vars_graemlins.bak");

my $ya = qq~\n      \{\n~;

foreach (@whatever) {
	$_ =~ s/\.gif$//isg;
	$i = sprintf("%.2d", $i + 1);
	$ya .= qq~        q!$i\_$_\! =>\n          {\n            q!image! => q!$_.gif!,\n            q!text! => q!\u$_!,\n            q!trigger! => q!$_!,\n          },\n~;
}
$i = $i + 0;
$ya .= qq~      },\n~;

$vars_graemlins =~ s/(q\!custgraems\! =\> q\!)(\d+)(\!\,)/$1$i$3/isg;
$vars_graemlins =~ s/(q\!graems\! =\>)(.+?)(\s\s\s\sq\!origs\!)/$1$ya$3/isg;

open(FILE, ">$vars_config{VariablesPath}/vars_graemlins.cgi");
print FILE $vars_graemlins;
close(FILE);
chmod(0777, "$vars_config{VariablesPath}/vars_graemlins.cgi");

print "All done! File is self-destructing!<br />All your base are belong to us!";
exit;