#!/usr/bin/perl # Show a QR code based on parameters use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; $main::no_acl_check = 1; require './webmin-lib.pl'; our (%in, %text, %gconfig, %config); &ReadParse(); &error_setup($text{'qr_err'}); $in{'str'} || &error($text{'qr_estr'}); my ($img, $mime) = &generate_qr_code($in{'str'}, $in{'size'}); $img || &error($mime); &PrintHeader(undef, $mime); print $img;