Awan Kusuma wrote:
> saya ingin merubah tanggal dan jam sistem server saya.
> Tapi saya bingung dengan man date nya.
Pakai script di bawah saja (itu diambil dari man page-nya perl).
Cari server ISP yang punya port 13, lalu ganti "hostname" di bawah itu
jadi nama mesinnya (+domain) dari ISP.
BTW, ada beberapa problem sih... kalau dijalankan via bash (tanpa X),
langsung saja jam mesin dirubah. Tapi kalau pakai X, setelah menjalankan
script tersebut, screensaver langsung jalan (jadi mesti login). Juga,
dijadikan start-up script, ada problem, katanya networknya belum up,
padahal, sudah dikasih nomor 99 buat startnya.
Oki
okidz@okidz:~$ more /etc/init.d/setime.pl
#!/usr/bin/perl -w
use strict;
use Socket;
my ($remote,$port, $iaddr, $paddr, $proto, $line);
$remote = shift || 'hostname';
$port = shift || 13; # random port
if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') } die "No port"
unless $port;
$iaddr = inet_aton($remote) || die "no host:$remote";
$paddr = sockaddr_in($port, $iaddr);
$proto = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
connect(SOCK, $paddr) || die "connect: $!";
while (defined($line = <SOCK>)) {
`date -s \"$line\"`;
}
close (SOCK) || die "close: $!";
exit;
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
