Re: DBIx::Recordset status
Hi, it's true DBIx::Recordset hasn't been updated for a long time. The reason is simple, it does all I need :-) Anyway I have a set of patches people send me and it would be worth putting them into a new release. Also there are some ideas what can be enhanced. As you already know I don't have the time to do it right now and when I have time I like to put it into Embperl to get 2.0 finaly done. So maybe somebodyelse could help in maintaining DBIx::Recordset (or take over the maintainance). I can setup a public CVS (or better svn) which holds the sources, so it should be quite easy to cooperate. I think the work Angus has already done for the Debian release is a good starting point. Also the docs Terrence has written should be considered to be included Anybody likes to give it a try? Gerald Angus Lees wrote: > At Thu, 2 Oct 2003 17:41:36 -0700, Terrence Brannon wrote: >> The Perl object-oriented Persistence group >> ([EMAIL PROTECTED]), has >> stated that their list of reviewed modules will drop DBIx::Recordset >> within >> six months unless it appears that the module is being maintained >> (ie, new >> releases are made). > > > > I find it interesting that they only consider code worthwhile if its > not finished yet.. > > I really don't get this "newer is better" philosophy that is so > prevalent in new-age computing circles. From what I can see, "being > new" is a point *against* the quality of a piece of code. > > > >> But they were wondering if a new release were coming out or if there >> were >> any outstanding bugfixes/features to be done to the code. > > I've accumulated quite a few bugfixes from various sources. I > seriously recommend anyone distributing DBIx::Recordset look over > them, they should be trivial to separate from the Debian-specific > packaging parts: > > http://ftp.debian.org/debian/pool/main/libd/libdbix-recordset-perl/libdbix-recordset-perl_0.24-7.diff.gz > > The debian/changelog file (and http://bugs.debian.org/ where a > bug number is given) should give details about each patch where its > purpose isn't already obvious. -- Gerald Richter ecos electronic communication services gmbh IT-Securitylösungen * dynamische Webapplikationen * Consulting Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz E-Mail: [EMAIL PROTECTED] Voice: +49 6133 939-122 WWW:http://www.ecos.de/ Fax: +49 6133 939-333 -- | | ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info | +- - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: unstrutured forward jump
Stefan Cars wrote: > Hi! > > Embperl says unstrutured forward jump when parsing my documents, can > that have todo with some table errors ? > Yes, that means that you have some nesting errors in a table or if/while/foreach etc. Gerald -- Gerald Richter ecos electronic communication services gmbh IT-Securitylösungen * dynamische Webapplikationen * Consulting Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz E-Mail: [EMAIL PROTECTED] Voice: +49 6133 939-122 WWW:http://www.ecos.de/ Fax: +49 6133 939-333 -- | | ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info | +- - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Upload file
Hi, I have this script.
[-
if (defined $fdat{ImageName}) {
open FILE, "> test ;
print FILE $buffer
while read($fdat{ImageName}, $buffer, 32768);
close FILE;
}
-]
File test exist but have size 0 k.
I have Embperl v 1.3.6.
Thanks, Rado
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: Upload file
Hi:
In EplSite WorkFlow i am using this routine and works fine:
use CGI;
$query = new CGI;
if( $file = $query->param('ImageName') )
{
@thefile = split(/\\/,$file);
$elements = @thefile;
$thedocument = "[EMAIL PROTECTED]";
$thedocument =~ s/\s/_/g;
if( open (OUTFILE,">$globalp->{Documents_path}/$thedocument") )
{
binmode(OUTFILE);# Explicit binary mode
while ($bytesread=read($fdat{attachthis},$buffer,32768))
{
print OUTFILE $buffer;
}
close(OUTFILE);
}
}
I am using CGI for some manipulation on filename but you could not use it.
I hope this helps
Carlos Kassab
> Hi, I have this script.
>
>
>
>
>
> [-
>
> if (defined $fdat{ImageName}) {
> open FILE, "> test ;
> print FILE $buffer
> while read($fdat{ImageName}, $buffer, 32768);
> close FILE;
> }
>
> -]
>
> File test exist but have size 0 k.
> I have Embperl v 1.3.6.
>
> Thanks, Rado
>
>
> -
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Upload file
Firstly Rado, there is a typo in your "open" line: a missing closing ".
The only other thing I would suggest is using BINMODE. See below for an
example routine.
> In EplSite WorkFlow i am using this routine and works fine:
>
> use CGI;
> $query = new CGI;
>
> if( $file = $query->param('ImageName') )
> {
>@thefile = split(/\\/,$file);
>$elements = @thefile;
>$thedocument = "[EMAIL PROTECTED]";
>$thedocument =~ s/\s/_/g;
>if( open (OUTFILE,">$globalp->{Documents_path}/$thedocument") )
>{
> binmode(OUTFILE);# Explicit binary mode
> while ($bytesread=read($fdat{attachthis},$buffer,32768))
>{
> print OUTFILE $buffer;
>}
> close(OUTFILE);
>}
> }
>
> I am using CGI for some manipulation on filename but you
> could not use it.
Ouch. CGI is completely unnecessary. Evaluating $fdat{ImageName} in
string context will provide the filename of the uploaded file - Embperl
is using CGI internally already to give you this filehandle. An
alternative version (with the usual off-the-top-of-my-head typo caveats)
that uses somewhat safer variable scope:
if (my $file = "$fdat{ImageName}") {
require File::Spec;
$file = (File::Spec->splitpath($file))[2] # just the filename, system
independently
$file =~ s/[^\w\.]/_/g;
$file =~ s/_+/_/g; # replace unwanted characters, somewhat
aggressively.
if ( open(OUTFILE, ">$some_path/$file") ) { # this should use
File::Spec as well.
binmode OUTFILE;
my $buffer;
print OUTFILE $buffer
while read($fdat{ImageName}, $buffer, 32768);
close OUTFILE;
}
}
Cheers,
Andrew
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
