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