Author: sparky Date: Thu Sep 17 23:47:12 2009 New Revision: 10620 Modified: toys/rsget.pl/RSGet/Get.pm toys/rsget.pl/RSGet/Processor.pm Log: - cookie creator
Modified: toys/rsget.pl/RSGet/Get.pm ============================================================================== --- toys/rsget.pl/RSGet/Get.pm (original) +++ toys/rsget.pl/RSGet/Get.pm Thu Sep 17 23:47:12 2009 @@ -136,6 +136,20 @@ return $self->stage0(); } +sub cookie +{ + my $self = shift; + + return unless $self->{_cookie}; + return if -r $self->{_cookie}; + + open my $c, ">", $self->{_cookie}; + foreach my $line ( @_ ) { + print $c join( "\t", @$line ), "\n"; + } + close $c; +} + sub get { my $self = shift; Modified: toys/rsget.pl/RSGet/Processor.pm ============================================================================== --- toys/rsget.pl/RSGet/Processor.pm (original) +++ toys/rsget.pl/RSGet/Processor.pm Thu Sep 17 23:47:12 2009 @@ -42,6 +42,12 @@ pr join( ", ", @opts ) . ", " if @opts; } +sub p_func +{ + my $f = shift; + pr $space . "\${self}->$f("; +} + sub p_line { s/\$-{/\$self->{/g; @@ -205,11 +211,8 @@ } elsif ( s/^MULTI\s*\(// ) { p_ret( "multi" ); p_line(); - } elsif ( s/^PRINT\s*\(// ) { - pr $space . '$self->print('; - p_line(); - } elsif ( s/^LOG\s*\(// ) { - pr $space . '$self->log('; + } elsif ( s/^(PRINT|LOG|COOKIE)\s*\(// ) { + p_func( lc $1 ); p_line(); } elsif ( s/^!\s+// ) { my $line = quotemeta $_; _______________________________________________ pld-cvs-commit mailing list pld-cvs-commit@lists.pld-linux.org http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit