egghelp/eggheads community

alfabet

2003-01-18T07:57:34-04:00

ppslim: I'm sorry If I have let you under the wrong impresion that I'm plain laziness.

I have come to the correct command eventualy, after reading your advice.
[expr 4/2] makes the calc thing. Seesh..

Thank you for your time, support and mostly for your kindly cooperation and sorry again..

spock: there is no need to be rude or something.. I haven't done you anything, or have I done?

Make your own mistakes, not somebody else's..

Statistics: Posted by caesar — Sat Jan 18, 2003 7:57 am

alfabet

2003-01-17T18:02:34-04:00

/me gets his flamethrower

Statistics: Posted by spock — Fri Jan 17, 2003 6:02 pm

alfabet

2003-01-17T15:06:55-04:00

PLEASE VISIT THIS PAGE

Try readin up about each command in the manual. I'm sure you will come to the correct command eventualy.

It's plain laziness, to know where the manual is, yet fail to try looking yourself, and wait for us to point it out.

Statistics: Posted by ppslim — Fri Jan 17, 2003 3:06 pm

alfabet

2003-01-17T14:36:58-04:00

Figured out myself how to get the time: [clock format [file atime "${dir}"] -format {%A, %d %B %Y @ %H %M %S}]

but how to make the KB and MB calc?

Statistics: Posted by caesar — Fri Jan 17, 2003 2:36 pm

alfabet

2003-01-17T11:43:21-04:00

Do I have to keep quoting the Tcl manual.

See the "clock format" command for time conversion.

As for working out MB and so on, it's a case of simple math.

Bytes / 1024 = Kbytes
Kbytes / 1024 = Mbytes

Statistics: Posted by ppslim — Fri Jan 17, 2003 11:43 am

alfabet

2003-01-17T10:32:37-04:00

Now works. As as sow, the result is in bytes, how to transfor it in KB and/or MB?

Oh, and also how to transform the result of the [file atime "${dir}"] in something more comestible like 17 Jan. 2003 @ 12:45 or something like this. I'm getting an result in seconds or something like this as far as I can see..

Statistics: Posted by caesar — Fri Jan 17, 2003 10:32 am

alfabet

2003-01-17T09:49:05-04:00

make it

Code:

foreach a [glob -type f "${dir}*"] {

Statistics: Posted by ppslim — Fri Jan 17, 2003 9:49 am

alfabet

2003-01-17T09:14:36-04:00

"files/" dir exists.

Statistics: Posted by caesar — Fri Jan 17, 2003 9:14 am

alfabet

2003-01-17T06:52:20-04:00

Do those directories exist?

"/files/" is a obsolute directory.
"files/" is relative to the current directory
"files" is also relative to the currect die. It simply doesn't have the trailing slash.

Statistics: Posted by ppslim — Fri Jan 17, 2003 6:52 am

alfabet

2003-01-17T06:27:34-04:00

bind dcc n tmp task:tmp

proc task:tmp { hand idx arg } {
global db
set dir "files"
set c 0
foreach a [glob -type f $dir] {
incr c [file size $a]
}
putlog "Dir size: $c"
}

And I'm getting an error: Tcl error [task:tmp]: no files matched glob pattern "files". Also tryed with "/files/" and "files/" and the same result.

Statistics: Posted by caesar — Fri Jan 17, 2003 6:27 am

alfabet

2003-01-17T06:09:30-04:00

Code:

proc filefullsize {dir} {  if {![file exists $dir]} { error "No such directory exists" }  set c 0  foreach a [glob -type f $dir] {    incr c [file size $a]  }  return $c}

Use the abov function like so.

Code:

set directory "/file/audio/"set filesizes [filefullsize $directory]

Statistics: Posted by ppslim — Fri Jan 17, 2003 6:09 am

alfabet

2003-01-17T04:21:55-04:00

As I have tested and seen with:

bind dcc n tmp task:tmp

proc task:tmp { hand idx arg } {
global db
set file "pub/"
putlog "Size: [file size $file]"
}

the size works only for files. Seems that I have to get the size of all the files and then to add them to a variable and finaly that variable represends the size of the dir. Is there any other way to seee the dir's size? My alternative is bit messy but what a hell.. If there is no other I must do so.. Ce la vie..

As for the "file mtime name" I have noticed that works for a dir. The only thing that I'm confused with is that I'm getting a result like this: 1042649520. How to make it look like eg. January 17, 2003?

Statistics: Posted by caesar — Fri Jan 17, 2003 4:21 am

alfabet

2003-01-17T03:19:23-04:00

As I have seen on the TCL manual (http://tcl.activestate.com/man/tcl8.2.3/TclCmd/file.htm) I have found the "file size name" to get the size of a file and "file mtime name" for the last modified thing. Will this two work also for the dirs or only for files?

Also I have found some other nice things I can do with the file thing and I haven't thinked about using them on the web page generation. Neat..

Statistics: Posted by caesar — Fri Jan 17, 2003 3:19 am

alfabet

2003-01-17T02:15:40-04:00

The "/mnt/multimedia/hollywood" is the dir where it searches for the other dirs in the proc. I need a count of "/multimedia/hollywood" to use it here: set dir [string range $dr [expr [string length files]+$db(no)] end] and the $db(no) is the result of that counting thing.

As for the second answer I'll have a look on the TCL manual for the file command.

Thanks again.

Statistics: Posted by caesar — Fri Jan 17, 2003 2:15 am

alfabet

2003-01-16T17:25:38-04:00

For number 1, I don't realy understand what you are asking for, hwoever, I will have a go.

Use somthing liek this

Code:

set length [string length [lindex [split $item "/"] [expr [llength [split $item "/"]] - 1]]]

As for the second. Read the Tcl manual. The file command will reveale all for filesize, dates, permissions, filetypes. It also provide move, copy and delete functions.

Statistics: Posted by ppslim — Thu Jan 16, 2003 5:25 pm