Term-Menus

 view release on metacpan or  search on metacpan

lib/Term/Menus.pm  view on Meta::CPAN

               my $f=$fpath;
               if (-e $f.'/Net/FullAuto.pm') {
                  $INC{'Net/FullAuto.pm'}=$f.'/Net/FullAuto.pm';
                  last;
               }
            }
         }
         my $fa_path=$INC{'Net/FullAuto.pm'};
         my $progname=substr($0,(rindex $0,'/')+1,-3);
         substr($fa_path,-3)='';
         my $username=getlogin || getpwuid($<);
         if (-f $fa_path.'/fa_global.pm') {
            if (-r $fa_path.'/fa_global.pm') {
               {
                  no strict 'subs';
                  require $fa_path.'/fa_global.pm';
                  $fa_global::berkeley_db_path||='';
                  $fa_global::FA_Sudo||={};
                  if (exists $fa_global::FA_Sudo->{$username}) {
                     $username=$fa_global::FA_Sudo->{$username};
                  }

lib/Term/Menus.pm  view on Meta::CPAN

                           $std = BerkeleyDB::Btree->new(
                              -Filename => "${progname}_sets.db",
                              -Flags    => DB_CREATE|DB_RECOVER_FATAL,
                              -Env      => $stenv
                           );
                           unless ($BerkeleyDB::Error=~/Successful/) {
                              die "Cannot Open DB ${progname}_sets.db:".
                                  " $BerkeleyDB::Error\n";
                           }
                        }
                        #my $username=getlogin || getpwuid($<);
                        my $set='';
                        my $status=$std->db_get(
                              $username,$set);
                        $set||='';
                        $set=~s/\$HASH\d*\s*=\s*//s
                           if -1<index $set,'$HASH';
                        $set=eval $set;
                        $set||={};
                        undef $std;
                        $stenv->close();

lib/Term/Menus.pm  view on Meta::CPAN

                        $std = BerkeleyDB::Btree->new(
                           -Filename => "${progname}_sets.db",
                           -Flags    => DB_CREATE|DB_RECOVER_FATAL,
                           -Env      => $stenv
                        );
                        unless ($BerkeleyDB::Error=~/Successful/) {
                           die "Cannot Open DB ${progname}_sets.db:".
                               " $BerkeleyDB::Error\n";
                        }
                     }
                     #my $username=getlogin || getpwuid($<);
                     my $set='';
                     my $status=$std->db_get(
                           $username,$set);
                     $set||='';
                     $set=~s/\$HASH\d*\s*=\s*//s
                        if -1<index $set,'$HASH';
                     $set=eval $set;
                     $set||={};
                     undef $std;
                     $stenv->close();

lib/Term/Menus.pm  view on Meta::CPAN

         } elsif ($ikey eq 'HOME') {
            $FullMenu->{$MenuUnit_hash_ref}[11]=0;
            $MenuUnit_hash_ref->{Scroll}->[1]=1 if
               $MenuUnit_hash_ref->{Scroll} &&
               $MenuUnit_hash_ref->{Scroll}; 
            $hidedefaults=0;
            $start=0;
            last;
         } elsif ($numbor && unpack('a1',$numbor) eq '!') {
            # SHELLOUT shellout
            my $username=getlogin || getpwuid($<);
            my $cmd=unpack('x1 a*',$numbor);
            print "\n";
            unless ($^O eq 'cygwin') {
               system("su -l -c$cmd $username");
            } else {
               system($cmd);
            }
            print "\nPress ENTER to continue";<STDIN>;
            next;
         } elsif (((!$ikey || $ikey eq 'ENTER') &&