Package: graphdefang
Version: 2.75-1
Severity: important
Tags: patch

Dear Maintainer,

Trying to use graphdefang.cgi from browser gives error message:
Undefined subroutine &main::startform called at 
/usr/lib/cgi-bin/graphdefang.cgi line 116.

According to http://perldoc.perl.org/CGI.html startform()/endform() are
now called start_form()/end_form()

I tried just to change this and it works after that.
Including a small patch to show what I did to make it work

-- System Information:
Debian Release: 8.2
  APT prefers stable-updates
  APT policy: (500, 'stable-updates'), (500, 'stable')
Architecture: i386 (i686)

Kernel: Linux 3.16.0-4-686-pae (SMP w/2 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Init: systemd (via /run/systemd/system)

Versions of packages graphdefang depends on:
ii  libfile-readbackwards-perl  1.05-1
ii  libgd-graph-perl            1.48-2
ii  libgd-text-perl             0.86-9
ii  libmldbm-perl               2.05-1
ii  libtimedate-perl            2.3000-2
ii  perl [libstorable-perl]     5.20.2-3+deb8u1

Versions of packages graphdefang recommends:
ii  php5  5.6.13+dfsg-0+deb8u1

Versions of packages graphdefang suggests:
ii  mimedefang  2.75-1

-- Configuration Files:
/etc/graphdefang/graphdefang-config changed [not included]

-- no debconf information

/Andreas
--- /usr/lib/cgi-bin/graphdefang.cgi~	2014-10-13 15:47:58.000000000 +0200
+++ /usr/lib/cgi-bin/graphdefang.cgi	2015-09-20 17:16:42.393846554 +0200
@@ -113,7 +113,7 @@
 		     -expires=>'now');
 	print start_html(-title=>'GraphDefang CGI Interface');
 	print h2('Select graph attributes and click the Submit button');
-	print startform();
+	print start_form();
 	print "<table border=1 cellspacing=0 cellpadding=5>\n";
 	print "  <tr>\n";
 	print "    <th>Data Types</th>\n";
@@ -198,7 +198,7 @@
 	print "<p>\n";
 	print submit(-value=>'Submit');
 	print hidden(-name=>'submit', 'default'=>['1']);
-	print endform();
+	print end_form();
 	print "<img src=./graphdefang.cgi?cmd=get-image;" . query_string() . ">\n" if (param('submit') && !$error);
 	if ($error) {
 		print "$error";

Reply via email to