corp/pics/menu.pl

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

use Image::Magick;
use DBI;

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