⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.133
Server IP:
185.119.109.197
Server:
Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
usermin
/
mailbox
/
View File Name :
list_addresses.cgi
#!/usr/bin/perl # Display contents of the user's address book, and allowed and denied addresses use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; our (%text, %in, %config, %userconfig); require './mailbox-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'address_title'}, ""); # Build tabs my $prog = "list_addresses.cgi?mode="; my @tabs = ( [ "users", $text{'address_users'}, $prog."users" ], [ "groups", $text{'address_groups'}, $prog."groups" ] ); if (&foreign_installed("spam")) { if (!$userconfig{'white_rec'}) { push(@tabs, [ "allow", $text{'address_allow'}, $prog."allow" ]); } push(@tabs, [ "deny", $text{'address_deny'}, $prog."deny" ]); } push(@tabs, [ "import", $text{'address_import'}, $prog."import" ]); push(@tabs, [ "export", $text{'address_export'}, $prog."export" ]); # Start tabs for users and groups, and maybe spam addresses print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || "users", 1); print &ui_tabs_start_tab("mode", "users"); my @addrs = &list_addresses(); print "$text{'address_desc'}<p>\n"; if (@addrs || $in{'add'}) { if ($in{'add'} || $in{'edit'} ne '') { print "<form action=save_address.cgi>\n"; print "<input type=hidden name=add value='$in{'add'}'>\n"; print "<input type=hidden name=edit value='$in{'edit'}'>\n"; } print "<table width=100%>\n"; print "<tr> <td colspan=2 width=10%></td> ", "<td width=40%><b>$text{'address_addr'}</b></td> ", "<td width=40%><b>$text{'address_name'}</b></td> ", $config{'edit_from'} ? "<td width=10% nowrap><b>$text{'address_from'}</b></td> " : "", "</tr>\n"; foreach my $a (@addrs) { next if (!defined($a->[2])); print "<tr> <td width=5%>\n"; if ($in{'edit'} ne $a->[2]) { print "<a href='list_addresses.cgi?", "mode=users&edit=$a->[2]#editing'>", "$text{'address_edit'}</a>\n"; } else { print "<a href=list_addresses.cgi?mode=users>", "$text{'cancel'}</a>\n"; } print "</td> <td width=5%>\n"; print "<a href='save_address.cgi?delete=$a->[2]'>", "$text{'address_delete'}</a></td>\n"; if ($in{'edit'} eq $a->[2]) { # Editing this row print "<td width=40%><input name=addr size=30 value='", &html_escape($a->[0]),"'><a name=editing></td>\n"; print "<td width=40%><input name=name size=30 value='", &html_escape($a->[1]),"'></td>\n"; if ($config{'edit_from'}) { &from_sel($a->[3]); } else { print "<input type=hidden name=from value='$a->[3]'>\n"; } print "<td><input type=submit value='$text{'save'}'></td>\n"; } else { # Just showing this row print "<td width=40%>$a->[0]</td>\n"; print "<td width=40%>",$a->[1] ? &html_escape($a->[1]) : "<br>","</td>\n"; print "<td>",$a->[3] == 1 ? $text{'yes'} : $a->[3] == 2 ? $text{'address_yd'} : $text{'no'},"</td>\n" if ($config{'edit_from'}); } print "</tr>\n"; } if ($in{'add'}) { print "<tr> <td width=5%><a href='list_addresses.cgi?", "mode=users'>$text{'cancel'}</a></td>\n"; print "<td width=5%><a name=adding></td>\n"; print "<td width=40%><input name=addr size=30></td>\n"; print "<td width=40%><input name=name size=30></td>\n"; &from_sel() if ($config{'edit_from'}); print "<td><input type=submit value='$text{'save'}'></td>\n"; print "</tr>\n"; } print "</table>\n"; if ($in{'add'} || $in{'edit'} ne '') { print "</form>\n"; } } else { print "<b>$text{'address_none'}</b> <p>\n"; } print "<a href='list_addresses.cgi?mode=users&add=1#adding'>", "$text{'address_add'}</a> \n" if (!$in{'add'}); print &ui_tabs_end_tab(); print &ui_tabs_start_tab("mode", "groups"); my @gaddrs = grep { defined($_->[2]) } &list_address_groups(); print "$text{'address_gdesc'}<p>\n"; if (@gaddrs || $in{'gadd'}) { if ($in{'gadd'} || $in{'gedit'} ne '') { print "<form action=save_group.cgi ", "method=post enctype=multipart/form-data>\n"; print "<input type=hidden name=gadd value='$in{'gadd'}'>\n"; print "<input type=hidden name=gedit value='$in{'gedit'}'>\n"; } print "<table width=100%>\n"; print "<tr> <td colspan=2 width=10%></td> ", "<td width=20%><b>$text{'address_group'}</b></td> ", "<td width=70%><b>$text{'address_members'}</b></td> ", "</tr>\n"; foreach my $a (@gaddrs) { print "<tr> <td width=5% valign=top>\n"; if ($in{'gedit'} ne $a->[2]) { print "<a href='list_addresses.cgi?mode=groups&", "gedit=$a->[2]#editing'>", "$text{'address_edit'}</a>\n"; } else { print "<a href=list_addresses.cgi?mode=groups>", "$text{'cancel'}</a>\n"; } print "</td> <td width=5% valign=top>\n"; print "<a href='save_group.cgi?gdelete=$a->[2]'>", "$text{'address_delete'}</a></td>\n"; if ($in{'gedit'} eq $a->[2]) { # Editing a group print "<td width=20% valign=top>", &ui_textbox("group", $a->[0], 20),"</td>\n"; print "<td width=70% valign=top>", &ui_textarea("members", $a->[1], 5, 60), " ",&address_button("members", 0, 0, 0, 1)," ", &ui_submit($text{'save'}),"</td>\n"; } else { # Just show group print "<td width=20% valign=top>", &html_escape($a->[0]),"</td>\n"; print "<td width=70% valign=top>", &html_escape($a->[1]),"</td>\n"; } print "</tr>\n"; } if ($in{'gadd'}) { # Adding a group print "<tr> <td width=5% valign=top>", "<a href='list_addresses.cgi?mode=groups'>", "$text{'cancel'}</a></td>\n"; print "<td width=5% valign=top><a name=adding></td>\n"; print "<td width=20% valign=top>", &ui_textbox("group", undef, 20), "</td>\n"; print "<td width=70% valign=top>", &ui_textarea("members", undef, 5, 60), " ",&address_button("members", 0, 0, 0, 1)," ", &ui_submit($text{'save'}),"</td>\n"; print "</tr>\n"; } print "</table>\n"; if ($in{'gadd'} || $in{'gedit'} ne '') { print "</form>\n"; } } else { print "<b>$text{'address_gnone'}</b> <p>\n"; } print "<a href='list_addresses.cgi?mode=groups&gadd=1#adding'>", "$text{'address_gadd'}</a> \n" if (!$in{'gadd'}); print &ui_tabs_end_tab(); # Show allowed / denied addresses tabs if (&foreign_installed("spam")) { &foreign_require("spam", "spam-lib.pl"); my $conf = &spam::get_config(); foreach my $m ($userconfig{'white_rec'} ? ( ) : ( [ "allow", "whitelist_from" ] ), [ "deny", "blacklist_from" ]) { my ($mode, $opt) = @$m; print &ui_tabs_start_tab("mode", $mode); print $text{'address_'.$mode.'desc'},"<p>\n"; print &ui_form_start("save_allow.cgi", "post"); print &ui_hidden("mode", $mode); @addrs = map { @{$_->{'words'}} } &spam::find($opt, $conf); print &ui_textarea("addrs", join("\n", @addrs)."\n", 20, 80, undef, 0, "style='width:90%'"); print &ui_form_end([ [ undef, $text{'save'} ] ]); print &ui_tabs_end_tab(); } } # Show import tab print &ui_tabs_start_tab("mode", "import"); print $text{'address_importdesc'},"<p>\n"; print &ui_form_start("import.cgi", "form-data"); print &ui_table_start(undef, undef, 2); # Import source print &ui_table_row($text{'address_importsrc'}, &ui_radio_table("src", 0, [ [ 0, $text{'address_importsrc0'}, &ui_upload("upload") ], [ 1, $text{'address_importsrc1'}, &ui_textarea("paste", undef, 5, 60) ] ])."<br>\n". $text{'address_importformat'}); # Import format print &ui_table_row($text{'address_importfmt'}, &ui_radio("fmt", "csv", [ [ 'csv', $text{'address_importcsv'} ], [ 'vcard', $text{'address_importvcard'} ] ])); # Duplicate handling print &ui_table_row($text{'address_importdup'}, &ui_radio("dup", 0, [ [ 0, $text{'address_importdup0'} ], [ 1, $text{'address_importdup1'} ] ])); print &ui_table_end(); print &ui_form_end([ [ undef, $text{'address_importok'} ] ]); print &ui_tabs_end_tab(); # Show export tab print &ui_tabs_start_tab("mode", "export"); print $text{'address_exportdesc'},"<p>\n"; print &ui_form_start("export.cgi"); print &ui_table_start(undef, undef, 2); # Import format print &ui_table_row($text{'address_exportfmt'}, &ui_radio("fmt", "csv", [ [ 'csv', $text{'address_importcsv'} ], [ 'vcard', $text{'address_importvcard'} ] ])); # Duplicate handling print &ui_table_row($text{'address_exportdup'}, &ui_radio("dup", 0, [ [ 0, $text{'address_exportdup0'} ], [ 1, $text{'address_exportdup1'} ] ])); print &ui_table_end(); print &ui_form_end([ [ undef, $text{'address_exportok'} ] ]); print &ui_tabs_end_tab(); print &ui_tabs_end(1); &ui_print_footer("", $text{'mail_return'}); sub from_sel { my ($f) = @_; print "<td>".&ui_select("from", $f, [ [ 0, $text{'no'} ], [ 1, $text{'yes'} ], [ 2, $text{'address_yd'} ] ])."</td>\n"; }