#! /tools/bin/perl

sub auth 
{
my $env_file="/tmp/ssh-push";

open(FILE,$env_file);
my @lines=<FILE>;
close(FILE);
chomp(@lines);

foreach $line (@lines) {
	my ($trash,$var,$value)=split(/\s/,$line);
	chop($value);
	$ENV{$var}=$value;
} # End of foreach
} # End of auth

sub make_dir
{
$cmd="cd /usr/www/push/php/scripts; ./getalldirs.pl";
system($cmd);
} # End of make_dir

1;