← Back
Editing: save_vars.cgi
#!/usr/bin/perl # Either return to the list_vars.cgi page with new variables for editing, # or save those that were edited require './mysql-lib.pl'; $access{'perms'} == 1 || &error($text{'vars_ecannot'}); &ReadParse(); @d = split(/\0/, $in{'d'}); if ($in{'save'} || !@d) { # Update edited $count = 0; foreach $v (keys %in) { if ($v =~ /^value_([A-Za-z0-9_]+)$/) { &execute_sql_logged($master_db, "set global $1 = ?", $in{$v}); $first ||= $1; $count++; } } &webmin_log("set", undef, $count); &redirect("list_vars.cgi?search=".&urlize($in{'search'})."#$first"); } else { # Return to list page, but in edit mode &redirect("list_vars.cgi?search=".&urlize($in{'search'})."&". join("&", map { "d=".&urlize($_) } @d). "#".$d[0]); }
Save File
Cancel