? astcc/astcc-admin.cgi.new
? asterisk/doc/api
? zaptel/.tmp_versions
? zaptel/.zaptel.o.d
Index: astcc/astcc-admin.cgi
===================================================================
RCS file: /usr/cvsroot/astcc/astcc-admin.cgi,v
retrieving revision 1.7
diff -u -r1.7 astcc-admin.cgi
--- astcc/astcc-admin.cgi	1 Sep 2004 18:33:35 -0000	1.7
+++ astcc/astcc-admin.cgi	5 Sep 2004 02:15:34 -0000
@@ -21,6 +21,11 @@
 @techs = ( "SIP", "IAX2", "Zap", "Local" );
 @incs = ("6", "60");
 my $dbh;
+my $tmpfile = "/tmp/astcc";
+
+sub tmp_file() {
+	system("/bin/touch $tmpfile");
+}
 
 sub timestamp() {
 	my $now = strftime "%Y%m%d%H%M%S", gmtime;
@@ -119,6 +124,22 @@
 	return "";
 }
 
+sub list_cards() {
+	my $sth;
+	my @cardlist;
+	my $row;
+	$sth = $dbh->prepare("SELECT number FROM cards");
+	$sth->execute;
+	while($row = $sth->fetchrow_hashref) {
+		push @cardlist, $row->{number};
+	}
+	$sth->finish;
+#	if ($#cardlist > -1) {
+#		return popup_menu(-name => "cardnum", -values => \@cardlist);
+#	}
+	return @cardlist;
+}
+
 sub list_trunks() {
 	my $sth;
 	my @trunklist;
@@ -183,6 +204,12 @@
 	# Retrieve brand specifications
 	my $sth = $dbh->prepare("SELECT * FROM brands WHERE name = " . $dbh->quote($brand));
 	$sth->execute;
+	if ($config{'email'} eq "YES") {
+		&tmp_file;
+		open(TMP_FILE,">>$tmpfile") ||
+			die "Error - could not open $tmpfile for writing\n";
+		print TMP_FILE "You have added $count $brand cards in the amount of $pennies cents. \n\n"; 
+	}
 	if ($row = $sth->fetchrow_hashref) {
 		($language, $inc, $markup) = ($row->{language}, $row->{inc}, $row->{markup});
 	}
@@ -191,8 +218,15 @@
 	for ($x=0; $x < $count; $x++) {
 		$number = &findunique;
 		&addcard($number, $language, $pennies * 100, $inc, $markup);
+		if ($config{'email'} eq "YES") {
+			print TMP_FILE "$number \n";
+		}
 		$status .= "$number<br>";
 	}
+	if ($config{'email'} eq "YES") {
+		system("cat $tmpfile | $config{'mailprog'} -s \"New Cards Created\" $config{'emailadd'}"); 
+		system("rm $tmpfile");
+	}
 	return $status;
 }
 
@@ -235,6 +269,8 @@
 	$body .= "<tr><td>Get information on card&nbsp;&nbsp;" . hidden(-name => "mode", -value => "Cards") .
 		textfield(-name => "cardnum", -size => 15)  . "&nbsp;&nbsp;&nbsp;&nbsp;" .
 		submit(-name => "action", -value => "Information...") . "</td></tr>";
+	$body .= "<tr><td>List Cards&nbsp;&nbsp;" . hidden(-name => "mode", -value => "Cards") .
+		submit(-name => "action", -value => "List_Cards...") . "</td></tr>";
 	$body .= "</table>";
 	if ((param('action') eq "Information...") && length(param('cardnum'))) {
 		my $cardinfo;
@@ -270,6 +306,35 @@
 			}
 		}
 		$body .= "</table>";
+	}	
+		if (param('action') eq "List_Cards...") {
+		my $cardinfo;
+		my $status;
+		@cardlist = &list_cards();
+		$body .= "<table>";
+		$body .= "<tr bgcolor=ffffff><tdcolspan=4><i>" . $status . "</i></td></tr>\n";
+		$body .= "<tr bgcolor=ccccff><td>Card Number</td><td>Amount Used</td><td>Face Value</td><td>Markup</td><td>Creation</td><td>First Use</td><td>Expiration</td><td>In Use</td></tr>\n";
+		foreach (@cardlist) {
+			$cardnum = $_;
+			$cardinfo = &getcard($cardnum);
+			if ($cardinfo->{'number'}) {
+				$count++;
+					if (!($count % 2)) {
+					$color = "#ccffcc";
+				} else {
+					$color = "#ffffcc";
+				}
+
+			$body .= "<tr bgcolor=$color><td>$cardnum</td><td>$cardinfo->{used}</td><td>$cardinfo->{facevalue}</td><td>$cardinfo->{markup}</td><td>$cardinfo->{creation}</td><td>$cardinfo->{firstuse}</td><td>$cardinfo->{expiration}</td><td>$cardinfo->{inuse}</td></tr>";
+#			$status = "Card $cardnum&nbsp;&nbsp;</i><b>" . param('cardnum') . "&nbsp;&nbsp;</b><i> has used&nbsp;&nbsp;" .
+#			"</i><b>$cardinfo->{used}</b></i>" . "&nbsp;&nbsp;of&nbsp;&nbsp;" .
+#			"</i><b>$cardinfo->{facevalue}</b></i>&nbsp;&nbsp;units\n";
+			} else {
+				$status = "No such card number '" . param('cardnum') . "' found!\n";
+			}
+
+		}
+		$body .= "</table>";
 	}
 	return $body;
 }
@@ -684,6 +749,9 @@
 		$config{dbpass} = param('dbpass');
 		$config{dbname} = param('dbname');
 		$config{dbhost} = param('dbhost');
+		$config{email} = param('email');
+		$config{emailadd} = param('emailadd');
+		$config{mailprog} = param('mailprog');
 		&save_config();
 		$activity = "Configuration saved...";
 		if ($action eq "Create Database") {
@@ -702,6 +770,9 @@
 	$body .= "<tr><td>Username</td><td>" . textfield(-name => 'dbuser', -default => $config{dbuser}) . "</td></tr>";
 	$body .= "<tr><td>Password</td><td>" . textfield(-name => 'dbpass', -default => $config{dbpass}) . "</td></tr>";
 	$body .= "<tr><td>Database</td><td>" . textfield(-name => 'dbname', -default => $config{dbname}) . "</td></tr>";
+	$body .= "<tr><td>Email New Card Info (YES/NO) </td><td>" . textfield(-name => 'email', -default => $config{email}) . "</td></tr>";
+	$body .= "<tr><td>Admin Email</td><td>" . textfield(-name => 'emailadd', -default => $config{emailadd}) . "</td></tr>";
+	$body .= "<tr><td>Email Program</td><td>" . textfield(-name => 'mailprog', -default => $config{mailprog}) . "</td></tr>";
 	$body .= "<tr><td align=left>&nbsp;" . submit(-name => 'action', -value => 'Save') . "</td><td align=right>" . submit( -name => 'action', -value => 'Create Database') . "&nbsp;</td></tr>";
 	$body .= "</table>";
 	return $body;