Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: How to access shared protected folder over network

by moritz (Cardinal)
on Oct 19, 2011 at 12:47 UTC ( #932388=note: print w/replies, xml ) Need Help??

in reply to How to access shared protected folder over network

The right path is to solve the problem on the OS level, and make the network folder available with a local path. How that works is dependent of the type of network file system (SMB? NFS? AFS? something completely different?)

If you want to do the file copying with Perl, you can then do it to that local path, just as if it were also stored locally. If not, I don't see the connection to perlmonks.

  • Comment on Re: How to access shared protected folder over network

Replies are listed 'Best First'.
Re^2: How to access shared protected folder over network
by vishalkbhatt on Oct 19, 2011 at 13:09 UTC
    Basically the script is developed to keep an eye on every person's computer working in my company. It takes screenshots of their monitors at random time and upload them on server. SO now the problem in making the network folder available locally is then everyone will be able to access it and that defeats the purpose of running this script itself. That is why I need to store it on the network folder and that too with password protection.

      Wow. Does the country you work in have any privacy laws? Stuff like that is forbidden where I live (Germany), and in many other countries.

      There are better existing solutions for spying on employees, I suggest you seek them out
      makes me feel glad to be living in a country where people like you are prevented from doing nasty things like that. What you need is not a Perl script but a bit of trust in your employees. You'll be amazed what that can do to a working environment....

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://932388]
[Cosmic37]: now I have tried another blunder - can anyone explain why I am such a dunderhead?
[Cosmic37]: if ( $line =~ /$mydt/ ) { print $line; }
[Cosmic37]: I try to match successive date times stored in variable $mydt
[Cosmic37]: I guess it is searching for the string "$mydt"
[Corion]: Indeed cool, erix ;)
[Cosmic37]: rather than the value of $mydt which is a date time strong such as 2016-01-01 12:30:56
[Corion]: Cosmic37: No, but maybe $mydt doesn't contain what you think it does, or it contains characters that are special in a regular expression? Try if( $line =~ /\Q$mydt\E/) { ... for a literal match
[Cosmic37]: I mean string grrr
[Corion]: Maybe add an else branch in which you print what the values of $line and $mydt are?
[Cosmic37]: ah thank you I will try

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (11)
As of 2017-06-29 16:58 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (673 votes). Check out past polls.