File: save.pl

package info (click to toggle)
libgd-graph-perl 1.33-4
  • links: PTS
  • area: main
  • in suites: woody
  • size: 480 kB
  • ctags: 188
  • sloc: perl: 3,677; makefile: 83
file content (16 lines) | stat: -rw-r--r-- 290 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
sub save_chart
{
	my $chart = shift or die "Need a chart!";
	my $name = shift or die "Need a name!";
	local(*OUT);

	my $ext = $chart->export_format;

	open(OUT, ">$name.$ext") or 
		die "Cannot open $name.$ext for write: $!";
	binmode OUT;
	print OUT $chart->gd->$ext();
	close OUT;
}

1;