diff --git a/perl-xCAT/xCAT/FSPUtils.pm b/perl-xCAT/xCAT/FSPUtils.pm
index d9807ec17..f1fb05ded 100644
--- a/perl-xCAT/xCAT/FSPUtils.pm
+++ b/perl-xCAT/xCAT/FSPUtils.pm
@@ -68,6 +68,7 @@ sub fsp_api_action {
     my $attrs      = shift;
     my $action     = shift;
     my $tooltype   = shift;
+    my $parameter   = shift;
 #    my $user 	   = "HMC";
 #    my $password   = "abc123";
     my $fsp_api    = ($::XCATROOT) ? "$::XCATROOT/sbin/fsp-api" : "/opt/xcat/sbin/fsp-api"; 
@@ -125,7 +126,7 @@ sub fsp_api_action {
         my $password = $password_hash->{password};
     	$cmd = "$fsp_api -a $action -u $user -p $password -T $tooltype -t $type:$fsp_ip:$id:$node_name:";
     } else {
-        $cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:";
+        $cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:$parameter";
     }
 
     #print "cmd: $cmd\n"; 
diff --git a/perl-xCAT/xCAT/FSPbootseq.pm b/perl-xCAT/xCAT/FSPbootseq.pm
new file mode 100644
index 000000000..52113cf70
--- /dev/null
+++ b/perl-xCAT/xCAT/FSPbootseq.pm
@@ -0,0 +1,211 @@
+# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
+
+package xCAT::FSPbootseq;
+use Socket;
+use strict;
+use Getopt::Long;
+use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
+use xCAT::NetworkUtils;
+use xCAT::FSPUtils;
+use Data::Dumper;
+
+##########################################################################
+# Parse the command line for options and operands 
+##########################################################################
+sub parse_args {
+
+    my $request = shift;
+    my %opt     = ();
+    my $cmd     = $request->{command};
+    my $args    = $request->{arg};
+    my $node    = $request->{node};
+    my $vers = 
+    my @VERSION = qw( 2.6 );
+    my @dev     = qw(hfi net);
+    
+    #############################################
+    # Responds with usage statement
+    #############################################
+    local *usage = sub {
+        my $usage_string = xCAT::Usage->getUsage($cmd);
+        return( [ $_[0], $usage_string] );
+    };
+    #############################################
+    # Process command-line arguments
+    #############################################
+    if ( !defined( $args )) {
+        $request->{method} = $cmd;
+        return( \%opt );
+    }
+    #############################################
+    # Checks case in GetOptions, allows opts
+    # to be grouped (e.g. -vx), and terminates
+    # at the first unrecognized option.
+    #############################################
+    @ARGV = @$args;
+    $Getopt::Long::ignorecase = 0;
+    Getopt::Long::Configure( "bundling" );
+
+    if ( !GetOptions( \%opt,qw(h|help V|Verbose v|version ))) { 
+        return( usage() );
+    }
+    ####################################
+    # Option -h for Help
+    ####################################
+    #if ( exists( $opt{h} )) {
+    #    return( usage() );
+    #}
+    ####################################
+    # Option -v for version
+    ####################################
+    if ( exists( $opt{v} )) {
+        return( \@VERSION );
+    }
+    ####################################
+    # Check for "-" with no option
+    ####################################
+    #if ( grep(/^-$/, @ARGV )) {
+    #    return(usage( "Missing option: -" ));
+    #}
+
+    ####################################
+    # Check for an extra argument
+    ####################################
+    #if ( defined( $ARGV[0] )) {
+    #    return(usage( "Invalid Argument: $ARGV[0]" ));
+    #}
+
+    my $command = grep(/^$ARGV[0]$/, @dev ); 
+    if ( !defined( $command )) {
+        return(usage( "Invalid command: $ARGV[0]" )); 
+    }
+
+    if( $ARGV[0]  =~/^hfi$/) {
+        $opt{hfi} = 1; 
+    } 
+
+    if( $ARGV[0] =~/^net$/) {
+        $opt{net} = 1; 
+    }
+
+    shift @ARGV;
+    if ( defined( $ARGV[0] )) {
+        return(usage( "Invalid Argument: $ARGV[0]" ));
+    }
+   
+    
+    print "in parse_args:\n";
+    print $command;
+    print Dumper(\%opt);    
+
+    ####################################
+    # Set method to invoke 
+    ####################################
+    $request->{method} = $cmd; 
+    return( \%opt );
+}
+
+
+##########################################################################
+# set hfi/eth boot string
+##########################################################################
+sub rbootseq {
+
+    my $request = shift;
+    my $d       = shift;
+    my $opt     = $request->{opt};
+    my @output ;
+    my $tooltype = 0; 
+    my $parameter;
+    my $bootp_retries = 5;
+    my $tftp_retries  = 5;
+    my $blksize       = 512;
+    my $hash;
+    my $node_name     =  @$d[6]; 
+    my $o   =  @$d[7];
+     
+    print "in setbootseq:\n";
+    print "request\n";
+    print Dumper($request);
+    print "d"; 
+    print Dumper($d);
+  
+         
+    if (!($$d[4] =~ /^lpar$/)) { 
+        push @output, [$node_name, "\'boot\' command not supported for CEC or BPA", -1 ];
+        return (\@output);
+    }
+      
+    if( $opt->{net} ) {
+        my $mactab = xCAT::Table->new( 'mac');
+        unless($mactab) {
+            push @output, [$node_name, "Cannot open mac table", -1 ];  
+            return (\@output);		 
+        }	
+            
+        my $mac_hash    = $mactab->getNodeAttribs( $node_name,[qw(mac)]);	
+	my $mac         = $mac_hash->{mac};
+	if( $mac ) {
+	    push @output, [$node_name, "No mac address in mac table", -1 ];	
+	}    
+	$mactab->close();
+
+	if( $mac =~ /\| /) {
+	    #01:02:03:04:05:0E!node5|01:02:03:05:0F!node6-eth1
+	    my @mac_t = split(/\|/,$mac);
+	    my $m;
+	    my $m_t;
+	    foreach $m (@mac_t) {
+	        if($m =~ /([\w:]{14})!$node_name/) {
+	            $m_t = $1;
+		    last;
+		 }
+            } 
+
+	    if( !defined($m_t)) {
+	        $mac = $mac_t[0];
+	     } else {
+	        $mac = $m_t;
+	     }
+	 }
+         $parameter = "mac=$mac:speed=auto,duplex=auto,$o->{server},,$o->{gateway},$o->{client},$bootp_retries,$tftp_retries,$o->{netmask},$blksize";	      
+	    
+       }
+
+       if( $opt->{hfi}) {
+       
+           $parameter = "/hfi-iohub/hfi-ethernet:$o->{server},,$o->{gateway},$o->{client},$bootp_retries,$tftp_retries,$o->{netmask},$blksize";	      
+       
+       }
+
+       my $res = xCAT::FSPUtils::fsp_api_action ($node_name, $d, "set_lpar_bootstring", $tooltype, $parameter);
+       #print "In boot, state\n";
+       #print Dumper($res);
+       my $Rc = @$res[2];
+       my $data = @$res[1];
+        
+       ##################################
+       # Output error
+       ##################################
+       if ( $Rc != SUCCESS ) {
+	       push @output, [$node_name,$data,$Rc];
+	       next;
+	   }
+	   push @output,[$node_name, "Success", 0];	  
+
+        return( \@output );
+
+
+}
+
+1;
+
+
+
+
+
+
+
+
+
+