home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / doc / libgnome2-vfs-perl / examples / monitor.pl < prev   
Encoding:
Perl Script  |  2005-05-08  |  396 b   |  21 lines
  1.  
  2. use strict;
  3. use warnings;
  4. use Gnome2::VFS -init;
  5.  
  6. push @ARGV, "file:///tmp" unless @ARGV;
  7. foreach my $dir (@ARGV) {
  8.     print STDERR "creating monitor $dir... ";
  9.     my($res,$handle)= Gnome2::VFS::Monitor->add ($dir, 'directory', \&dir_cb );
  10.     print STDERR "$res\n";
  11. }
  12.  
  13. Glib::MainLoop->new->run;
  14.  
  15. sub dir_cb {
  16.     my $self= shift;
  17.     my($dir, $file, $event)= @_;
  18.     print STDERR "$event: $file in $dir\n";
  19. }
  20.  
  21.