# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
+#use warnings; FIXME - Bug 2505
# standard or CPAN modules used
use IO::File;
if ($auth_status ne "ok") {
my $reply = CGI->new("");
print $reply->header(-type => 'text/html');
- print "{ progress: 0 }";
+ print '{"progress":"0"}';
exit 0;
}
my $reply = CGI->new("");
print $reply->header(-type => 'text/html');
# response will be sent back as JSON
-print "{ progress: $reported_progress }";
+print '{"progress":"' . $reported_progress . '"}';