sandweb-commit Mailing List for SandWeb (Page 6)

Brought to you by: formnull, njennings

sandweb-commit — CVS activity

You can subscribe to this list here.

2001	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct (28)	_Nov (58)	_Dec (85)
2002	_Jan (125)	_Feb (222)	_Mar (274)	_Apr (51)	_May (22)	_Jun (50)	_Jul (15)	_Aug (33)	_Sep (11)	_Oct (29)	_Nov (17)	_Dec (1)
2003	_Jan (100)	_Feb (21)	_Mar (7)	_Apr (45)	_May	_Jun (43)	_Jul (27)	_Aug (24)	_Sep	_Oct	_Nov	_Dec
2004	_Jan (1)	_Feb	_Mar (13)	_Apr	_May (1)	_Jun	_Jul	_Aug (7)	_Sep	_Oct	_Nov	_Dec (4)
2005	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec (1)

Flat | Threaded

<< < 1 .. 4 5 6 7 8 .. 53 > >> (Page 6 of 53)

[Sandweb-commit] CVS: sandweb/tools install_script.pl,1.22,1.23

From: Nick J. <nje...@us...> - 2003-04-23 23:12:16

Update of /cvsroot/sandweb/sandweb/tools
In directory sc8-pr-cvs1:/tmp/cvs-serv19352/tools

Modified Files:
	install_script.pl 
Log Message:
trivial text formatting correction.


Index: install_script.pl
===================================================================
RCS file: /cvsroot/sandweb/sandweb/tools/install_script.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -U2 -r1.22 -r1.23
--- install_script.pl	1 Apr 2003 01:21:40 -0000	1.22
+++ install_script.pl	23 Apr 2003 22:46:17 -0000	1.23
@@ -136,7 +136,7 @@
 print "sandweb.cgi, ";
 system('tools/change-entry.pl', "$bindir/sandweb-admin", "config_dir = '../etc'", "config_dir = '$cfgdir'");
-print "sandweb-admin\n";
+print "sandweb-admin, ";
 system('tools/change-entry.pl', "$bindir/sandweb-expect", "#!expect", "#!$expectbin");
-print "sandweb-expect\n";
+print "sandweb-expect.\n";
 
 # set execute permissions for scripts

[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.83,1.84

From: Nick J. <nje...@us...> - 2003-04-23 22:57:21

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory sc8-pr-cvs1:/tmp/cvs-serv23344/lib/SandWeb

Modified Files:
	Browse.pm 
Log Message:
lots of code formatting (tabs)
fixed some checking of undefined vars to cut down on warnings.


Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.83
retrieving revision 1.84
diff -U2 -r1.83 -r1.84
--- Browse.pm	22 Apr 2003 17:40:32 -0000	1.83
+++ Browse.pm	23 Apr 2003 22:57:17 -0000	1.84
@@ -237,9 +237,9 @@
 
 	# Security check
-        my $secure = SandWeb::Security->new();
+	my $secure = SandWeb::Security->new();
 
-        my $location = $secure->path(
-                filename => "$unsafe_location"
-        );
+	my $location = $secure->path(
+		filename => "$unsafe_location"
+	);
 
 	my $progname = $args{'progname'};
@@ -248,6 +248,6 @@
 	my $sort = $args{'sort'};
 	my $viewcvs = $args{'viewcvs'};
-  my $localstatus = $args{'localstatus'};
-  my @localstatusoutput=@$localstatus;
+	my $localstatus = $args{'localstatus'};
+	my @localstatusoutput=@$localstatus;
 
 	my $username = $self->_get_username();
@@ -258,5 +258,5 @@
 	my $sandbox = "$users_dir/$username/$repo_name/$module_name";
 
-  my %Entries;
+	my %Entries;
 
 	if (! $sandbox) {
@@ -293,53 +293,53 @@
 
 
-  ##
-  # Reading status in current directory
-  #
-  #$log->debug("Local status: @localstatusoutput");
-  my @output=split( /File:/, $localstatusoutput[0]); 
-  my $line;
-  my $line2;
-  for $line (@output)
-  {
-    $log->debug("line: ".$line."\n");
-    #if ($line=~m/^([a-zA-Z0-9_\-\.]+) Status: ([a-zA-Z_\-]+)/)
-    $line2=$line;
-    if ($line=~m/^[ ]*([a-zA-Z0-9_\-\.]+)/)
-    {
-      $log->debug("File: ".$1);
-    }
-    my $name=$1;
+	##
+	# Reading status in current directory
+	#
+	#$log->debug("Local status: @localstatusoutput");
+	my @output=split( /File:/, $localstatusoutput[0]); 
+	my $line;
+	my $line2;
+	for $line (@output) {
+		$log->debug("line: ".$line."\n");
+		#if ($line=~m/^([a-zA-Z0-9_\-\.]+) Status: ([a-zA-Z_\-]+)/)
+		$line2=$line;
+
+		if ($line=~m/^[ ]*([a-zA-Z0-9_\-\.]+)/) {
+			$log->debug("File: ".$1);
+		}
+		my $name=$1;
     
-    if ($line2=~m/Status: ([a-zA-Z0-9_\-\. ]+)/)
-    {
-      $log->debug("Status: ".$1);
-    }
-    $Entries{$name}{"STATUS"}=$1;
-  }
+		if ($line2=~m/Status: ([a-zA-Z0-9_\-\. ]+)/) {
+			$log->debug("Status: ".$1);
+		}
+		$Entries{$name}{"STATUS"}=$1;
+	}
 
   
-  ##
-  # Reading the CVS/Entries file if it is there
-  #
-  my $entries_file="$sandbox/$location/CVS/Entries";
-
-  $log->debug("debug: CVS/Entries file : $entries_file exists\n");
-  if (open(EF, $entries_file))
-  {
-    # The CVS/Entries file exists!
-    my @entries_file_content = <EF>;
-    $log->debug("debug: The CVS/Entries file $entries_file exists\n");
-    my $line;
-    for $line (@entries_file_content)
-    {
-      $log->debug("debug: $line");
-      my ($dir, $name, $revision, $timestamp_and_conflict, $options, $tagdate) = split( /\//, $line);
-      #cut prefixing T or D from tag if there
-      $tagdate =~ s/^[TD]//;
-      chomp($tagdate);
+	##
+	# Reading the CVS/Entries file if it is there
+	#
+	my $entries_file="$sandbox/$location/CVS/Entries";
+
+	$log->debug("debug: CVS/Entries file : $entries_file exists\n");
+	if (open(EF, $entries_file)) {
+	    # The CVS/Entries file exists!
+		$log->debug("debug: The CVS/Entries file $entries_file exists\n");
+		my @entries_file_content = <EF>;
+		close(EF);
+		my $line;
+		for $line (@entries_file_content) {
+			chomp $line;
+			$log->debug("splitting line: $line");
+			my ($dir, $name, $revision, $timestamp_and_conflict, $options, $tagdate) = split( /\//, $line);
+
+			if ($tagdate) {
+				#cut prefixing T or D from tag if there
+				$tagdate =~ s/^[TD]//;
+			}
 			
 			# sanitize filename for HTTP
 			#Unsafe Characters; RFC 2068
-      $name =~ s/%/%25/g;
+			$name =~ s/%/%25/g;
 			$name =~ s/"/%22/g;
 			$name =~ s/#/%23/g;
@@ -347,13 +347,12 @@
 			$name =~ s/>/%3E/g;
 			
-      #fill in a record in Entries hash
-      $Entries{$name}{"REVISION"} = $revision;
-      $Entries{$name}{"TIMESTAMP"}= $timestamp_and_conflict;
-      $Entries{$name}{"OPTIONS"}  = $options;
-      $Entries{$name}{"TAGDATE"}  = $tagdate;
-      $log->debug("dir $dir, name $name, revision $revision, timestamp $timestamp_and_conflict, options $options, tagdate \'$tagdate\'");      
-    }
-    close(EF);
-  }
+			#fill in a record in Entries hash
+			$Entries{$name}{"REVISION"} = $revision || '';
+			$Entries{$name}{"TIMESTAMP"}= $timestamp_and_conflict || '';
+			$Entries{$name}{"OPTIONS"}  = $options || '';
+			$Entries{$name}{"TAGDATE"}  = $tagdate || '';
+			$log->debug("results: name=$name, $Entries{$name}{'REVISION'}, timestamp_and_conflict=$Entries{$name}{'TIMESTAMP'}, options=$Entries{$name}{'OPTIONS'}, tagdate=$Entries{$name}{'TAGDATE'}\n");
+		}
+	}
   
 
@@ -382,28 +381,22 @@
 			$row_data{FILEAGE} = $file->get_age();
 
-      ##
-      # put in version info
-      if (defined($Entries{$filename}{"REVISION"}))
-      {
-        $row_data{REVISION}   = $Entries{$filename}{"REVISION"} ;
-        $row_data{STATUS}     = $Entries{$filename}{"STATUS"} ;
-        #$row_data{TIMESTAMP} = $Entries{$filename}{"TIMESTAMP"};
-        #$row_data{OPTIONS}   = $Entries{$filename}{"OPTIONS"}  ;
-        if ($Entries{$filename}{"TAGDATE"} eq "")
-        {
-          $row_data{TAGDATE}    = "MAIN";
-        }
-        else
-        {
-          $row_data{TAGDATE}    = $Entries{$filename}{"TAGDATE"}  ;
-        }
-      }
-      else
-      {
-        $row_data{REVISION}  = '?';
-        #$row_data{TIMESTAMP} = '';
-        #$row_data{OPTIONS}   = '';
-        $row_data{TAGDATE}   = '?';
-      }
+			##
+			# put in version info
+			if (defined($Entries{$filename}{"REVISION"})) {
+				$row_data{REVISION}   = $Entries{$filename}{"REVISION"} ;
+				$row_data{STATUS}     = $Entries{$filename}{"STATUS"} ;
+				#$row_data{TIMESTAMP} = $Entries{$filename}{"TIMESTAMP"};
+				#$row_data{OPTIONS}   = $Entries{$filename}{"OPTIONS"}  ;
+				if ($Entries{$filename}{"TAGDATE"} eq "") {
+					$row_data{TAGDATE}    = "MAIN";
+				} else {
+					$row_data{TAGDATE}    = $Entries{$filename}{"TAGDATE"}  ;
+				}
+			} else {
+				$row_data{REVISION}  = '?';
+				#$row_data{TIMESTAMP} = '';
+				#$row_data{OPTIONS}   = '';
+				$row_data{TAGDATE}   = '?';
+			}
 
 			if ( $file->get_file_type() eq "Directory" ) {
@@ -418,8 +411,8 @@
 					$row_data{COLOR} = 1;
 				}
-        $row_data{REVISION}  = '-';
-        #$row_data{TIMESTAMP} = '';
-        #$row_data{OPTIONS}   = '';
-        $row_data{TAGDATE}   = '-';
+				$row_data{REVISION}  = '-';
+				#$row_data{TIMESTAMP} = '';
+				#$row_data{OPTIONS}   = '';
+				$row_data{TAGDATE}   = '-';
 			}
 			elsif ( $file->get_file_type() eq "Text" ) {
@@ -591,9 +584,9 @@
 
 	# Security check
-        my $secure = SandWeb::Security->new();
+	my $secure = SandWeb::Security->new();
 
-        my $location = $secure->path(
-                filename => "$unsafe_location"
-        );
+	my $location = $secure->path(
+		filename => "$unsafe_location"
+	);
 
 	my $progname = $args{'progname'};

[Sandweb-commit] CVS: sandweb/lib/SandWeb Shell.pm,1.32,1.33

From: Nick J. <nje...@us...> - 2003-04-23 22:54:07

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory sc8-pr-cvs1:/tmp/cvs-serv21744/lib/SandWeb

Modified Files:
	Shell.pm 
Log Message:
many formatting fixes (tabs)
Also, fixed Barts problem, seems system_timeout wasn't being set properly,
and ontop of that, the default (if value is null) was set to a string '',
so this caused problems. Fixed assignment, and set default to 300 just in
case this happens again.


Index: Shell.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Shell.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -U2 -r1.32 -r1.33
--- Shell.pm	1 Apr 2003 02:46:27 -0000	1.32
+++ Shell.pm	23 Apr 2003 22:53:43 -0000	1.33
@@ -162,5 +162,5 @@
 
 	# system_password is the user's password on the local box ( optional )
-	my $system_timeout = $args{'system_timeout'} || '';
+	my $system_timeout = $args{'system_timeout'} || 300;
 
 	# users_dir is the user's SandWeb home directory ( required )
@@ -288,11 +288,10 @@
 		
 				my %return = (
-				output => "$output",
-				error => "$error_message",
-			);
-
-			return %return;
-		}
+					output => "$output",
+					error => "$error_message",
+				);
 
+				return %return;
+			}
 
 			$error = $?/256;
@@ -313,8 +312,7 @@
 
 			if ( "$@" ) {
-
 				my $output = "";
 				my $error_message = "Timeout reached of $system_timeout seconds reached, operation aborted.\n";
-		
+			
 				my %return = (
 					output => "$output",
@@ -324,11 +322,11 @@
 				return %return;
 			}
-
+	
 			$error = $?/256;
-                        $raw_output =~ s/^M/\n/g;
-                        my @lined_output = split(/\n/, $raw_output);
-                        shift @lined_output;
-                        shift @lined_output;
-                        $output = join('', @lined_output);
+			$raw_output =~ s/^M/\n/g;
+			my @lined_output = split(/\n/, $raw_output);
+			shift @lined_output;
+			shift @lined_output;
+			$output = join('', @lined_output);
 		}
 	} elsif ( $vcs ) {
@@ -376,11 +374,12 @@
 		}
 
+		$raw_output =~ s/^M/\n/g;
+		my @lined_output = split(/\n/, $raw_output);
+		shift @lined_output;
 
-                $raw_output =~ s/^M/\n/g;
-                my @lined_output = split(/\n/, $raw_output);
-                shift @lined_output;
-                if ( "@lined_output" =~ "'s password:" ) {
+		if ( "@lined_output" =~ "'s password:" ) {
 			shift @lined_output;
 		}
+
 		if ( "@lined_output" =~ "^RSA key fingerprint is" ) {
 			shift @lined_output;
@@ -392,5 +391,5 @@
 			shift @lined_output;
 		}
-                $output = join('', @lined_output);
+		$output = join('', @lined_output);
 	} else {
 		if ($log) {
@@ -479,5 +478,5 @@
 	my %args = @_;
 
-	my $system_timeout = $self{'system_timeout'};
+	my $system_timeout = $self->{'system_timeout'};
 
 	my $log = $self->{'log'} || '';

[Sandweb-commit] CVS: sandweb/lib/SandWeb Config.pm,1.35,1.36

From: Nick J. <nje...@us...> - 2003-04-23 22:48:28

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory sc8-pr-cvs1:/tmp/cvs-serv19805/lib/SandWeb

Modified Files:
	Config.pm 
Log Message:
Apparently Perl 5.8 doesn't like overly complex hash ref assignments. At any
rate, the new assignment gives the same results, less characters. :)


Index: Config.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -U2 -r1.35 -r1.36
--- Config.pm	14 Jan 2003 09:49:47 -0000	1.35
+++ Config.pm	23 Apr 2003 22:48:23 -0000	1.36
@@ -350,6 +350,6 @@
 
 	my %data = ();
-	$data{'personal'} = ( %$self->{'personal'} );
-	$data{'repo'} = ( %$self->{'repo'} );
+	$data{'personal'} = $self->{'personal'};
+	$data{'repo'} = $self->{'repo'};
 
 	open(F, ">$config_dir/$config_file") or

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.350,1.351

From: Nick J. <nje...@us...> - 2003-04-23 22:45:52

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv19078/bin

Modified Files:
	sandweb.cgi 
Log Message:
This line was using an undefined (invalid) var. fixed.


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.350
retrieving revision 1.351
diff -U2 -r1.350 -r1.351
--- sandweb.cgi	22 Apr 2003 18:02:12 -0000	1.350
+++ sandweb.cgi	23 Apr 2003 22:45:47 -0000	1.351
@@ -956,5 +956,5 @@
 	);
   
-  $log->debug("current_location: ".$current_location{'location'});
+  $log->debug("current_location: ".$location);
   my %localstatus = $repository->status(file => ".", recurse => "false" );
   my @localstatusoutput=$localstatus{output};

[Sandweb-commit] CVS: sandweb Makefile.PL,1.12,1.13

From: Nick J. <nje...@us...> - 2003-04-23 20:52:31

Update of /cvsroot/sandweb/sandweb
In directory sc8-pr-cvs1:/tmp/cvs-serv4458a

Modified Files:
	Makefile.PL 
Log Message:
Added previously unchecked dependancy CGI (not sure what minimum required
version is so I put 0). This was previously not checked, since it's such
a standard module, but I caught it on my current system which didn't have
any perl modules installed except for the ones which come with perl.


Index: Makefile.PL
===================================================================
RCS file: /cvsroot/sandweb/sandweb/Makefile.PL,v
retrieving revision 1.12
retrieving revision 1.13
diff -U2 -r1.12 -r1.13
--- Makefile.PL	28 Mar 2002 04:46:59 -0000	1.12
+++ Makefile.PL	23 Apr 2003 20:52:25 -0000	1.13
@@ -20,4 +20,5 @@
 		'HTML::Template' => '2.2',
 		'Digest::MD5' => '0',
+		'CGI' => '0',
 	},

[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository cvs.pm,1.46,1.47

From: Nick J. <nje...@us...> - 2003-04-23 20:36:40

Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Repository
In directory sc8-pr-cvs1:/tmp/cvs-serv28951/lib/SandWeb/Repository

Modified Files:
	cvs.pm 
Log Message:
Fixed code formatting (tabs) and a minor syntax error.


Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.46
retrieving revision 1.47
diff -U2 -r1.46 -r1.47
--- cvs.pm	1 Apr 2003 02:46:27 -0000	1.46
+++ cvs.pm	23 Apr 2003 20:36:34 -0000	1.47
@@ -259,8 +259,9 @@
 		$log->debug("File: $file");
 	}
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -399,8 +400,8 @@
 	if ($type == "text") { push @param, " -kkv -MMERGE" };
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -470,5 +471,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $date = $params{'type'};
 	my $rev = $params{'rev'};
@@ -486,8 +487,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -576,5 +577,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $rev = $params{'rev'};
 	my $recurse = $params{'recurse'};
@@ -593,8 +594,8 @@
 	}
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -675,5 +676,5 @@
 	my $log = $self->get_log();
 	my $users_dir = $self->get_users_dir();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $recurse = $params{'recurse'};
 	my $message = $params{'message'};
@@ -710,10 +711,10 @@
 			$log->debug("File: " . $file_obj->get_filename() );
 		}
-        	%return = $self->shell(
-                	'param' => join('', @param),
-                	'file' => "$file",
+		%return = $self->shell(
+			'param' => join('', @param),
+			'file' => "$file",
 			'file_obj' => $file_obj,
-        	);
-	};
+		);
+	}
 
 	if ($output) {
@@ -795,5 +796,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $date = $params{'date'};
 	my $rev = $params{'rev'};
@@ -897,5 +898,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $recurse = $params{'recurse'};
 	my $action = $params{'action'};
@@ -911,8 +912,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -977,5 +978,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $recurse = $params{'recurse'};
 	my $file = $params{'file'};
@@ -989,8 +990,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -1157,5 +1158,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $file = $params{'file'};
 
@@ -1166,8 +1167,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -1291,5 +1292,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $file = $params{'file'};
 
@@ -1300,8 +1301,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -1379,5 +1380,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $file = $params{'file'};
 
@@ -1388,8 +1389,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -1451,5 +1452,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $password = $params{'password'};
 
@@ -1467,8 +1468,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -1533,8 +1534,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -1715,5 +1716,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $delete = $params{'delete'};
 	my $file = $params{'file'};
@@ -1727,8 +1728,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -1793,5 +1794,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $remove = $params{'remove'};
 	my $recurse = $params{'recurse'};
@@ -1810,8 +1811,8 @@
 	}
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -2094,5 +2095,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $recurse = $params{'recurse'};
 	my $delete = $params{'delete'};
@@ -2199,5 +2200,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $recurse = $params{'recurse'};
 	my $file = $params{'file'};
@@ -2211,8 +2212,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -2298,5 +2299,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $recurse = $params{'recurse'};
 	my $reset = $params{'reset'};
@@ -2332,8 +2333,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	if ($return{'error'}) {
@@ -2444,5 +2445,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $set = $params{'set'};
 	my $notify = $params{'notify'};
@@ -2460,8 +2461,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -2525,5 +2526,5 @@
 
 	my $log = $self->get_log();
-        my %params = @{ $args{'params'}[0] };
+	my %params = @{ $args{'params'}[0] };
 	my $recurse = $params{'recurse'};
 	my $file = $params{'file'};
@@ -2537,8 +2538,8 @@
 	$log->debug("File: $file");
 
-        my %return = $self->shell(
-                'param' => join('', @param),
-                'file' => "$file",
-        );
+	my %return = $self->shell(
+		'param' => join('', @param),
+		'file' => "$file",
+	);
 
 	return %return;
@@ -2550,17 +2551,17 @@
 
 	my $root = $self->get_root() || '';
-        my $sandbox = $self->get_sandbox() || '';
-        my $users_dir = $self->get_users_dir() || '';
-        my $connection = $self->get_connection() || '';
-        my $server = $self->get_server() || '';
-        my $ssh_bin = $self->get_ssh_bin() || '';
-        my $cvs_bin = $self->get_cvs_bin() || '';
+	my $sandbox = $self->get_sandbox() || '';
+	my $users_dir = $self->get_users_dir() || '';
+	my $connection = $self->get_connection() || '';
+	my $server = $self->get_server() || '';
+	my $ssh_bin = $self->get_ssh_bin() || '';
+	my $cvs_bin = $self->get_cvs_bin() || '';
 	my $bindir = $self->get_bindir() || '';
-        my $vcs_username = $self->get_vcs_username() || '';
-        my $vcs_password = $self->get_vcs_password() || '';
-        my $system_username = $self->get_system_username() || '';
-        my $system_password = $self->get_system_password() || '';
-        my $system_timeout = $self->get_system_timeout() || '';
-        my $log = $self->get_log() || '';
+	my $vcs_username = $self->get_vcs_username() || '';
+	my $vcs_password = $self->get_vcs_password() || '';
+	my $system_username = $self->get_system_username() || '';
+	my $system_password = $self->get_system_password() || '';
+	my $system_timeout = $self->get_system_timeout() || '';
+	my $log = $self->get_log() || '';
 
 	my $vcs = '';

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.349,1.350

From: Rob H. <for...@us...> - 2003-04-22 18:02:20

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv13568/bin

Modified Files:
	sandweb.cgi 
Log Message:
merged ongoing tag/branch fixage going on in the 1.0 branch


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.349
retrieving revision 1.350
diff -U2 -r1.349 -r1.350
--- sandweb.cgi	22 Apr 2003 17:40:20 -0000	1.349
+++ sandweb.cgi	22 Apr 2003 18:02:12 -0000	1.350
@@ -240,4 +240,6 @@
 		my $previous_url = $cgi->param('previous_url') || '';
 		my $main_window_url = $cgi->param('main_window_url') || '';
+		# whether or not this is a submenu
+		my $submenu = $cgi->param('submenu') || '';
 
 		$log->debug("action: $action - submit: $submit");
@@ -326,5 +328,5 @@
 					my $create_tag = $cgi->param('create_tag') || '';
 					my $remove_tag = $cgi->param('remove_tag') || '';
-					if ($submit) {
+					if ($submenu) {
 						tag_commit(
 							ck_auth => $ck_auth,
@@ -1904,4 +1906,5 @@
 	my $params = $args{'params'};
 	my $main_window_url = $args{'main_window_url'} || '';
+	my $submenu = $args{'submenu'} || '';
 	my @filename_loop = ();
 	my $count = 0;
@@ -1984,4 +1987,5 @@
 		MAIN_WINDOW_URL => $main_window_url,
 		IMAGE_DIR => $image_dir,
+		SUBMENU => $submenu,
 	);
 	print $cgi->header( -cookie => $ck_auth );
@@ -2527,5 +2531,5 @@
 # vcs_commit
 #
-# all browse VCS actions are caught by this subroutine, and dealt
+# all VCS actions are caught by this subroutine, and dealt
 # with by calling the appropriate Repository method.
 #
@@ -3226,4 +3230,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($tag_switch) {
@@ -3244,4 +3249,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($trunk_sync) {
@@ -3261,4 +3267,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($trunk_switch) {
@@ -3279,4 +3286,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 
@@ -3297,4 +3305,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($remove_tag) {
@@ -3315,4 +3324,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.348,1.348.2.1

From: Rob H. <for...@us...> - 2003-04-22 17:55:49

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv7654

Modified Files:
      Tag: release-1_0-branch
	sandweb.cgi 
Log Message:
better debug output ( from Claus' patch )


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.348
retrieving revision 1.348.2.1
diff -U2 -r1.348 -r1.348.2.1
--- sandweb.cgi	22 Apr 2003 17:11:59 -0000	1.348
+++ sandweb.cgi	22 Apr 2003 17:55:40 -0000	1.348.2.1
@@ -3637,5 +3637,5 @@
 		$log->debug("ERROR: $msg");
 		$log->error("$msg");
-		set_message("Unable to write config file for $username.");
+		set_message("Unable to write config file for $username in directory named ".$config->{'paths'}->{'users_dir'} . "/$username". $msg);
 		return 0;
 	}

[Sandweb-commit] CVS: sandweb/images create_folder.png,1.6,1.7 create_folder.xcf,1.6,1.7 delete.png,1.6,1.7 delete.xcf,1.6,1.7 rename.png,1.6,1.7 rename.xcf,1.6,1.7 upload.png,1.6,1.7 upload.xcf,1.6,1.7

From: Rob H. <for...@us...> - 2003-04-22 17:41:13

Update of /cvsroot/sandweb/sandweb/images
In directory sc8-pr-cvs1:/tmp/cvs-serv26470/images

Modified Files:
	create_folder.png create_folder.xcf delete.png delete.xcf 
	rename.png rename.xcf upload.png upload.xcf 
Log Message:
committing my new images, and merging the patch from 
Claus Henrikson <lin...@ya...> that adds ViewCVS integration.



Index: create_folder.png
===================================================================
RCS file: /cvsroot/sandweb/sandweb/images/create_folder.png,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
Binary files /tmp/cvsRXpid8 and /tmp/cvsm5aQ85 differ

Index: create_folder.xcf
===================================================================
RCS file: /cvsroot/sandweb/sandweb/images/create_folder.xcf,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
Binary files /tmp/cvspDEjBb and /tmp/cvs1RjxKd differ

Index: delete.png
===================================================================
RCS file: /cvsroot/sandweb/sandweb/images/delete.png,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
Binary files /tmp/cvs1MVoCd and /tmp/cvskyI1Zg differ

Index: delete.xcf
===================================================================
RCS file: /cvsroot/sandweb/sandweb/images/delete.xcf,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
Binary files /tmp/cvs6wHjPc and /tmp/cvsmknrlf differ

Index: rename.png
===================================================================
RCS file: /cvsroot/sandweb/sandweb/images/rename.png,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
Binary files /tmp/cvsH36uUe and /tmp/cvsmfz4Rl differ

Index: rename.xcf
===================================================================
RCS file: /cvsroot/sandweb/sandweb/images/rename.xcf,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
Binary files /tmp/cvs5I7Du9 and /tmp/cvsE2cfw8 differ

Index: upload.png
===================================================================
RCS file: /cvsroot/sandweb/sandweb/images/upload.png,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
Binary files /tmp/cvsLHTIgz and /tmp/cvs0hYEjY differ

Index: upload.xcf
===================================================================
RCS file: /cvsroot/sandweb/sandweb/images/upload.xcf,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
Binary files /tmp/cvsDgaJtL and /tmp/cvsGDVSDm differ

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.348,1.349

From: Rob H. <for...@us...> - 2003-04-22 17:40:56

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv26470/bin

Modified Files:
	sandweb.cgi 
Log Message:
committing my new images, and merging the patch from 
Claus Henrikson <lin...@ya...> that adds ViewCVS integration.



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.348
retrieving revision 1.349
diff -U2 -r1.348 -r1.349
--- sandweb.cgi	22 Apr 2003 17:11:59 -0000	1.348
+++ sandweb.cgi	22 Apr 2003 17:40:20 -0000	1.349
@@ -74,4 +74,7 @@
 my $config_dir = '../etc';
 
+# for viewcvs support in browser
+my $viewcvs='http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/sandweb/';
+
 # internal global vars
 my $message = '';
@@ -237,6 +240,4 @@
 		my $previous_url = $cgi->param('previous_url') || '';
 		my $main_window_url = $cgi->param('main_window_url') || '';
-		# whether or not this is a submenu
-		my $submenu = $cgi->param('submenu') || '';
 
 		$log->debug("action: $action - submit: $submit");
@@ -325,5 +326,5 @@
 					my $create_tag = $cgi->param('create_tag') || '';
 					my $remove_tag = $cgi->param('remove_tag') || '';
-					if ($submenu) {
+					if ($submit) {
 						tag_commit(
 							ck_auth => $ck_auth,
@@ -872,4 +873,5 @@
 		'bindir' => $bindir,
 		'log_obj' => $log,
+    'sandbox' => "$users_dir/$username/$repo_name/$module_name",
 	);
 
@@ -951,4 +953,8 @@
 		LOCATION_LOOP => \@loop_data,
 	);
+  
+  $log->debug("current_location: ".$current_location{'location'});
+  my %localstatus = $repository->status(file => ".", recurse => "false" );
+  my @localstatusoutput=$localstatus{output};
 
 	my %browser = $browse->get_browser(
@@ -958,4 +964,6 @@
 		'repo_name' => $repo_name,
 		'sort' => $sort,
+    'viewcvs' => $viewcvs,
+    'localstatus' => \@localstatusoutput,
 	);
 
@@ -1887,14 +1895,13 @@
 	my %args = @_;
 
-	my $ck_auth = $args{'ck_auth'} || '';
-	my $location = $args{'location'} || '';
-	my $module_name = $args{'module_name'} || '';
-	my $repo_name = $args{'repo_name'} || '';
-	my $repo_password = $args{'repo_password'} || '';
-	my $vcs_command = $args{'vcs_command'} || '';
-	my $vcs_message = $args{'message'} || '';
-	my $params = $args{'params'} || '';
+	my $ck_auth = $args{'ck_auth'};
+	my $location = $args{'location'};
+	my $module_name = $args{'module_name'};
+	my $repo_name = $args{'repo_name'};
+	my $repo_password = $args{'repo_password'};
+	my $vcs_command = $args{'vcs_command'};
+	my $vcs_message = $args{'message'};
+	my $params = $args{'params'};
 	my $main_window_url = $args{'main_window_url'} || '';
-	my $submenu = $args{'submenu'} || '';
 	my @filename_loop = ();
 	my $count = 0;
@@ -1977,5 +1984,4 @@
 		MAIN_WINDOW_URL => $main_window_url,
 		IMAGE_DIR => $image_dir,
-		SUBMENU => $submenu,
 	);
 	print $cgi->header( -cookie => $ck_auth );
@@ -2521,5 +2527,5 @@
 # vcs_commit
 #
-# all VCS actions are caught by this subroutine, and dealt
+# all browse VCS actions are caught by this subroutine, and dealt
 # with by calling the appropriate Repository method.
 #
@@ -3220,5 +3226,4 @@
 			main_window_url => $main_window_url,
 		);
-		exit;
 	}
 	if ($tag_switch) {
@@ -3239,5 +3244,4 @@
 			main_window_url => $main_window_url,
 		);
-		exit;
 	}
 	if ($trunk_sync) {
@@ -3257,5 +3261,4 @@
 			main_window_url => $main_window_url,
 		);
-		exit;
 	}
 	if ($trunk_switch) {
@@ -3276,5 +3279,4 @@
 			main_window_url => $main_window_url,
 		);
-		exit;
 	}
 
@@ -3295,5 +3297,4 @@
 			main_window_url => $main_window_url,
 		);
-		exit;
 	}
 	if ($remove_tag) {
@@ -3314,5 +3315,4 @@
 			main_window_url => $main_window_url,
 		);
-		exit;
 	}
 
@@ -3637,5 +3637,5 @@
 		$log->debug("ERROR: $msg");
 		$log->error("$msg");
-		set_message("Unable to write config file for $username.");
+		set_message("Unable to write config file for $username in directory named ".$config->{'paths'}->{'users_dir'} . "/$username". $msg);
 		return 0;
 	}

[Sandweb-commit] CVS: sandweb/templates browse_module.html,1.28,1.29

From: Rob H. <for...@us...> - 2003-04-22 17:40:39

Update of /cvsroot/sandweb/sandweb/templates
In directory sc8-pr-cvs1:/tmp/cvs-serv26470/templates

Modified Files:
	browse_module.html 
Log Message:
committing my new images, and merging the patch from 
Claus Henrikson <lin...@ya...> that adds ViewCVS integration.



Index: browse_module.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/browse_module.html,v
retrieving revision 1.28
retrieving revision 1.29
diff -U2 -r1.28 -r1.29
--- browse_module.html	13 Jan 2003 08:07:27 -0000	1.28
+++ browse_module.html	22 Apr 2003 17:40:33 -0000	1.29
@@ -18,5 +18,8 @@
 
 
+
 </script>
+
+
 <table width="100%" border="0" align="center" cellspacing="0" cellpadding="0">
 	<tr>
@@ -24,13 +27,20 @@
 			<table width="100%" border="1">
 			<tr>
-				<td width="60%" align="left" colspan="3">
+				<td width="60%" align="left" colspan="5">
 					<input type="checkbox" onClick="javascript:selectAllClearAll(document.browse.select, document.browse.filename)" name="select" value="true"> Select all
 				</td>
 			</tr>
 			<tr>
-				<td width="60%" align="left" bgcolor="#88FF88">
+				<td width="40%" align="left" bgcolor="#88FF88">
 					<font size="2">
 					  &nbsp; <b><a href="<TMPL_VAR NAME=PROGNAME>?action=browse_module&location=<TMPL_VAR NAME=LOCATION>&module_name=<TMPL_VAR NAME=MODULE_NAME>&repo_name=<TMPL_VAR NAME=REPO_NAME>&sort=<TMPL_VAR NAME=SORT>">File</a></b>
                                         </font>
+                                      </td>
+ 				<td  width="20%" align="left" bgcolor="#66ffff">
+          <font size="2">&nbsp; <b>Status</b> </font>
+				</td>
+
+				<td  width="20%" align="left" bgcolor="#ffff33">
+          <font size="2">&nbsp; <b>Tag&nbsp;/&nbsp;Revision</b> </font>
 				</td>
 				<td width="10%" align="left" bgcolor="#CCCCCC">
@@ -39,5 +49,5 @@
                                         </font>
 				</td>
-				<td width="30%" align="left" bgcolor="#CCCCCC">
+        <td width="10%" align="left" bgcolor="#CCCCCC">
 					<font size="2">
 					  &nbsp; Age
@@ -55,17 +65,33 @@
 						<a name="<TMPL_VAR NAME=ENTRY>">
 					</input>
-					<a href="<TMPL_VAR NAME=PROGNAME>?<TMPL_VAR NAME=LINK>&location=<TMPL_VAR NAME=LOCATION>&module_name=<TMPL_VAR NAME=MODULE_NAME>&repo_name=<TMPL_VAR NAME=REPO_NAME>">
+					<font size="-1">
+          <a href="<TMPL_VAR NAME=PROGNAME>?<TMPL_VAR NAME=LINK>&location=<TMPL_VAR NAME=LOCATION>&module_name=<TMPL_VAR NAME=MODULE_NAME>&repo_name=<TMPL_VAR NAME=REPO_NAME>">
 						<img src="/icons/<TMPL_VAR NAME=FILETYPE>.gif" 
 						     alt="" border=0 width=20 height=22>
 							 <TMPL_VAR NAME=ENTRY>
-					</a>
+             </a>
+             &nbsp;
+					</font>
+             
+				</td>
+        <td>
+					<font size="-2">
+            &nbsp;
+             <TMPL_VAR NAME=STATUS>
+					</font>
+				</td>
+        <td>
+          &nbsp;<font size="-2">
+            <a href="<TMPL_VAR NAME=VIEWCVS>/<TMPL_VAR NAME=MODULE_NAME><TMPL_VAR NAME=LOCATION>/<TMPL_VAR NAME=FILENAME>?only_with_tag=<TMPL_VAR NAME=TAGDATE>"><TMPL_VAR NAME=TAGDATE></a>&nbsp;/&nbsp;
+            &nbsp;
+            <TMPL_VAR NAME=REVISION></font>
 				</td>
 				<td>
 					&nbsp;
-					<TMPL_VAR NAME=FILESIZE>/<font size="2"><i>B</i></font>
+					<font size="-2"><TMPL_VAR NAME=FILESIZE>/<i>B</i></font>
 				</td>
 				<td>
 					&nbsp;
-					<font size="2"><TMPL_VAR NAME=FILEAGE></font>
+					<font size="-2"><TMPL_VAR NAME=FILEAGE></font>
 				</td>
 			</tr>

[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.82,1.83

From: Rob H. <for...@us...> - 2003-04-22 17:40:39

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory sc8-pr-cvs1:/tmp/cvs-serv26470/lib/SandWeb

Modified Files:
	Browse.pm 
Log Message:
committing my new images, and merging the patch from 
Claus Henrikson <lin...@ya...> that adds ViewCVS integration.



Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.82
retrieving revision 1.83
diff -U2 -r1.82 -r1.83
--- Browse.pm	28 Feb 2003 11:04:06 -0000	1.82
+++ Browse.pm	22 Apr 2003 17:40:32 -0000	1.83
@@ -172,4 +172,5 @@
 		'repo_name' => $repo_name,
 		'sort' => $sort,
+		'viewcvs' => $viewcvs,
 	);
 
@@ -213,4 +214,8 @@
         
         Default: none.
+    
+    viewcvs (type: string) (required)
+      
+      The url to the local viewcvs installation
 
 RETURN CODES
@@ -242,4 +247,7 @@
 	my $repo_name = $args{'repo_name'};
 	my $sort = $args{'sort'};
+	my $viewcvs = $args{'viewcvs'};
+  my $localstatus = $args{'localstatus'};
+  my @localstatusoutput=@$localstatus;
 
 	my $username = $self->_get_username();
@@ -250,4 +258,6 @@
 	my $sandbox = "$users_dir/$username/$repo_name/$module_name";
 
+  my %Entries;
+
 	if (! $sandbox) {
 		return "A sandbox must be defined.";
@@ -282,4 +292,70 @@
 	} 
 
+
+  ##
+  # Reading status in current directory
+  #
+  #$log->debug("Local status: @localstatusoutput");
+  my @output=split( /File:/, $localstatusoutput[0]); 
+  my $line;
+  my $line2;
+  for $line (@output)
+  {
+    $log->debug("line: ".$line."\n");
+    #if ($line=~m/^([a-zA-Z0-9_\-\.]+) Status: ([a-zA-Z_\-]+)/)
+    $line2=$line;
+    if ($line=~m/^[ ]*([a-zA-Z0-9_\-\.]+)/)
+    {
+      $log->debug("File: ".$1);
+    }
+    my $name=$1;
+    
+    if ($line2=~m/Status: ([a-zA-Z0-9_\-\. ]+)/)
+    {
+      $log->debug("Status: ".$1);
+    }
+    $Entries{$name}{"STATUS"}=$1;
+  }
+
+  
+  ##
+  # Reading the CVS/Entries file if it is there
+  #
+  my $entries_file="$sandbox/$location/CVS/Entries";
+
+  $log->debug("debug: CVS/Entries file : $entries_file exists\n");
+  if (open(EF, $entries_file))
+  {
+    # The CVS/Entries file exists!
+    my @entries_file_content = <EF>;
+    $log->debug("debug: The CVS/Entries file $entries_file exists\n");
+    my $line;
+    for $line (@entries_file_content)
+    {
+      $log->debug("debug: $line");
+      my ($dir, $name, $revision, $timestamp_and_conflict, $options, $tagdate) = split( /\//, $line);
+      #cut prefixing T or D from tag if there
+      $tagdate =~ s/^[TD]//;
+      chomp($tagdate);
+			
+			# sanitize filename for HTTP
+			#Unsafe Characters; RFC 2068
+      $name =~ s/%/%25/g;
+			$name =~ s/"/%22/g;
+			$name =~ s/#/%23/g;
+			$name =~ s/</%3C/g;
+			$name =~ s/>/%3E/g;
+			
+      #fill in a record in Entries hash
+      $Entries{$name}{"REVISION"} = $revision;
+      $Entries{$name}{"TIMESTAMP"}= $timestamp_and_conflict;
+      $Entries{$name}{"OPTIONS"}  = $options;
+      $Entries{$name}{"TAGDATE"}  = $tagdate;
+      $log->debug("dir $dir, name $name, revision $revision, timestamp $timestamp_and_conflict, options $options, tagdate \'$tagdate\'");      
+    }
+    close(EF);
+  }
+  
+
 	my $counter=0;
 	unless ($#return< 0) {
@@ -306,4 +382,29 @@
 			$row_data{FILEAGE} = $file->get_age();
 
+      ##
+      # put in version info
+      if (defined($Entries{$filename}{"REVISION"}))
+      {
+        $row_data{REVISION}   = $Entries{$filename}{"REVISION"} ;
+        $row_data{STATUS}     = $Entries{$filename}{"STATUS"} ;
+        #$row_data{TIMESTAMP} = $Entries{$filename}{"TIMESTAMP"};
+        #$row_data{OPTIONS}   = $Entries{$filename}{"OPTIONS"}  ;
+        if ($Entries{$filename}{"TAGDATE"} eq "")
+        {
+          $row_data{TAGDATE}    = "MAIN";
+        }
+        else
+        {
+          $row_data{TAGDATE}    = $Entries{$filename}{"TAGDATE"}  ;
+        }
+      }
+      else
+      {
+        $row_data{REVISION}  = '?';
+        #$row_data{TIMESTAMP} = '';
+        #$row_data{OPTIONS}   = '';
+        $row_data{TAGDATE}   = '?';
+      }
+
 			if ( $file->get_file_type() eq "Directory" ) {
 				if ($repo_type eq "CVS") {
@@ -317,4 +418,8 @@
 					$row_data{COLOR} = 1;
 				}
+        $row_data{REVISION}  = '-';
+        #$row_data{TIMESTAMP} = '';
+        #$row_data{OPTIONS}   = '';
+        $row_data{TAGDATE}   = '-';
 			}
 			elsif ( $file->get_file_type() eq "Text" ) {
@@ -344,8 +449,10 @@
 				}
 			}
+			$row_data{FILENAME} = $filename;
 			$row_data{LOCATION} = $location;
 			$row_data{MODULE_NAME} = "$module_name";
 			$row_data{REPO_NAME} = "$repo_name";
 			$row_data{PROGNAME} = $progname;
+			$row_data{VIEWCVS} = $viewcvs;
 			push(@loop_data, \%row_data);
 
@@ -573,4 +680,26 @@
 	return $self->{'log_obj'};
 }
+
+
+# Entrief file documentation:
+# ---------------------------
+#
+#/name/revision/timestamp[+conflict]/options/tagdate
+#   
+#   where `[' and `]' are not part of the entry, but instead indicate that the `+' and conflict marker are optional. name is the name of the file within the directory. revision is the revision that the file in the working derives from, or `0' for an added file, or `-' followed by a revision for a removed file. timestamp is the timestamp of the file at the time that CVS created it; if the timestamp differs with the actual modification time of the file it means the file has been modified. It is stored in the format used by the ISO C asctime() function (for example, `Sun Apr 7 01:29:26 1996'). One may write a string which is not in that format, for example, `Result of merge', to indicate that the file should always be considered to be modified. This is not a special case; to see whether a file is modified a program should take the timestamp of the file and simply do a string compare with timestamp. If there was a conflict, conflict can be set to the modification time of the file after the file has been written with conflict markers (see section 10.3 Conflicts example). Thus if conflict is subsequently the same as the actual modification time of the file it means that the user has obviously not resolved the conflict. options contains sticky options (for example `-kb' for a binary file). tagdate contains `T' followed by a tag name, or `D' for a date, followed by a sticky tag or date. Note that if timestamp contains a pair of timestamps separated by a space, rather than a single timestamp, you are dealing with a version of CVS earlier than CVS 1.5 (not documented here).
+
+#   The timezone on the timestamp in CVS/Entries (local or universal) should be the same as the operating system stores for the timestamp of the file itself. For example, on Unix the file's timestamp is in universal time (UT), so the timestamp in CVS/Entries should be too. On VMS, the file's timestamp is in local time, so CVS on VMS should use local time. This rule is so that files do not appear to be modified merely because the timezone changed (for example, to or from summer time).
+
+#   If the first character of a line in `Entries' is `D', then it indicates a subdirectory. `D' on a line all by itself indicates that the program which wrote the `Entries' file does record subdirectories (therefore, if there is such a line and no other lines beginning with `D', one knows there are no subdirectories). Otherwise, the line looks like:
+
+ 
+
+#   D/name/filler1/filler2/filler3/filler4
+
+#   where name is the name of the subdirectory, and all the filler fields should be silently ignored, for future expansion. Programs which modify Entries files should preserve these fields.
+
+#   The lines in the `Entries' file can be in any order. 
+
+
 
 1;

[Sandweb-commit] CVS: sandweb/debian changelog,1.3,1.4

From: Rob H. <for...@us...> - 2003-04-22 17:13:24

Update of /cvsroot/sandweb/sandweb/debian
In directory sc8-pr-cvs1:/tmp/cvs-serv3667/debian

Modified Files:
	changelog 
Log Message:
bumping vers. no. up to RC3, and some template changes for the tag/
branch fixes.


Index: changelog
===================================================================
RCS file: /cvsroot/sandweb/sandweb/debian/changelog,v
retrieving revision 1.3
retrieving revision 1.4
diff -U2 -r1.3 -r1.4
--- changelog	3 Apr 2003 04:14:24 -0000	1.3
+++ changelog	22 Apr 2003 17:12:49 -0000	1.4
@@ -1,2 +1,8 @@
+sandweb (1.0rc3-1) unstable; urgency=low
+
+  * 3rd Release candidate.
+
+ -- root <ro...@mo...>  Wed, 12 Apr 2003 19:48:30 -0800
+
 sandweb (1.0rc2-1) unstable; urgency=low

[Sandweb-commit] CVS: sandweb README,1.12,1.13

From: Rob H. <for...@us...> - 2003-04-22 17:13:24

Update of /cvsroot/sandweb/sandweb
In directory sc8-pr-cvs1:/tmp/cvs-serv3667

Modified Files:
	README 
Log Message:
bumping vers. no. up to RC3, and some template changes for the tag/
branch fixes.


Index: README
===================================================================
RCS file: /cvsroot/sandweb/sandweb/README,v
retrieving revision 1.12
retrieving revision 1.13
diff -U2 -r1.12 -r1.13
--- README	3 Apr 2003 04:14:24 -0000	1.12
+++ README	22 Apr 2003 17:12:48 -0000	1.13
@@ -1,4 +1,4 @@
 ============================================================================
-SandWeb Summary - 1.0RC2 Release
+SandWeb Summary - 1.0RC3 Release
 ============================================================================
 
@@ -8,5 +8,5 @@
 It is essentially a multi-user client to version control systems ( VCS )
 such as CVS, SVN ( Subversion ), arch or RCS ( only CVS is supported for 
-the 1.0RC2 release ).
+the 1.0RC3 release ).
 
 SandWeb requires a user agent that supports and allows Javascript 
@@ -20,5 +20,5 @@
 using SandWeb.
 
-The 1.0RC2 release only supports "FlatFile" authentication, in
+The 1.0RC3 release only supports "FlatFile" authentication, in
 which SandWeb uses it's own password file and format. More 
 authentication systems are planned for future releases.
@@ -86,5 +86,5 @@
 You are now at the repository menu. You can enter username, password,
 version control system, server name and version control root for as
-many repositories as you want. For the 1.0RC2 release, SandWeb supports 
+many repositories as you want. For the 1.0RC3 release, SandWeb supports 
 "local", "pserver" and "SSH" CVS repositories.

[Sandweb-commit] CVS: sandweb/templates tag.html,1.17,1.18 vcs.html,1.9,1.10

From: Rob H. <for...@us...> - 2003-04-22 17:12:56

Update of /cvsroot/sandweb/sandweb/templates
In directory sc8-pr-cvs1:/tmp/cvs-serv3667/templates

Modified Files:
	tag.html vcs.html 
Log Message:
bumping vers. no. up to RC3, and some template changes for the tag/
branch fixes.


Index: tag.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/tag.html,v
retrieving revision 1.17
retrieving revision 1.18
diff -U2 -r1.17 -r1.18
--- tag.html	13 Jan 2003 08:33:00 -0000	1.17
+++ tag.html	22 Apr 2003 17:12:51 -0000	1.18
@@ -6,4 +6,5 @@
 	<input type="hidden" name="main_window_url" value="<TMPL_VAR NAME=MAIN_WINDOW_URL>">
 	<input type="hidden" name="vcs_command" value="tag">
+	<input type="hidden" name="submenu" value="1">
 	<TMPL_LOOP NAME="FILENAME_LOOP">
 		<input type="hidden" name="filename" value="<TMPL_VAR NAME=FILENAME>">

Index: vcs.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/vcs.html,v
retrieving revision 1.9
retrieving revision 1.10
diff -U2 -r1.9 -r1.10
--- vcs.html	6 Apr 2003 20:00:54 -0000	1.9
+++ vcs.html	22 Apr 2003 17:12:51 -0000	1.10
@@ -6,4 +6,5 @@
 	<input type="hidden" name="action" value="vcs">
 	<input type="hidden" name="main_window_url" value="<TMPL_VAR NAME=MAIN_WINDOW_URL>">
+	<input type="hidden" name="submenu" value="<TMPL_VAR NAME=SUBMENU>">
 	Please enter VCS password :
 	<br>

[Sandweb-commit] CVS: sandweb/lib SandWeb.pm,1.26,1.27

From: Rob H. <for...@us...> - 2003-04-22 17:12:55

Update of /cvsroot/sandweb/sandweb/lib
In directory sc8-pr-cvs1:/tmp/cvs-serv3667/lib

Modified Files:
	SandWeb.pm 
Log Message:
bumping vers. no. up to RC3, and some template changes for the tag/
branch fixes.


Index: SandWeb.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -U2 -r1.26 -r1.27
--- SandWeb.pm	3 Apr 2003 04:14:25 -0000	1.26
+++ SandWeb.pm	22 Apr 2003 17:12:50 -0000	1.27
@@ -94,5 +94,5 @@
 =cut
 
-$VERSION = '1.0RC2';
+$VERSION = '1.0RC3';
 sub get_version {
 	return $VERSION;

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.347,1.348

From: Rob H. <for...@us...> - 2003-04-22 17:12:05

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv2813/bin

Modified Files:
	sandweb.cgi 
Log Message:
working on fixing that tag/branch bug, this is a work in progress..


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.347
retrieving revision 1.348
diff -U2 -r1.347 -r1.348
--- sandweb.cgi	1 Apr 2003 02:46:25 -0000	1.347
+++ sandweb.cgi	22 Apr 2003 17:11:59 -0000	1.348
@@ -237,4 +237,6 @@
 		my $previous_url = $cgi->param('previous_url') || '';
 		my $main_window_url = $cgi->param('main_window_url') || '';
+		# whether or not this is a submenu
+		my $submenu = $cgi->param('submenu') || '';
 
 		$log->debug("action: $action - submit: $submit");
@@ -323,5 +325,5 @@
 					my $create_tag = $cgi->param('create_tag') || '';
 					my $remove_tag = $cgi->param('remove_tag') || '';
-					if ($submit) {
+					if ($submenu) {
 						tag_commit(
 							ck_auth => $ck_auth,
@@ -1885,13 +1887,14 @@
 	my %args = @_;
 
-	my $ck_auth = $args{'ck_auth'};
-	my $location = $args{'location'};
-	my $module_name = $args{'module_name'};
-	my $repo_name = $args{'repo_name'};
-	my $repo_password = $args{'repo_password'};
-	my $vcs_command = $args{'vcs_command'};
-	my $vcs_message = $args{'message'};
-	my $params = $args{'params'};
+	my $ck_auth = $args{'ck_auth'} || '';
+	my $location = $args{'location'} || '';
+	my $module_name = $args{'module_name'} || '';
+	my $repo_name = $args{'repo_name'} || '';
+	my $repo_password = $args{'repo_password'} || '';
+	my $vcs_command = $args{'vcs_command'} || '';
+	my $vcs_message = $args{'message'} || '';
+	my $params = $args{'params'} || '';
 	my $main_window_url = $args{'main_window_url'} || '';
+	my $submenu = $args{'submenu'} || '';
 	my @filename_loop = ();
 	my $count = 0;
@@ -1974,4 +1977,5 @@
 		MAIN_WINDOW_URL => $main_window_url,
 		IMAGE_DIR => $image_dir,
+		SUBMENU => $submenu,
 	);
 	print $cgi->header( -cookie => $ck_auth );
@@ -2517,5 +2521,5 @@
 # vcs_commit
 #
-# all browse VCS actions are caught by this subroutine, and dealt
+# all VCS actions are caught by this subroutine, and dealt
 # with by calling the appropriate Repository method.
 #
@@ -3216,4 +3220,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($tag_switch) {
@@ -3234,4 +3239,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($trunk_sync) {
@@ -3251,4 +3257,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($trunk_switch) {
@@ -3269,4 +3276,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 
@@ -3287,4 +3295,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($remove_tag) {
@@ -3305,4 +3314,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}

[Sandweb-commit] CVS: sandweb/templates vcs.html,1.8,1.9

From: Rob H. <for...@us...> - 2003-04-06 20:01:01

Update of /cvsroot/sandweb/sandweb/templates
In directory sc8-pr-cvs1:/tmp/cvs-serv5461/templates

Modified Files:
	vcs.html 
Log Message:
turned "border" on one of the tables from 1 to 0, so that wierd
little dot on the "Please enter VCS password" screen that has been
bugging me won't show up anymore.


Index: vcs.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/vcs.html,v
retrieving revision 1.8
retrieving revision 1.9
diff -U2 -r1.8 -r1.9
--- vcs.html	22 Jan 2003 06:55:14 -0000	1.8
+++ vcs.html	6 Apr 2003 20:00:54 -0000	1.9
@@ -1,4 +1,4 @@
 <!-- <TMPL_VAR NAME=PROGNAME> -->
-<table width="100%" border="1" align="center" cellspacing="0" cellpadding="0">
+<table width="100%" border="0" align="center" cellspacing="0" cellpadding="0">
 <tr>
 <center>

[Sandweb-commit] CVS: sandweb ChangeLog,1.7,1.8

From: Rob H. <for...@us...> - 2003-04-03 05:03:32

Update of /cvsroot/sandweb/sandweb
In directory sc8-pr-cvs1:/tmp/cvs-serv27852

Modified Files:
	ChangeLog 
Log Message:
rc2 release


Index: ChangeLog
===================================================================
RCS file: /cvsroot/sandweb/sandweb/ChangeLog,v
retrieving revision 1.7
retrieving revision 1.8
diff -U2 -r1.7 -r1.8
--- ChangeLog	3 Apr 2003 04:14:24 -0000	1.7
+++ ChangeLog	3 Apr 2003 05:03:26 -0000	1.8
@@ -1,2 +1,11 @@
+2003-04-02 21:01  formnull
+
+	* NEWS: updated news
+
+2003-04-02 20:14  formnull
+
+	* ChangeLog, NEWS, README, debian/changelog, lib/SandWeb.pm:
+	preparing for 1.0RC2 release..
+
 2003-04-01 12:14  formnull

[Sandweb-commit] CVS: sandweb NEWS,1.7,1.8

From: Rob H. <for...@us...> - 2003-04-03 05:01:52

Update of /cvsroot/sandweb/sandweb
In directory sc8-pr-cvs1:/tmp/cvs-serv27447

Modified Files:
	NEWS 
Log Message:
updated news


Index: NEWS
===================================================================
RCS file: /cvsroot/sandweb/sandweb/NEWS,v
retrieving revision 1.7
retrieving revision 1.8
diff -U2 -r1.7 -r1.8
--- NEWS	3 Apr 2003 04:14:24 -0000	1.7
+++ NEWS	3 Apr 2003 05:01:46 -0000	1.8
@@ -1,5 +1,15 @@
-2003-03-31
+2003-04-02
 
 	SandWeb 1.0RC2 Released
+
+	This is the second release candidate! If we don't find
+	any show-stopper bugs, then this will be 1.0!
+
+	* Fixed a bug that was prevented detecting when the
+	  user had entered an invalid password.
+	
+2003-03-31
+
+	SandWeb 1.0RC1 Released
 
 	This is the first release candidate! If we don't find

[Sandweb-commit] CVS: sandweb/lib SandWeb.pm,1.25,1.26

From: Rob H. <for...@us...> - 2003-04-03 04:14:29

Update of /cvsroot/sandweb/sandweb/lib
In directory sc8-pr-cvs1:/tmp/cvs-serv16036/lib

Modified Files:
	SandWeb.pm 
Log Message:
preparing for 1.0RC2 release..


Index: SandWeb.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -U2 -r1.25 -r1.26
--- SandWeb.pm	1 Apr 2003 05:40:21 -0000	1.25
+++ SandWeb.pm	3 Apr 2003 04:14:25 -0000	1.26
@@ -94,5 +94,5 @@
 =cut
 
-$VERSION = '1.0RC1';
+$VERSION = '1.0RC2';
 sub get_version {
 	return $VERSION;

[Sandweb-commit] CVS: sandweb ChangeLog,1.6,1.7 NEWS,1.6,1.7 README,1.11,1.12

From: Rob H. <for...@us...> - 2003-04-03 04:14:28

Update of /cvsroot/sandweb/sandweb
In directory sc8-pr-cvs1:/tmp/cvs-serv16036

Modified Files:
	ChangeLog NEWS README 
Log Message:
preparing for 1.0RC2 release..


Index: ChangeLog
===================================================================
RCS file: /cvsroot/sandweb/sandweb/ChangeLog,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
--- ChangeLog	1 Apr 2003 05:40:21 -0000	1.6
+++ ChangeLog	3 Apr 2003 04:14:24 -0000	1.7
@@ -1,2 +1,22 @@
+2003-04-01 12:14  formnull
+
+	* bin/sandweb-expect: damn, found a bug already :)
+	
+	the script wasn't catching when a bad password was entered. I
+	corrected it, and simplified it even more in the process.
+
+2003-03-31 22:42  formnull
+
+	* install.cfg: reverting to default settings
+
+2003-03-31 21:53  formnull
+
+	* debian/changelog: bumping vers. no.
+
+2003-03-31 21:40  formnull
+
+	* ChangeLog, NEWS, README, install.cfg, lib/SandWeb.pm: bumping
+	version number to 1.0RC1
+
 2003-03-31 19:06  formnull
 

Index: NEWS
===================================================================
RCS file: /cvsroot/sandweb/sandweb/NEWS,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
--- NEWS	1 Apr 2003 05:40:21 -0000	1.6
+++ NEWS	3 Apr 2003 04:14:24 -0000	1.7
@@ -1,5 +1,5 @@
 2003-03-31
 
-	SandWeb 1.0RC1 Released
+	SandWeb 1.0RC2 Released
 
 	This is the first release candidate! If we don't find

Index: README
===================================================================
RCS file: /cvsroot/sandweb/sandweb/README,v
retrieving revision 1.11
retrieving revision 1.12
diff -U2 -r1.11 -r1.12
--- README	1 Apr 2003 05:40:21 -0000	1.11
+++ README	3 Apr 2003 04:14:24 -0000	1.12
@@ -1,4 +1,4 @@
 ============================================================================
-SandWeb Summary - 1.0RC1 Release
+SandWeb Summary - 1.0RC2 Release
 ============================================================================
 
@@ -8,5 +8,5 @@
 It is essentially a multi-user client to version control systems ( VCS )
 such as CVS, SVN ( Subversion ), arch or RCS ( only CVS is supported for 
-the 1.0RC1 release ).
+the 1.0RC2 release ).
 
 SandWeb requires a user agent that supports and allows Javascript 
@@ -20,5 +20,5 @@
 using SandWeb.
 
-The 1.0RC1 release only supports "FlatFile" authentication, in
+The 1.0RC2 release only supports "FlatFile" authentication, in
 which SandWeb uses it's own password file and format. More 
 authentication systems are planned for future releases.
@@ -86,5 +86,5 @@
 You are now at the repository menu. You can enter username, password,
 version control system, server name and version control root for as
-many repositories as you want. For the 1.0RC1 release, SandWeb supports 
+many repositories as you want. For the 1.0RC2 release, SandWeb supports 
 "local", "pserver" and "SSH" CVS repositories.

[Sandweb-commit] CVS: sandweb/debian changelog,1.2,1.3

From: Rob H. <for...@us...> - 2003-04-03 04:14:27

Update of /cvsroot/sandweb/sandweb/debian
In directory sc8-pr-cvs1:/tmp/cvs-serv16036/debian

Modified Files:
	changelog 
Log Message:
preparing for 1.0RC2 release..


Index: changelog
===================================================================
RCS file: /cvsroot/sandweb/sandweb/debian/changelog,v
retrieving revision 1.2
retrieving revision 1.3
diff -U2 -r1.2 -r1.3
--- changelog	1 Apr 2003 05:53:27 -0000	1.2
+++ changelog	3 Apr 2003 04:14:24 -0000	1.3
@@ -1,2 +1,8 @@
+sandweb (1.0rc2-1) unstable; urgency=low
+
+  * 2nd Release candidate.
+
+ -- root <ro...@mo...>  Wed, 02 Apr 2003 20:04:13 -0800
+
 sandweb (1.0rc1-1) unstable; urgency=low

[Sandweb-commit] CVS: sandweb/bin sandweb-expect,1.12,1.13

From: Rob H. <for...@us...> - 2003-04-01 20:14:18

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv5410/bin

Modified Files:
	sandweb-expect 
Log Message:
damn, found a bug already :)

the script wasn't catching when a bad password was entered. I corrected
it, and simplified it even more in the process.


Index: sandweb-expect
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-expect,v
retrieving revision 1.12
retrieving revision 1.13
diff -U2 -r1.12 -r1.13
--- sandweb-expect	1 Apr 2003 01:21:40 -0000	1.12
+++ sandweb-expect	1 Apr 2003 20:14:11 -0000	1.13
@@ -21,7 +21,9 @@
 		expect {
 			"password:" { send "$vcs_password\r" }
+			eof { exit 0 }
+		}
+		expect {
 			"denied" { exit 2 }
 			eof { exit 0 }
-
 		}

3 messages has been excluded from this view by a project administrator.

Flat | Threaded

<< < 1 .. 4 5 6 7 8 .. 53 > >> (Page 6 of 53)

2001	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct (28)	Nov (58)	Dec (85)
2002	Jan (125)	Feb (222)	Mar (274)	Apr (51)	May (22)	Jun (50)	Jul (15)	Aug (33)	Sep (11)	Oct (29)	Nov (17)	Dec (1)
2003	Jan (100)	Feb (21)	Mar (7)	Apr (45)	May	Jun (43)	Jul (27)	Aug (24)	Sep	Oct	Nov	Dec
2004	Jan (1)	Feb	Mar (13)	Apr	May (1)	Jun	Jul	Aug (7)	Sep	Oct	Nov	Dec (4)
2005	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec (1)