Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
more useful options
 
PerlMonks  

last hour of cb

by Tanktalus (Canon)
on Jan 26, 2007 at 20:59 UTC ( #596792=document: print w/ replies, xml ) Need Help??

Updates more-or-less every 5 minutes (except when there is no activity). Extracted from Tanktalus' CB Stats' database. Feedback
Shows the last hour or so, but never more than will fit in 64k, nor over two hours. Other sources of cb history
Last update: Apr 16, 2014 at 20:15 UTC

Previous message (not shown): Apr 16, 2014 at 18:39 UTC
[Voronich]Voronich was just invited to a "Truth in backup!" seminar. Who NAMES this crap?
[Voronich]On one hand, the CEO just sent a couple of us an email asking if we needed to go to this (free event in the city tomorrow.)
[Voronich]On the other hand... no. It's not even worth the day galavanting around in the city. just, no.
[MidLifeXis]Plugging Corion's network adapter cord into the backup unit's NIC: 'Speaking Power to Truth"?
[erix]erix always keeps at least one backup of the Truth
[erix]erix .oO(wouldn't mind some gallivanting in the city though)
[mikelieman]git push origin truth
[Voronich]me neither. But I'd be expected to do a write-up of the thing afterwards.
[Voronich]hrm... digging a little deeper, this guy is the ceo of "truth in IT" a company which seems to do nothing other than give these seminars, sponsored by vendors.
[PerlSufi]why would anyone do this? my $number_is_redacted = ( !defined $number || $number =~ m/^X{12}\d{4}$/ || $number eq "" );
[MidLifeXis]What do you think it does?
[Voronich]HA! I know that idiom. This'll be fun :-)
[PerlSufi]I think it breaks when after that there is an IF block with several || conditions, one of them saying and not $number_is_redacted, but I could be wrong
[MidLifeXis]Hint: Think how you might delete a number in a fixed length record.
[Voronich](wait...that's not quite what I do. nm.)
[MidLifeXis]s/delete/redact/
[MidLifeXis]16 digits is a visa/mc number.
[MidLifeXis]A little more thinking - my hint is off somewhat.
[PerlSufi]hmm
[PerlSufi]http://www.paypalobjects.com/en_US/vhelp/paypalmanager_help/credit_card_numbers.htm + MLX's comment just made me realize not all card numbers are 16
[Voronich]The real answer is what would satisfy that regex, and how does that fit the other two possibilities?
[MidLifeXis]Is there some block of code that you don't want to execute unless you have a valid CC# (or conversely, is there a block you don't want to run against live data?)
[atcroft]PerlSufi: AmEx isn't, if memory serves...
[MidLifeXis]Amex is 14, Discover is 15, iirc.
[MidLifeXis]ISTR there being a couple others that are longer as well.
[MidLifeXis]I was originally thinking of it from the POV of redacting a record in a 'fixed length' record format. Until you repacked the data you would seek+write a record filled with 'X' x $RECORD_LENGTH

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (11)
As of 2014-04-16 20:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (433 votes), past polls