This file is indexed.

/usr/share/doc/tclcurl/examples/writeProc.tcl is in tclcurl 7.22.0-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
package require TclCurl

# This is one contrived example, but it works.

proc writeToFile {readData} {
    puts "writeToFile called [incr ::i]"
    puts -nonewline $::outFile $readData

    return
}

set i 0

set outFile [open "cosa.tar" w+]
fconfigure $outFile -translation binary

curl::transfer -url "127.0.0.1/~andres/cosa&co.tar" -writeproc writeToFile

close $outFile