achmad mardiansyah wrote:
kalo info dari server ya ngak bisa di share disini dunk!!
1. itu confidential
2. saya beranggapan bisa dilakukan dengan cara lain. makanya saya
pakai mesin testing.
di mesin testing ini ethernetnya ada 2.
so, kalo ada yang bisa menunjukan dengan benar posisi slot
ethernetnya, tanpa maen kayu,
ya berarti cara dia berhasil...
anggota milis ini ada yang jadi auditor IT ngak?
lumayan juga toh...
ada sebuah nilai tambah buat anda, bisa jadi bahan bagus untuk ke client.
hehehehe
coba perl script ini pak, di pc server jangrik saya bisa ngelist slot2
pci yg di tancepin ethernet card.
OS redhat
list pci device standar nya ada di /proc/bus/pci/
#!/usr/bin/perl
#
# dump_pirq 1.21 2001/09/05 02:59:31
#
# A utility to parse the BIOS PCI IRQ Routing Table
#
# Copyright (C) 2000 David A. Hinds -- dahi...@users.sourceforge.net
#
#-----------------------------------------------------------------------
sub dev {
my($devfn) = @_;
sprintf "%02x.%d", ($devfn>>3), ($devfn&7);
}
sub print_mask
{
my($mask) = @_;
printf "0x%04x [", $mask;
for (my $i = 0; $i < 16; $i++) {
next if (!($mask & (1<<$i)));
$mask &= ~(1<<$i);
print (($mask) ? "$i," : "$i");
}
print "]\n";
}
sub row {
my($tag, $link, $mask) = @_;
if ($link != 0) {
printf " INT$tag: link 0x%02x, irq mask ", $link;
print_mask($mask);
}
}
sub class_of
{
my($slot) = @_;
open(IN, "/sbin/lspci -s $slot |");
$_ = <IN>;
close(IN);
return (/^([[:xdigit:]]{4}:)*....... ([^:]+):/) ? $2 : "";
}
sub parse_pirq
{
my($buf) = @_;
my($p) = index($buf, "\$PIR");
my($minor,$major,$size,$rbus,$rdev,$mask,$cvd,$mini) =
unpack "CCSCCSLL", substr($buf, $p+4, 16);
printf "Interrupt routing table found at address 0xf%04x:\n", $p;
printf " Version $major.$minor, size 0x%04x\n", $size;
printf " Interrupt router is device %02x:%s\n", $rbus, dev($rdev);
print " PCI exclusive interrupt mask: ";
print_mask($mask);
if ($cvd) {
printf(" Compatible router: vendor 0x%04x device 0x%04x\n",
($cvd & 0xffff), ($cvd >> 16));
}
$ofs = 32;
while ($ofs < $size) {
# Parse a table entry describing a single PCI device
($bus, $devfn, $la, $ma, $lb, $mb, $lc, $mc, $ld, $md, $slot) =
unpack "CCCSCSCSCSC", substr($buf, $p+$ofs, 15);
$s = sprintf "%02x:%s", $bus, dev($devfn);
printf "\nDevice $s (slot $slot): %s\n", class_of($s);
row("A", $la, $ma); row("B", $lb, $mb);
row("C", $lc, $mc); row("D", $ld, $md);
push(@{$dev{$la}}, $s . "1");
push(@{$dev{$lb}}, $s . "2");
push(@{$dev{$lc}}, $s . "3");
push(@{$dev{$ld}}, $s . "4");
$ofs += 16;
}
return ($rbus, $rdev, $cvd);
}
#-----------------------------------------------------------------------
# The link values in the interrupt routing table are implementation
# dependent. Here, we'll try to interpret the link values for some
# known PCI bridge types.
%pIIx = (0x122e8086, "82371FB PIIX",
0x70008086, "82371SB PIIX3",
0x71108086, "82371AB PIIX4/PIIX4E",
0x71988086, "82443MX",
0x24108086, "82801AA ICH",
0x24208086, "82801AB ICH0",
0x24408086, "82801BA ICH2",
0x244c8086, "82801BAM ICH2-M");
%via = (0x05861106, "82C586",
0x05961106, "82C596",
0x06861106, "82C686");
%opti = (0xc7001045, "82C700");
%pico = (0x00021066, "PT86C523");
%ali = (0x153310b9, "Aladdin M1533");
%sis = (0x04961039, "85C496/497",
0x00081039, "85C503");
%cyrix = (0x01001078, "5530");
%all_routers = (%pIIx, %via, %opti, %pico, %ali, %sis, %cyrix);
sub outb
{
my($data,$port) = @_;
open(IO, ">/dev/port") || die;
sysseek(IO, $port, 0) || die;
my $x = pack "C", $data;
syswrite(IO, $x, 1);
close(IO);
}
sub inb
{
my($port) = @_;
my($data);
open(IO, "/dev/port") || die;
sysseek(IO, $port, 0) || die;
sysread(IO, $data, 1);
close(IO);
return unpack "C", $data;
}
sub dump_router
{
my($rbus, $rdev, $cvd) = @_;
my($buf, @p, $i, $irq);
printf "\nInterrupt router at %02x:%s: ", $rbus, dev($rdev);
$rf = sprintf "/proc/bus/pci/%02x/%s", $rbus, dev($rdev);
open(IN, $rf);
if (sysread(IN, $buf, 0x100) != 0x100) {
print "\nCould not read router info from $rf.\n";
exit;
}
close(IN);
my $vd = unpack "L", substr($buf, 0, 4);
if ((defined $pIIx{$vd}) || (defined $pIIx{$cvd})) {
$name = (defined $pIIx{$vd}) ? $pIIx{$vd} : $pIIx{$cvd};
printf "Intel $name PCI-to-ISA bridge\n";
@p = unpack "CCCCC", substr($buf, 0x60, 5);
for ($i = 0; $i < 4; $i++) {
printf " PIRQ%d (link 0x%02x): ", $i+1, 0x60+$i;
print (($p[$i] < 16) ? "irq $p[$i]\n" : "unrouted\n");
}
print " Serial IRQ:";
print (($p[4] & 0x80) ? " [enabled]" : " [disabled]");
print (($p[4] & 0x40) ? " [continuous]" : " [quiet]");
print " [frame=", (($p[4] >> 2) & 15) + 17, "]";
print " [pulse=", (($p[4] & 3) * 4 + 4), "]\n";
print " Level mask: "; print_mask((inb(0x4d1)<<8) + inb(0x4d0));
} elsif ((defined $via{$vd}) || (defined $via{$cvd})) {
$name = (defined $via{$vd}) ? $via{$vd} : $via{$cvd};
printf "VIA $name PCI-to-ISA bridge\n";
$p = unpack "L", substr($buf, 0x55, 4);
%tag = (1, "A", 2, "B", 3, "C", 5, "D");
foreach $link (1,2,3,5) {
$irq = ($p >> ($link * 4)) & 15;
print " PIRQ$tag{$link} (link 0x0$link): ";
print ($irq ? "irq $irq\n" : "unrouted\n");
}
} elsif ((defined $opti{$vd}) || (defined $opti{$cvd})) {
$name = (defined $opti{$vd}) ? $opti{$vd} : $opti{$cvd};
printf "OPTi $name PCI-to-ISA bridge\n";
$p = unpack "S", substr($buf, 0xb8, 2);
for ($i = 0; $i < 4; $i++) {
$irq = ($p >> ($i * 4)) & 15;
printf " PCIRQ$i (link 0x%02x): ", ($i<<4)+0x02;
print ($irq ? "irq $irq\n" : "unrouted\n");
}
} elsif ((defined $pico{$vd} || defined $pico{$cvd})) {
$name = (defined $pico{$vd}) ? $pico{$vd} : $pico{$cvd};
printf "PicoPower $name PCI-to-ISA bridge\n";
outb(0x10, 0x24); $p = inb(0x26);
outb(0x11, 0x24); $p += inb(0x26)<<8;
@tag = ("A", "B", "C", "D");
for ($i = 0; $i < 4; $i++) {
$irq = ($p >> ($i * 4)) & 15;
print " INT$tag[$i] (link 0x0", $i+1, "): ";
print ($irq ? "irq $irq\n" : "unrouted\n");
}
} elsif ((defined $ali{$vd} || defined $ali{$cvd})) {
$name = (defined $ali{$vd}) ? $ali{$vd} : $ali{$cvd};
printf "AcerLabs $name PCI-to-ISA bridge\n";
$p = unpack "L", substr($buf, 0x48, 4);
# This mapping is insane!
@map = (0, 9, 3, 10, 4, 5, 7, 6, 1, 11, 0, 12, 0, 14, 0, 15);
for ($i = 0; $i < 8; $i++) {
$irq = ($p >> ($i*4)) & 15;
print " INT", $i+1, " (link ", $i+1, "): ";
print ($map[$irq] ? "irq $map[$irq]\n" : "unrouted\n");
}
$s = unpack "C", substr($buf, 0x70, 1);
print " Serial IRQ:";
print (($s & 0x80) ? " [enabled]" : " [disabled]");
print (($s & 0x40) ? " [continuous]" : " [quiet]");
print " [frame=", (($s >> 2) & 15) + 17, "]";
print " [pulse=", (($s & 3) * 4 + 4), "]\n";
} elsif ((defined $sis{$vd}) || (defined $sis{$cvd})) {
$name = (defined $sis{$vd}) ? $sis{$vd} : $sis{$cvd};
printf "SiS $name PCI-to-ISA bridge\n";
$base = ($name eq "85C496/497") ? 0xc0 : 0x41;
@p = unpack "CCCC", substr($buf, $base, 4);
@tag = ("A", "B", "C", "D");
for ($i = 0; $i < 4; $i++) {
$irq = ($p[$i] & 0x80) ? 0 : ($p[$i] & 0x0f);
printf " INT$tag[$i] (link 0x%02x): ", $i+$base;
print ($irq ? "irq $irq\n" : "unrouted\n");
}
} elsif ((defined $cyrix{$vd}) || (defined $cyrix{$cvd})) {
$name = (defined $cyrix{$vd}) ? $cyrix{$vd} : $cyrix{$cvd};
printf "CYRIX $name PCI-to-ISA bridge\n";
$p = unpack "S", substr($buf, 0x5c, 2);
%tag = ("A", "B", "C", "D");
for ($i = 0; $i < 4; $i++) {
$irq = ($p >> ($i * 4)) & 15;
printf " PIRQ$tag{$i} (link 0x%02x): ", $i+1;
print ($irq ? "irq $irq\n" : "unrouted\n");
}
print " Level mask: "; print_mask((inb(0x4d1)<<8) + inb(0x4d0));
} else {
printf("unknown vendor 0x%04x device 0x%04x\n",
($vd & 0xffff), ($vd >> 16));
foreach $k (sort keys %dev) {
next if ($k == 0);
printf " PIRQ? (link 0x%02x): ", $k;
$irq = 0;
foreach $d (@{$dev{$k}}) {
$d =~ /(..):(..)\..(.)/;
($bus,$dev,$pin) = ($1,$2,$3);
for ($fn = 0; $fn < 8; $fn++) {
open(IN, "/proc/bus/pci/$bus/$dev.$fn") || last;
sysread(IN, $buf, 0x100);
close(IN);
($i,$p) = unpack "CC", substr($buf, 0x3c, 2);
$irq = $i if (($p == $pin) && $i && ($i != 255));
}
}
print ($irq ? "irq $irq\n" : "unrouted?\n");
}
}
}
#-----------------------------------------------------------------------
# Grab the BIOS from 0xf0000-0xfffff
open(IN, "/dev/mem") || die "cannot open /dev/mem\n";
sysseek(IN, 0xf0000, 0) || die;
die if (sysread(IN, $buf, 0x10000) != 0x10000);
close(IN);
if (index($buf, "\$PIR") >= 0) {
# Dump the PIRQ table, and the router information
($rbus, $rdev, $cvd) = parse_pirq($buf);
dump_router($rbus, $rdev, $cvd);
} else {
# Scan for any interrupt router device we recognize
print "No PCI interrupt routing table was found.\n";
open(DEV, "/proc/bus/pci/devices");
while (<DEV>) {
($rbus,$rdev,$vd) = /^(..)(..)\s+(........)/;
$rbus = hex($rbus); $rdev = hex($rdev); $vd = hex($vd);
$vd = (($vd & 0xffff0000) >> 16) | (($vd & 0xffff) << 16);
if (defined $all_routers{$vd}) {
dump_router($rbus, $rdev, $vd);
$nr++;
}
}
print "\nNo known PCI interrupt routers were found.\n" if (!$nr);
}
contoh:
# ./dump_pirq
Interrupt routing table found at address 0xfdf30:
Version 1.0, size 0x00b0
Interrupt router is device 00:07.0
PCI exclusive interrupt mask: 0x0000 []
Compatible router: vendor 0x8086 device 0x122e
Device 00:0d.0 (slot 1): VGA compatible controller
INTA: link 0x60, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTB: link 0x61, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTC: link 0x62, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTD: link 0x63, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
Device 00:0e.0 (slot 2): Ethernet controller
INTA: link 0x61, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTB: link 0x62, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTC: link 0x63, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTD: link 0x60, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
Device 00:0f.0 (slot 3): Ethernet controller
INTA: link 0x62, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTB: link 0x63, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTC: link 0x60, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTD: link 0x61, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
Device 00:10.0 (slot 4):
INTA: link 0x63, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTB: link 0x60, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTC: link 0x61, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
INTD: link 0x62, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
Device 00:0c.0 (slot 0):
INTA: link 0x62, irq mask 0xdeb8 [3,4,5,7,9,10,11,12,14,15]
Device 00:00.0 (slot 0): Host bridge
INTA: link 0x60, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
INTB: link 0x61, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
INTC: link 0x62, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
INTD: link 0x63, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
Device 00:07.0 (slot 0): ISA bridge
INTA: link 0x60, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
INTB: link 0x61, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
INTC: link 0x62, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
INTD: link 0x63, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
Device 00:01.0 (slot 0): PCI bridge
INTA: link 0x60, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
INTB: link 0x61, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
INTC: link 0x62, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
INTD: link 0x63, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
Device 01:00.0 (slot 0):
INTA: link 0x60, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
INTB: link 0x61, irq mask 0xdef8 [3,4,5,6,7,9,10,11,12,14,15]
Interrupt router at 00:07.0: Intel 82371AB PIIX4/PIIX4E PCI-to-ISA bridge
PIRQ1 (link 0x60): irq 11
PIRQ2 (link 0x61): irq 10
PIRQ3 (link 0x62): irq 5
PIRQ4 (link 0x63): irq 9
Serial IRQ: [enabled] [continuous] [frame=21] [pulse=4]
Level mask: 0x0e20 [5,9,10,11]
PT.CITRA SARI MAKMUR
SATELLITE & TERRESTRIAL NETWORK
Connecting the distance - anytime, anywhere, any content
http://www.csmcom.com
http://mail.csmcom.com
--
FAQ milis di http://wiki.linux.or.id/FAQ_milis_tanya-jawab
Unsubscribe: kirim email ke tanya-jawab-unsubscr...@linux.or.id
Arsip dan info milis selengkapnya di http://linux.or.id/milis
