#!/usr/bin/perluse CGI ':standard'; use CGI::Carp qw(fatalsToBrowser); my $files_location; my $ID; my @fileholder; $files_location = "/inetpub/wwwroot"; $ID = "readme.htmldw"; if ($ID eq '') { print "Content-type: application/x-download\n"; print "You must specify a file to download."; } else { open(DLFILE, "<$files_location/$ID") || Error('open', 'file'); @fileholder = ; close (DLFILE) || Error ('close', 'file'); open (LOG, ">>/inetpub/wwwroot/test.log") || Error('open', 'file'); print LOG "$ID\n"; close (LOG); print "Content-Type:application/x-download\n"; print "Content-Disposition:attachment;filename=$ID\n\n"; print @fileholder }
Is it possible to tie in DreamWeaver to TeamSite? When edit a text area in a form entry, instead of launching VisualFormat Editor, we could launch DreamWeaver instead. Has anyone tried this approach?