File: trust-input.pl

package info (click to toggle)
libui-dialog-perl 1.21-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 808 kB
  • sloc: perl: 7,403; makefile: 2
file content (20 lines) | stat: -rw-r--r-- 462 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use UI::Dialog;

my $d = new UI::Dialog
  ( order => ["whiptail"],
    height => 20, listheight => 5, debug => 1,
  );
my @items =
 ( 1, 'Running `uname -o`',
   2, 'Running $(uname -o)'
 );
$d->menu
  ( text=>"The following menu items allow for commands in strings.",
    list=>\@items,
    'trust-input' => 1
  );
$d->menu
  ( text=>"The following menu items DO NOT allow for commands in strings. (Default behaviour.)",
    list=>\@items,
  );