resetadmin.2812.pl
Copying Source is Forbidden
72 lines of code
1
#!/usr/bin/perl
2
3
($<,$>) = (getpwnam('nobody'), getpwnam('nobody')) or die $!;
4
5
binmode(STDIN, ":utf8");
6
binmode(STDOUT, ":utf8");
7
8
# must have's!
9
use strict;
10
use warnings;
11
use CGI::Carp qw(fatalsToBrowser);
12
use DBI;
13
use URI::Escape;
14
15
use lib "/var/www/html/Pm";
16
17
#######################################
18
# add your own USE statements here
19
20
use Bc_misc qw(get_param referrer get_params_asHash);
21
use Bc_sql qw(sql_db_user_reset);
22
23
# end of your USE statements
24
#######################################
25
26
my $DEBUG = 1;
27
my $DEBUG_STR = "";
28
29
my %params = get_params_asHash();
30
31
my $output;
32
33
############################################################
34
### YOUR CONTENT HERE
35
$output = "content-type: text/plain\n\n";
36
37
if ($DEBUG) {
38
$output .= "DEBUGGING ENABLED\n";
39
if (keys %params) {
40
$output .= " Params Found:\n";
41
foreach my $key (sort keys %params) {
42
$params{$key} =~ s/^ *//;
43
$params{$key} =~ s/ *$//;
44
$DEBUG_STR .= " $key = $params{$key}\n";
45
}
46
} else {
47
$DEBUG_STR .= " No Params Given! (this is not always bad)\n";
48
}
49
50
if ($params{test}) {
51
if (!$params{everyone}) {
52
$output .= sql_db_user_reset(1, 1);
53
} else {
54
$output .= sql_db_user_reset(0, 1);
55
}
56
} else {
57
if (!$params{everyone}) {
58
sql_db_user_reset(1);
59
} else {
60
sql_db_user_reset();
61
}
62
}
63
64
$output .= $DEBUG_STR;
65
}
66
67
### END YOUR CONTENT
68
############################################################
69
70
print $output;
71
72
exit 1;