corp/pics/menu.pl

#!/usr/local/bin/perl -w

use Image::Magick;
use DBI;

my $dest_dir="/data/corp_html/m";

sub dump_gif {
        my ($text) = @_;
        my $file=$text;
        $file=~s/[^a-zA-Z]+/_/g;

print "$text";

$image = Image::Magick->new;
#$image->Set(size=>'125x15');
$image->Set(size=>'250x30');
$image->ReadImage('xc:#2a377e');

$image->Annotate(text=>$text,
        geometry=>'+14+21',
        font=>"\@arialbd.ttf",
        pointsize=>20,
        pen=>'white',
        fill=> '#ffffff',
        align=>'left');


#$image->Resize(geometry=>'125x15', filter=>'Lanczos', blur=>1.8);
#$image->GaussianBlur(radius=>1);
$image->Scale(geometry=>'50%');

$image->Draw(stroke=>'#cccccc', primitive=>'line', points=>'0,13 118,13', linewidth=>1);
$image->Draw(stroke=>'#cccccc', primitive=>'line', points=>'118,13 118,7', linewidth=>2);


if (0) {
$image->Annotate(text=>
        geometry=>'+7+2',
        font=>"\@/usr/local/ttfonts/arialbd.ttf",
        pointsize=>10,
        pen=>'white',
        align=>'left');
}

print " -> ";

$image->Write(filename=>"gif:$dest_dir/$file.gif", 
                colors=>256,
                interlace=>"none",
                compress=>'lzw');

print "$file.gif\n";

return "$file.gif";

}

my $connect = "DBI:Pg:dbname=corp";

my $dbh = DBI->connect("$connect","","") || die $DBI::errstr;
$sth = $dbh->prepare("select section,item,url from menu") || die $dbh->errstr();
$sth->execute() || die $sth->errstr();

while (@arr = $sth->fetchrow_array() ) {
        $dbh->do("update menu set file='".dump_gif($arr[1])."' where item='$arr[1]'");
}
1	dpavlin	1.1	#!/usr/local/bin/perl -w
2
3			use Image::Magick;
4			use DBI;
5
6	dpavlin	1.3	my $dest_dir="/data/corp_html/m";
7
8	dpavlin	1.1	sub dump_gif {
9			my ($text) = @_;
10			my $file=$text;
11			$file=~s/[^a-zA-Z]+/_/g;
12
13			print "$text";
14
15			$image = Image::Magick->new;
16			#$image->Set(size=>'125x15');
17			$image->Set(size=>'250x30');
18			$image->ReadImage('xc:#2a377e');
19
20			$image->Annotate(text=>$text,
21	dpavlin	1.3	geometry=>'+14+21',
22	dpavlin	1.2	font=>"\@arialbd.ttf",
23	dpavlin	1.1	pointsize=>20,
24			pen=>'white',
25	dpavlin	1.2	fill=> '#ffffff',
26	dpavlin	1.1	align=>'left');
27
28
29			#$image->Resize(geometry=>'125x15', filter=>'Lanczos', blur=>1.8);
30			#$image->GaussianBlur(radius=>1);
31			$image->Scale(geometry=>'50%');
32
33	dpavlin	1.3	$image->Draw(stroke=>'#cccccc', primitive=>'line', points=>'0,13 118,13', linewidth=>1);
34			$image->Draw(stroke=>'#cccccc', primitive=>'line', points=>'118,13 118,7', linewidth=>2);
35	dpavlin	1.1
36
37			if (0) {
38			$image->Annotate(text=>
39			geometry=>'+7+2',
40			font=>"\@/usr/local/ttfonts/arialbd.ttf",
41			pointsize=>10,
42			pen=>'white',
43			align=>'left');
44			}
45
46			print " -> ";
47
48	dpavlin	1.3	$image->Write(filename=>"gif:$dest_dir/$file.gif",
49	dpavlin	1.1	colors=>256,
50			interlace=>"none",
51			compress=>'lzw');
52
53			print "$file.gif\n";
54
55			return "$file.gif";
56
57			}
58
59			my $connect = "DBI:Pg:dbname=corp";
60
61			my $dbh = DBI->connect("$connect","","") \|\| die $DBI::errstr;
62			$sth = $dbh->prepare("select section,item,url from menu") \|\| die $dbh->errstr();
63			$sth->execute() \|\| die $sth->errstr();
64
65			while (@arr = $sth->fetchrow_array() ) {
66			$dbh->do("update menu set file='".dump_gif($arr[1])."' where item='$arr[1]'");
67			}