From: Humphrey Widjaja (h4w301@gmail.com)
Date: Sun Feb 18 2007 - 15:25:28 ART
Try this one:
! go to tclsh
tclsh
! the procedure
proc hum {tftpip} {
set files [glob -nocomplain -type f *]
if { $files != {} } {
foreach f [lsort $files] {
copy flash:/$f tftp://$tftpip/$f
}
}
}
! To execute call the proc name followed by TFTP IP address
hum 192.168.0.100
! end of tcl
Or you can also save those TCL codes to TFTP server and run it:
Router(tcl)# source tftp://192.168.0.100/copy.tcl
Please correct me if I'm wrong.
Humphrey
On 2/18/07, Darby Weaver <darbyweaver@yahoo.com> wrote:
> Anyone got a TCL Script?
>
>
> --- ismail el-shalh <ishelh_mdsa@yahoo.com> wrote:
>
> > Hi Folks,
> >
> >
> > Is there any way to copy a bunch of files from
> > Flash to TFTP server? I have more than 20 files
> > stored in the flash and copying them one by one is a
> > hard task :(
> >
> > Thanks,
> > Ismail
> >
> >
> >
> >
> > ---------------------------------
> > Want to start your own business? Learn how on Yahoo!
> > Small Business.
> >
> >
> _______________________________________________________________________
> > Subscription information may be found at:
> > http://www.groupstudy.com/list/CCIELab.html
>
> _______________________________________________________________________
> Subscription information may be found at:
> http://www.groupstudy.com/list/CCIELab.html
This archive was generated by hypermail 2.1.4 : Thu Mar 01 2007 - 07:38:47 ART