1#!/usr/local/bin/perl 2# move.cgi 3# Move a PAM module line up or down 4 5require './pam-lib.pl'; 6&ReadParse(); 7@pams = &get_pam_config(); 8$pam = $pams[$in{'idx'}]; 9 10&lock_file($pam->{'file'}); 11$swap1 = $pam->{'mods'}->[$in{'midx'}]; 12$i = $in{'midx'}; 13do { 14 $i += $in{'up'} ? -1 : 1; 15 $swap2 = $pam->{'mods'}->[$i]; 16 } while($swap2->{'type'} ne $swap1->{'type'}); 17&swap_modules($pam->{'name'}, $swap1, $swap2); 18&unlock_file($pam->{'file'}); 19&webmin_log("move", "mod", $pam->{'name'}, { '1' => $swap1->{'module'}, 20 '2' => $swap2->{'module'} }); 21&redirect("edit_pam.cgi?idx=$in{'idx'}"); 22 23