Slashdot Mirror
MPAA to Senate: Plug the Analog Hole!
A month ago, the MPAA filed
its report [PDF]
with the Senate Judiciary Committee on the terrors of analog
copying. I quote: "in order to help plug the hole, watermark
detectors would be required in"
-- are you sitting down? -- "all devices that perform analog to
digital conversions." At their page
Protecting Creative Works in a Digital Age,
the Senate lays out the issues they'll be looking at, including
briefs from corporate groups, and provides a
comment form
so your opinion can be heard as well. As Cory Doctorow writes:
"this is a much more sweeping (and less visible) power-grab than
the Hollings Bill, and it's going forward virtually unopposed.
...the
Broadcast Protection Discussion Group
is bare weeks away from turning over a veto on new technologies to Hollywood."
Doctorow's article on the "analog hole"
for the EFF does a great job of explaining the issues to
non-electrical-engineers, and has many thought-provoking
examples of how requiring such technology would be a giant step
backwards.
This makes two for today!
Kiss Gizmo!
I just mauled my statistics quiz.
know all about plugging holes? But who can plug this one?
MPAA to Senate: Plug the Anal Hole!
#!/usr/bin/tclsh ./slashdot_post.tcl body_filename.txt "Your subject line here" ;#login ;#post anonymously (must be logged in) ;#story id (article) - get this from slashdot ;#comment id - get this from slashdot - set 0 for New Reply ;#posttype 1=text 2=html 3=extrans 4=code ;#set 0 to Preview ./slashdot_post.tcl inputfilename.txt \"This is my subject line\""; exit }
## Slashdot poster by christfokkar@yahoo.com 2002.04.24 version 1.0
## Bug reports / feature requests welcome
## REQUIREMENTS - You need tclsh (TCL language) 8.3 or higher. Should be installed on most unix systems. If not, go to http://dev.scriptics.com.
## Make sure the first line in the file #!/usr/bin/tclsh points to your tcl interpreter.
## INSTRUCTIONS - You need to edit this script each time and set 6 vars. Then you specify the Body and the Subject on the command line.
## 1. Set the authorization info. Remember, there are three ways to post: logged in, logged in/anonymous, and logged out. You can leave your auth info in here and simply toggle the anon and rlogin flags.
## 2. Set the sid and pid of the comment you wish to reply to. Use pid 0 for a new comment
## 3. Set posttype, and decide whether you want to preview or submit
## 4. Execute
## When done, it will output an html receipt with the story id and both comment id's (or "Preview") in the filename.
### AUTH CONFIG - SET ONCE
set unickname your_nickname
set upasswd your_password
### COMMENT CONFIG - SET EACH TIME
set rlogin 1
set anon 1
set sid 31620
set pid 0
set posttype 1
set submit 0
### check version
package require http 2.3
regexp {8\.?} [info tclversion] match_one
if {![info exists match_one]} { puts "FATAL: You must be running Tcl >= 8.3 You are running [info tclversion]"; exit }
### get comment text from file
if {$argc == 2 } {
set inputfile [lindex $argv 0]
set postersubj [lindex $argv 1]
} else { puts "USAGE:
if {[catch {set fp [open $inputfile r]} catch_error ]} { puts "FATAL: Could not open inputfile $inputfile $catch_error"; exit }
set postercomment ""
while { ![eof $fp] } { set postercomment $postercomment\n[gets $fp] }
### set some vars
if {$anon && $rlogin} { set postanon "&postanon=1"; set anontext "logged in/anonymous" } else {
set postanon ""
if {$rlogin} { set anontext "logging in" } else { set anontext "not logged in" }
}
set typetext "???"
if {$posttype == 1 } { set typetext "Plain Text" }
if {$posttype == 2 } { set typetext HTML }
if {$posttype == 3 } { set typetext Extrans }
if {$posttype == 4 } { set typetext Code }
if {$submit} { set op Submit } else {set op Preview}
### get formkey
puts "You are posting as $unickname, $anontext, $op mode as $typetext"
puts "Getting formkey..."
http::config -useragent "Mozilla"
if {[catch {set token [http::geturl http://slashdot.org/comments.pl?sid=$sid&pid=$ pid&op=Reply]} catch_error]} { puts "FATAL: Unable to GET comments.pl $catch_error"; exit }
upvar #0 $token state
regexp {NAME="formkey" VALUE="([0-9a-zA-Z]+)">} $state(body) match_two formkey
if {![info exists formkey] || ![string compare $formkey ""] } { puts "FATAL: Unable to retrieve formkey";exit }
if {$submit} { puts "Got formkey. Waiting 20 seconds to Submit..."; after 20000 } else { puts "Got formkey, Previewing..." }
### post comment
if {$rlogin} {set auth &[http::formatQuery unickname $unickname upasswd $upasswd]} else {set auth ""}
set query $postanon$auth&[http::formatQuery op $op sid $sid pid $pid posttype $posttype rlogin $rlogin formkey $formkey postersubj $postersubj]&[http::formatQuery postercomment $postercomment]
if {$submit} { puts "Submitting now..." }
if {[catch {set token [http::geturl http://slashdot.org/comments.pl? -query $query]} catch_error ]} { puts "FATAL: unable to POST query. $catch_error";exit}
upvar #0 $token state
### write out results
if {$submit} { regexp "Comment Submitted" $state(body) match_three } else { regexp "<H2>Preview Comment</H2>" $state(body) match_three }
if {![info exists match_three] || ![string compare $match_three ""]} { set success "Rejected" } else { set success "Accepted" }
if {$submit && $success == "Accepted" } { regexp {cid=([0-9]+)\"} $state(body) match4 cid; set cidtext "as_[set cid]" } else { set cidtext "Preview" }
set filename "story_[set sid]_replyto_[set pid]_[set cidtext].html"
if {[catch {set fp [open $filename w]} catch_error]} { puts "ERROR: Unable to open output file. $catch_error" } else {
puts $fp $state(body)
close $fp
}
set error_message "(grep for error text failed)"
if {$success == "Rejected" } { regexp {<!-- Error type: -->[ \n]*(.+?)[ \n]*<!-- end error message -->} $state(body) match_five error_message; puts "REJECTED: $error_message" }
puts "END. Your $op was [set success]. Output to disk as\n$filename"
anyone ever take a pic pic, of a girl standing or lying down straight, resize it so its life size, then print it.. then reassemble the papers to form a giant life size girl to masturbate to? because I just did it, 28 pages... pretty sweet