sudo atp-get install dhcp3-server
ddns-update-style none;
option domain-name "sample-dom.sample-com";
option domain-name-servers 172.28.202.143, 172.28.202.142;
default-lease-time 600;
max-lease-time 7200;
subnet 172.28.24.0 netmask 255.255.255.0 {
range 172.28.24.10 172.28.24.254;
option subnet-mask 255.255.255.0;
option broadcast-address 172.28.24.255;
option routers 172.28.24.1;
}
host printer {
hardware ethernet 00:26:73:04:08:3f;
fixed-address 172.28.24.37;
}
host printer1 {
hardware ethernet 00:00:f0:a6:ef:5b;
fixed-address 172.28.24.90;
}
host AccessPoint_Symbol {
hardware ethernet 00:A0:F8:A7:77:88;
fixed-address 172.28.24.70;
}
authoritative;
log-facility local7;
/etc/init.d/dhcp3-server
Usage: /etc/init.d/dhcp3-server {start|stop|restart|force-reload|status}
# sudo apt-get install ipsec-tools racoon
spdadd 172.28.24.0/24 172.28.24.0/24 any -P in none;
spdadd 172.28.24.0/24 172.28.24.0/24 any -P out none;
spdadd 172.28.24.0/24 0.0.0.0/0 any -P out ipsec ah/tunnel/bb.bb.bb.bb-aa.aa.aa.aa/require;
spdadd 0.0.0.0/0 172.28.24.0/24 any -P in ipsec ah/tunnel/aa.aa.aa.aa-bb.bb.bb.bb/require;
aa.aa.aa.aa [pre-shared key]
listen {
adminsock "/var/run/racoon.sock" "root" "wheel" 0660;
}
path pre_shared_key "/etc/racoon/psk.txt";
path certificate "/etc";
remote aa.aa.aa.aa {
exchange_mode aggressive;
my_identifier fqdn "BranchOfficeName";
peers_identifier address aa.aa.aa.aa;
initial_contact on;
ike_frag on;
support_proxy on;
proposal_check obey;
proposal {
encryption_algorithm 3des;
hash_algorithm md5;
authentication_method pre_shared_key;
dh_group 2;
}
}
sainfo address 172.28.24.0/24 any address 0.0.0.0/0 any {
encryption_algorithm des,3des;
authentication_algorithm hmac_sha1,hmac_md5;
compression_algorithm deflate;
lifetime time 5 min;
pfs_group 2;
}
setkey -D
setkey -DP
setkey -F
/etc/init.d/setkey {start|stop|restart|force-reload}
/usr/sbin/setkey -F -FP
/usr/sbin/setkey -f /etc/spd.conf
#!/usr/bin/php
<?php
$k = 0;
$i = 1;
while($k < 5){
$lan = exec("/sbin/ifconfig eth0 | /bin/grep 'inet addr' | /usr/bin/gawk -F ' ' '{print $2}' | /usr/bin/gawk -F ':' '{print $2}'");
$wan = exec("/sbin/ifconfig ppp0 | /bin/grep 'inet addr' | /usr/bin/gawk -F ' ' '{print $2}' | /usr/bin/gawk -F ':' '{print $2}'");
//$peer = 'aa.aa.aa.aa'; // you can use this line or following line.
$peer = exec("/bin/grep remote /etc/racoon/racoon.conf | /usr/bin/gawk -F ' ' '{ print $2 }'");
$localNet = exec("/bin/grep sainfo /etc/racoon/racoon.conf | /usr/bin/gawk -F ' ' '{ print $3 }'");
$remoteNet = exec("/bin/grep sainfo /etc/racoon/racoon.conf | /usr/bin/gawk -F ' ' '{ print $6 }'");
$blan = strlen($lan);
$bwan = strlen($wan);
echo "strlen($lan):$blan,strlen($wan):$bwan \n";
if($blan < "6" || $bwan < "6" ) {
echo "LAN or WAN hasn't got usable ip address.\n";
echo "The script wait and will be try again!!! ($i) # # # # # # # # # # # \n";
$i++;
sleep(10);
} else {
echo "writing to /etc/spd.conf file as collected information:\n";
exec("/bin/rm -rf /etc/spd.conf.old;/bin/mv /etc/spd.conf /etc/spd.conf.old");
exec("echo 'spdadd 172.28.10.254/32 0.0.0.0/0 any -P out none;' > /etc/spd.conf");
exec("echo 'spdadd 0.0.0.0/0 172.28.10.254/32 any -P in none;' >> /etc/spd.conf");
exec("echo 'spdadd $localNet $localNet any -P in none;' >> /etc/spd.conf");
exec("echo 'spdadd $localNet $localNet any -P out none;' >> /etc/spd.conf");
exec("echo 'spdadd $localNet $remoteNet any -P out ipsec ah/tunnel/$wan-$peer/require;' >> /etc/spd.conf");
exec("echo 'spdadd $remoteNet $localNet any -P in ipsec ah/tunnel/$peer-$wan/require;' >> /etc/spd.conf");
$k = 5;
}
if($i > 5){
$k = 7;
}
}
echo "FNSH\n";
?>
#!/bin/sh
case "$1" in
start)
echo "Running ipsec VPN rules file: /etc/spd.conf";
/root/fwscripts/createSpd.php
/usr/sbin/setkey -f /etc/spd.conf
;;
stop)
echo "Remove ipsec VPN rules file: /etc/spd.conf"
/usr/sbin/setkey -F -FP
;;
restart)
echo "Remove ipsec VPN rules file: /etc/spd.conf"
/usr/sbin/setkey -F -FP
echo "Running ipsec VPN rules file: /etc/spd.conf";
/root/fwscripts/createSpd.php
/usr/sbin/setkey -f /etc/spd.conf
;;
*)
echo "Usage: /etc/init.d/setkeyHandle {start|stop|restart}"
;;
esac
exit 0
# update-rc.d setkeyHandle defaults
Adding system startup for /etc/init.d/setkeyHandle ...
/etc/rc0.d/K20setkeyHandle -> ../init.d/setkeyHandle
/etc/rc1.d/K20setkeyHandle -> ../init.d/setkeyHandle
/etc/rc6.d/K20setkeyHandle -> ../init.d/setkeyHandle
/etc/rc2.d/S20setkeyHandle -> ../init.d/setkeyHandle
/etc/rc3.d/S20setkeyHandle -> ../init.d/setkeyHandle
/etc/rc4.d/S20setkeyHandle -> ../init.d/setkeyHandle
/etc/rc5.d/S20setkeyHandle -> ../init.d/setkeyHandle
# update-rc.d setkeyHandle start 20 2 3 4 5 . stop 80 0 1 6 .
class TestClass {
public int i = 9;
public float f = 10.0f;
public double d = 3.14;
public boolean b = true;
public String s = "test";
}
class TestClassWithArrays extends TestClass {
public int[] ia = new int[]{1, 2, 3, 4, 5};
public double[] da = new double[]{1.0, 2.0, 3.0, 4.0, 9.9, 10.1};
public String[] sa = new String[]{"One", "Two", "Three"};
public boolean[] ba = new boolean[]{true, true, false};
}
TestClassWithArrays tcwa = new TestClassWithArrays();
JavaObject jo = new JavaObject("tcwa", tcwa);
RCaller rcaller = new RCaller();
rcaller.setRscriptExecutable("/usr/bin/Rscript");
rcaller.cleanRCode();
rcaller.addRCode(jo.produceRCode());
rcaller.runAndReturnResult("tcwa");
@Test
public void TestClassWithArrays() throws IllegalAccessException, IOException {
TestClassWithArrays tcwa = new TestClassWithArrays();
JavaObject jo = new JavaObject("tcwa", tcwa);
RCaller rcaller = new RCaller();
rcaller.setRscriptExecutable("/usr/bin/Rscript");
rcaller.cleanRCode();
rcaller.addRCode(jo.produceRCode());
rcaller.runAndReturnResult("tcwa");
int[] expectedIntArray = rcaller.getParser().getAsIntArray("ia");
for (int i = 0; i < tcwa.ia.length; i++) {
assertEquals(expectedIntArray[i], tcwa.ia[i]);
}
double[] expectedDoubleArray = rcaller.getParser().getAsDoubleArray("da");
for (int i = 0; i < tcwa.da.length; i++) {
assertEquals(expectedDoubleArray[i], tcwa.da[i], delta);
}
String[] expectedStringArray = rcaller.getParser().getAsStringArray("sa");
for (int i = 0; i < tcwa.sa.length; i++) {
assertEquals(expectedStringArray[i], tcwa.sa[i]);
}
}
JavaObject jo = new JavaObject("tcwa", tcwa);
.
.
.
rcaller.addRCode ( jo.produceRCode() );
It is simplicity...
#!/usr/bin/perl
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10);
$t->open("x.x.x.x");
$t->login("USERID", "password");
$t->cmd("env -T system:mt[1]");
@lines = $t->cmd("temps");
#print @lines;
open (HEDEF, ">/root/ibmTemperature/lastTemp.txt") || die ("Could not open file
$!");
print HEDEF "@lines";
close (HEDEF);
Warning
Value Warning Reset
----- ------- -------
25.00 38.00 33.00
...
..
.
echo `/usr/bin/head -4 /root/ibmTemperature/lastTemp.txt | /usr/bin/tail -1 | /usr/bin/gawk -F ' ' ' {print $1} '`> /root/ibmTemperature/tempfile.txt#!/usr/bin/php
#!/bin/bash
/root/ibmTemperature/read.pl
echo `/usr/bin/head -4 /root/ibmTemperature/lastTemp.txt | /usr/bin/tail -1 | /usr/bin/gawk -F ' ' ' {print $1} '`> /root/ibmTemperature/tempfile.txt
/root/ibmTemperature/write.php
System room temperature graphic (Last 24 Hours):";
echo "";
echo "";
echo "\n";
$k = 0;
while($line = mysql_fetch_array($result)) {
$current = (3*$line["temp"]);
$current_temp = $line["temp"];
if($current < "72") { $color = "lightblue.PNG"; } elseif($current < "85") { $color = "blue.PNG"; } else { $color = "red.PNG"; } if($k == 0) { $now = $line["date"]; } else { if(strlen($line["date"]) > 5) {
$end = $line["date"];
}
}
echo "\n";
}
echo "";
//echo "";
echo "
 | |
 |
 | "; echo " ";echo " |
| : Recommended Values Range | ||
| : Acceptable Values Range | ||
| : Dangerous Values Range |
#!/usr/bin/perl
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
Prompt => '/ns5gt-adsl->/');
$t->open("IP_ADDR_of_NetscreenDevice");
$t->login(netscreenUsername, Password);
@lines = $t->cmd("get policy id X");
print @lines;
$t->cmd("exit");
$t->cmd("exit");
Router> Enable
Router# configure Terminal
Enter configuration commands, one per line. End with CNTL/Z.
Router(config)# enable secret 0 cisco
Router(config)# line vty 0 4
Router(config-line)#login
% Login disabled on line 6, until 'password' is set
% Login disabled on line 7, until 'password' is set
% Login disabled on line 8, until 'password' is set
% Login disabled on line 9, until 'password' is set
% Login disabled on line 10, until 'password' is set
Router(config-line)#password cisco
00:00:54: %SYS-5-CONFIG_I: Configured from console by console
Router(config-line)# ^Z
Router#write memory
#!/usr/bin/perl
use Net::Telnet::Cisco;
my $session = Net::Telnet::Cisco->new(Host => 'x.x.x.x');
$session->login('', 'password');
# Execute a command
my @output = $session->cmd('show version');
print @output;
# Enable mode
if ($session->enable("enable_password") ) {
@output = $session->cmd('show privilege');
print "My privileges: @output\n";
} else {
warn "Can't enable: " . $session->errmsg;
}
$session->close;
chmod +x sample.pl
Router(config)#aaa new-model
Router(config)#username TelnetUser privilege 15 password 0 TelnetPassword
The difference between the first sample and the second sample is that,#!/usr/bin/perl
use Net::Telnet::Cisco;
my $session = Net::Telnet::Cisco->new(Host => 'x.x.x.x');
$session->login('TelnetUser', 'TelnetPassword');
# Execute a command
my @output = $session->cmd('show version');
print @output;
# Enable mode
@output = $session-> cmd('show privilege');
print "My privileges: @output\n";
$session->close;
user@hostn:~/DIR> tar xvfz Net-Telnet-Cisco-1.10.tar.gz
Net-Telnet-Cisco-1.10/
Net-Telnet-Cisco-1.10/README
Net-Telnet-Cisco-1.10/Cisco.pm
Net-Telnet-Cisco-1.10/.cvsignore
Net-Telnet-Cisco-1.10/MANIFEST
Net-Telnet-Cisco-1.10/test.pl
Net-Telnet-Cisco-1.10/MANIFEST.SKIP
Net-Telnet-Cisco-1.10/Changes
Net-Telnet-Cisco-1.10/INSTALL
Net-Telnet-Cisco-1.10/Makefile.PL
Net-Telnet-Cisco-1.10/TODO
user@hostn:~/DIR> cd Net-Telnet-Cisco-1.10/
user@hostn:~/DIR/Net-Telnet-Cisco-1.10> perl Makefile.PL
Checking if your kit is complete...
Looks good
Writing Makefile for Net::Telnet::Cisco
user@hostn:~/DIR/Net-Telnet-Cisco-1.10> make
cp Cisco.pm blib/lib/Net/Telnet/Cisco.pm
AutoSplitting blib/lib/Net/Telnet/Cisco.pm (blib/lib/auto/Net/Telnet/Cisco)
Manifying blib/man3/Net::Telnet::Cisco.3pm
user@hostn:~/DIR/Net-Telnet-Cisco-1.10> make install
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ERROR: Can't create '/usr/lib/perl5/site_perl/5.12.3/Net/Telnet'
Do not have write permissions on '/usr/lib/perl5/site_perl/5.12.3/Net/Telnet'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
at -e line 1
make: *** [pure_site_install] Error 13
user@hostn:~/DIR/Net-Telnet-Cisco-1.10> sudo make install
root's password:
Appending installation info to /usr/lib/perl5/5.12.3/i586-linux-thread-multi/perllocal.pod
user@hostn:~/DIR/Net-Telnet-Cisco-1.10>
@Test
public void onlineCalculationTest() {
RCaller rcaller = new RCaller();
rcaller.setRExecutable("/usr/bin/R");
rcaller.cleanRCode();
rcaller.addRCode("a<-1:10");
rcaller.runAndReturnResultOnline("a");
assertEquals(rcaller.getParser().getAsIntArray("a")[0], 1);
rcaller.cleanRCode();
rcaller.addRCode("b<-1:10");
rcaller.addRCode("m<-mean(b)");
rcaller.runAndReturnResultOnline("m");
assertEquals(rcaller.getParser().getAsDoubleArray("m")[0], 5.5, 0.000001);
rcaller.cleanRCode();
rcaller.addRCode("a<-1:99");
rcaller.addRCode("k<-median(a)");
rcaller.runAndReturnResultOnline("k");
assertEquals(rcaller.getParser().getAsDoubleArray("k")[0], 50.0, 0.000001);
}
}
In first stage,we are creating an integer vector and getting the first element. In the second one, we are creating the same integer vector with a different name and calculating the arithmetic mean. In the last one, we are recreating the vector a and getting the median, which is equal to 50.
@Test
public void singleResultTest() {
double delta = 0.0000001;
RCaller rcaller = new RCaller();
rcaller.setRscriptExecutable("/usr/bin/Rscript");
rcaller.cleanRCode();
rcaller.addRCode("x <- c(6 ,8, 3.4, 1, 2)");
rcaller.addRCode("med <- median(x)");
rcaller.runAndReturnResult("med");
double[] result = rcaller.getParser().getAsDoubleArray("med");
assertEquals(result[0], 3.4, delta);
}
However, this example considers only computing the median of x, effort for computing medians of three variables needs three process which is very slow. Lists are "vector of vector" objects but they are different from matrices. A list object in R can handle several types of vector with their names. For examplealist <- list (
s = c("string1", "string2", "string3") ,
i = c(5,4,7,6),
d = c(5.5, 6.7, 8.9)
)
the list object alist is formed by three different kind of vectors: string vector s, integer vector i and double vector d. Also their names are s, i and d, respectively. Accessing elements of this list is straightforward. There are two ways to access to elements. First one is conventional way using indices. When the example above runs, strvec is set to String vector s.
alist <- list ( strvec <- alist[1]While a list object can handle R objects with their names, we can handle more than more result in a single RCaller run. Back to our example, we wanted to calculate medians of three double vectors in a single run.
@Test
public void TestLists2()throws Exception {
double delta = 0.0000001;
RCaller rcaller = new RCaller();
rcaller.setRscriptExecutable("/usr/bin/Rscript");
rcaller.cleanRCode();
rcaller.addRCode("x <- c(6 ,8, 3.4, 1, 2)");
rcaller.addRCode("med1 <- median(x)");
rcaller.addRCode("y <- c(16 ,18, 13.4, 11,12)");
rcaller.addRCode("med2 <- median(y)");
rcaller.addRCode("z <- c(116 ,118, 113.4,111,112)");
rcaller.addRCode("med3 <- median(z)");
rcaller.addRCode("results <- list(m1 = med1, m2 = med2, m3 = med3)");
rcaller.runAndReturnResult("results");
double[] result = rcaller.getParser().getAsDoubleArray("m1");
assertEquals(result[0], 3.4, delta);
result = rcaller.getParser().getAsDoubleArray("m2");
assertEquals(result[0], 13.4, delta);
result = rcaller.getParser().getAsDoubleArray("m3");
assertEquals(result[0], 113.4, delta);
}
This code passes the tests. By the result at hand, we have three medians of three different vectors with one pass calculation. With this way, an huge number of vectors can be accepted as a result from R and this method may be considered efficient...
these test files were integrated to source structure of project in
http://code.google.com/p/rcaller/
Renjin,
is not for calling R from Java,
is for calling itself and maybe it can be said that: it is for calling java from java :),
for Java programmers who aimed to use R in their projects
Renjin is an R implementation in Java.
package renjincall;
import java.io.StringReader;
import r.lang.Context;
import r.lang.SEXP;
import r.parser.ParseOptions;
import r.parser.ParseState;
import r.parser.RLexer;
import r.parser.RParser;
import r.lang.EvalResult;
public class RenjinCall {
public RenjinCall() {
Context topLevelContext = Context.newTopLevelContext();
try {
topLevelContext.init();
} catch (Exception e) {
}
StringReader reader = new StringReader("x<-1:10\n");
ParseOptions options = ParseOptions.defaults();
ParseState state = new ParseState();
RLexer lexer = new RLexer(options, state, reader);
RParser parser = new RParser(options, state, lexer);
try {
parser.parse();
} catch (Exception e) {
System.out.println("Cannot parse: " + e.toString());
}
SEXP result = parser.getResult();
System.out.println(result);
}
public static void main(String[] args) {
new RenjinCall();
}
}
<-(x, :(1.0, 10.0))This is the parsed version of our "x<-1:10", it contains the same amount of information but it is a little bit different in form. Since we only parsed the content but it has not been evaluated. Track the code:
EvalResult eva = result.evaluate(topLevelContext, topLevelContext.getEnvironment()); System.out.println(eva.getExpression().toString());
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
IntVector vector = (IntVector) eva.getExpression();
for (int i = 0; i < vector.length(); i++) {
System.out.println(
i + ". element of this vector is: " + vector.getElementAsInt(i)
);
}
0. element of this vector is: 1 1. element of this vector is: 2 2. element of this vector is: 3 3. element of this vector is: 4 4. element of this vector is: 5 5. element of this vector is: 6 6. element of this vector is: 7 7. element of this vector is: 8 8. element of this vector is: 9 9. element of this vector is: 10
