#! /usr/bin/perl
use CGI;
use strict;
use
Gimp;
use Gimp::Net;
Gimp::init;
my $q = new CGI;
my $userdir =
$q->param("userdir");
my $tempdir = $q->param("tempdir");
my
$titletext = $q->param("titletext");
my $menutext =
$q->param("menutext");
my $pagenumber =
$q->param("pagenumber");
print "User Directory: ",
$userdir,
"\nTemplate Directory: ",
$tempdir,
"\nTitle Text:
",
$titletext,
"\nMenu Text:
",
$menutext,
"\nNo. of Pages: ",
$pagenumber;
my
$file = "/sitemakerpro/template/chip/screenshot.jpg";
my $file1 =
"/sitemakerpro/template/chip/screenshot1.jpg";
my $imgX;
my
$imgY;
my $img =
Gimp->gimp_file_load(1,$file,$file);
$imgX =
Gimp->$img->width;
$imgY = Gimp->$img->height;
my
$draw =
Gimp->gimp_image_active_drawable($img);
Gimp->$img->file_save
($draw,$file1,$file1)
