← Back
Editing: save_auth.cgi
#!/usr/bin/perl # save_auth.cgi # Save authentication settings require './heartbeat-lib.pl'; &ReadParse(); &error_setup($text{'auth_err'}); $conf = &get_auth_config(); $conf->{'auth'} = [ $in{'auth'} ]; $i = 1; foreach $k ('crc', 'sha1', 'md5') { if ($k eq 'crc') { $conf->{$i} = [ $k ]; } else { $in{'auth'} != $i || $in{$k} =~ /^\S+$/ || &error($text{"auth_e$k"}); $conf->{$i} = [ $k, $in{$k} ]; } $i++; } &save_auth_config($conf); &redirect("");
Save File
Cancel