This commit was manufactured by cvs2svn to create branch 'original'.

original
(no author) 24 years ago
parent 5a0f22cf64
commit d0bd0e452e

@ -0,0 +1 @@
-I .

@ -0,0 +1,19 @@
PAGESHTML=$(shell ls *.wml | grep -v template | sed 's/.wml/.html/' )
DEST=bortz@echoping.sourceforge.net:/home/groups/echoping/htdocs
all: test
%.html: %.wml template.wml
wml -o $@ ${DEBUG} $<
test: ${PAGESHTML}
@for page in ${PAGESHTML}; do \
(nsgmls -s $$page) \
done
install: ${PAGESHTML}
cvs commit
scp -v ${PAGESHTML} ${DEST}
clean:
rm -f ${PAGESHTML}

@ -0,0 +1,76 @@
#use wml::template Title="echoping Home Page"
<!-- $Id$ -->
<P>"echoping" is a small program to test (approximatively) performances of a
remote host by sending it TCP "echo" (or other protocol) packets.
<P>To install it, see the INSTALL file. Or type "make" if you're in a
hurry :-) <A HREF="ftp://ftp.internatif.org/pub/unix/echoping">Download</A>, if you wish.
<P>To use it, simply:
<PRE>
% echoping machine.somewhere.org
</PRE>
<P>or use the options before the machine name (see the man page).
<P>See the DETAILS file for various traps when benchmarking networks,
specially with this program
<P>In any case, be polite: don't bother the remote host with many repeated
requests, especially with large size. Ask for permission if you often
test hosts which aren't yours.
<P>Current features:
<UL>
<LI>uses the protocols echo, discard, chargen or HTTP,
<LI>uses UDP instead of TCP for the protocols which accept it (like echo),
<LI>can repeat the test and display various measures about it,
<LI>can use T/TCP on systems which support it.
</UL>
<P>Examples of output:
<OL>
<LI>(Simple test with 1000 bytes echo TCP packets)
<PRE>
% echoping -v -s 1000 mycisco
This is echoping, version 2.0.
Trying to connect to internet address 10.99.64.1 to transmit 256 bytes...
Connected...
Sent (1000 bytes)...
Checked
Elapsed time: 0.059597 seconds
</PRE>
<LI>(Repeated tests with average and median displayed.)
<PRE>
% echoping -n 10 mymachine
[...]
Minimum time: 0.170719 seconds (1500 bytes per sec.)
Maximum time: 0.211176 seconds (1212 bytes per sec.)
Average time: 0.184577 seconds (1387 bytes per sec.)
Median time: 0.181332 seconds (1412 bytes per sec.)
</PRE>
<LI>(Testing a Web server with an HTTP request for its home page.)
<PRE>
% echoping -h / mywww
Elapsed time: 0.686792 seconds
</PRE>
</OL>
<P>(The exit status is set if there is any problem, so you can use echoping
to test repeatedly a Web server, to be sure it runs fine.)
<P>To do for a future version:
<UL>
<LI>display other calculations such as standard deviation
<LI>fix the bugs (everlasting aim)
</UL>

@ -0,0 +1,82 @@
#use wml::std::info
<define-tag warningwml>
<!-- MADE BY A PROGRAM (WML $(WML_VERSION))!
And maintained by CVS.
DO NOT EDIT!
The reference file is $(WML_SRC_DIRNAME)/$(WML_SRC_FILENAME)
-->
</define-tag>
<define-tag miscmeta>
<LINK REV="made" HREF="mailto:bortz@users.sourceforge.net">
<info style=meta>
</define-tag>
<define-tag lastmodif>
Last update done on
<:
($device, $inode, $mode, $nlink, $uid, $gid, $rdev,
$size,
$access_time, $modif_time, $creat_time,
$block_size, $blocks)
= stat ($WML_SRC_FILENAME);
print &time2string($modif_time, 1);
:>
<FONT SIZE=-1>(last regeneration by
<A HREF="http://www.engelschall.com/sw/wml/">WML</A> $(WML_VERSION) on <:
print &time2string(time(), 1);
:>)</FONT>.
</define-tag>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<warningwml>
<HTML>
<HEAD>
<TITLE>$(Title)</TITLE>
<miscmeta>
</HEAD>
<BODY BGCOLOR="#ffffff" VLINK="#003399" LINK="#0033ff" TEXT="#000000">
<H1>$(Title)</H1>
<<Body>>
<HR>
<A href="http://sourceforge.net">
<IMG src="http://sourceforge.net/sflogo.php?group_id=0&amp;type=1"
width="88" height="31" border="0" alt="SourceForge Logo"></A><BR>
<SMALL>
<STRONG>echoping</STRONG> is managed by St&eacute;phane Bortzmeyer
<code>&lt;bortz@users.sourceforge.net&gt;</code>. <lastmodif>
</SMALL>
</BODY>
</HTML>
..Body>>
<:
sub time2string {
my ($time, $display_day) = @_;
my ($result);
my ($week_day_text);
my ($seconds, $minutes, $hours, $days, $month, $year, $week_day, $year_day, $is_dst) =
gmtime ($time);
$month_text = (January, February, March, April, May, June, July,
August, September, October, November, December)
[$month];
if ($display_day) {
$week_day_text = (Sunday, Monday, Tuesday, Wednesday, Thursday,
Friday, Saturday) [$week_day];
}
$year = $year + 1900;
$result = "$week_day_text $days $month_text $year";
return $result;
}
:>
Loading…
Cancel
Save